From fa49aa2b985398b3da4379efc46198ba6497bdfc Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Mon, 27 Sep 2021 08:53:17 -0400
Subject: Fixed tabs!

---
 emacs/inits/22-lisp.el | 29 ++++++++++++++++++++---------
 1 file changed, 20 insertions(+), 9 deletions(-)

(limited to 'emacs/inits/22-lisp.el')

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 ()
-- 
cgit v1.2.3