From 7f51b86244c58c942688017ae609bb86b89c9648 Mon Sep 17 00:00:00 2001
From: bard <bard@ramiel.attlocal.net>
Date: Wed, 8 May 2024 06:23:21 -0400
Subject: lisp editing

---
 bard-emacs-modules/bard-emacs-essentials.el |  5 ++---
 bard-emacs-modules/bard-emacs-prog.el       | 31 ++++++++++++++++++-----------
 2 files changed, 21 insertions(+), 15 deletions(-)

diff --git a/bard-emacs-modules/bard-emacs-essentials.el b/bard-emacs-modules/bard-emacs-essentials.el
index 6c0eefb..837cc01 100644
--- a/bard-emacs-modules/bard-emacs-essentials.el
+++ b/bard-emacs-modules/bard-emacs-essentials.el
@@ -2,7 +2,6 @@
 
 ;;; Editing niceties
 
-(electric-pair-mode t)
 ;; writeable grep buffers
 (use-package wgrep
   :bind
@@ -34,7 +33,7 @@
 (global-set-key (kbd "C-x C-b") 'ibuffer)
 
 ;; Desktop/session save
-(desktop-save-mode t)
+;; (desktop-save-mode t)
 (global-set-key (kbd "C-z s") 'desktop-save-in-desktop-dir)
 (global-set-key (kbd "C-z r") 'desktop-read)
 
@@ -75,7 +74,7 @@
   (let ((default-directory default-directory))
     (term "/bin/bash")))
 
-(define-key global-map (kbd "C-t") #'bard/open-terminal-in-current-directory)
+;; (define-key global-map (kbd "C-t") #'bard/open-terminal-in-current-directory)
 (define-key global-map (kbd "C-z t") #'bard/open-terminal-in-current-directory)
 
 (defun bard/open-terminal-emulator ()
diff --git a/bard-emacs-modules/bard-emacs-prog.el b/bard-emacs-modules/bard-emacs-prog.el
index 9856d50..6cf47fc 100644
--- a/bard-emacs-modules/bard-emacs-prog.el
+++ b/bard-emacs-modules/bard-emacs-prog.el
@@ -68,24 +68,31 @@
   :config
   (setq inferior-lisp-program (executable-find "sbcl")))
 
+(use-package geiser)
+
+(use-package geiser-racket)
+
+;; parens packages
+(use-package paredit)
+
+(use-package scheme-mode
+  :init
+  (paredit-mode t))
+
+(use-package common-lisp-mode
+  :init
+  (paredit-mode t))
+
+(use-package emacs-lisp-mode
+  :init
+  (paredit-mode t))
+
 (use-package haskell-mode)
 
 (use-package flycheck
   :init
   (global-flycheck-mode t))
 
-(use-package smartparens
-  :config
-  (smartparens-global-mode t)
-  (show-smartparens-global-mode t)
-  :bind
-  (("C-<down>" . sp-down-sexp))
-  ("C-<up>"    . sp-up-sexp)
-  ("M-<down>"  . sp-backward-up-sexp)
-  ("M-<up>"    . sp-backward-up-sexp)
-  ("C-M-a"     . sp-beginning-of-sexp)
-  ("C-M-e"     . sp-end-of-sexp))
-
 (use-package ggtags
   :config
   (add-hook 'c-mode-common-hook
-- 
cgit v1.2.3