diff options
| author | tslil clingman <> | 2021-09-27 08:53:17 -0400 |
|---|---|---|
| committer | tslil clingman <> | 2021-09-27 08:53:17 -0400 |
| commit | fa49aa2b985398b3da4379efc46198ba6497bdfc (patch) | |
| tree | 28997c5d3947394cc66ad3a1a131c44f975256cf /emacs/inits/22-lisp.el | |
| parent | c69f17c5d36fa7a4a95701f915c727b076981f2f (diff) | |
Fixed tabs!
Diffstat (limited to 'emacs/inits/22-lisp.el')
| -rw-r--r-- | emacs/inits/22-lisp.el | 29 |
1 files changed, 20 insertions, 9 deletions
diff --git a/emacs/inits/22-lisp.el b/emacs/inits/22-lisp.el index 8365293..fb1304e 100644 --- a/emacs/inits/22-lisp.el +++ b/emacs/inits/22-lisp.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2019-10-02 22:40:52 (tslil@basingstoke)> +;; Time-stamp: <2021-09-27 08h48 EDT (hobbies)> ;; ---------------------------------------------------------------------------- ;; Lisp helpers @@ -32,11 +32,11 @@ (defun lh-slurp-forward () (interactive) - (corral-shift-backward ?\( ?\))) + (corral-shift-forward ?\( ?\))) (defun lh-slurp-backward () (interactive) - (corral-shift-forward ?\( ?\))) + (corral-shift-backward ?\( ?\))) (defun lh-open-parentheses-dwim (arg) (interactive "P") @@ -80,8 +80,8 @@ (define-key map (kbd "M-}") 'corral-braces-backward) (define-key map (kbd "M-[") 'corral-brackets-forward) (define-key map (kbd "M-]") 'corral-brackets-backward) - (define-key map (kbd "C-(") 'lh-slurp-forward) - (define-key map (kbd "C-)") 'lh-slurp-backward) + (define-key map (kbd "C-)") 'lh-slurp-forward) + (define-key map (kbd "C-(") 'lh-slurp-backward) (define-key map (kbd "M-p") 'beginning-of-defun) (define-key map (kbd "M-n") 'lh-end-of-defun) t))) @@ -89,17 +89,24 @@ ;; ---------------------------------------------------------------------------- ;; Mode configurations +;; (use-package rainbow-blocks :ensure t) + (add-hook 'emacs-lisp-mode-hook (lambda () (eldoc-mode) (aggressive-indent-mode) (make-lisp-bindings))) +(add-hook 'clojure-mode-hook + (lambda () + (aggressive-indent-mode) + (make-lisp-bindings))) + (use-package caps-lock-mode :load-path "~/.emacs.d/scripts/") -(use-package slime-company - :ensure t :defer t) +;; (use-package slime-company +;; :ensure t :defer t) (use-package slime :ensure t @@ -113,8 +120,8 @@ slime-asdf slime-banner slime-scratch - slime-autodoc - slime-company)) + ;; slime-company + slime-autodoc)) (slime-mode) (require 'caps-lock-mode) (caps-lock-mode) @@ -127,6 +134,10 @@ (setq slime-header-line-p nil slime-kill-without-query-p t)) +(use-package geiser-guile + :ensure t + :defer) + (use-package geiser :ensure t :hook (scheme-mode . (lambda () |