From 4b0755faf88c4c74af910e03e01f7157ba352300 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Fri, 21 Jun 2024 17:18:23 -0400
Subject: [PATCH] Testing with structural editing

---
 init.el           |  2 +-
 re/re-packages.el |  3 +++
 sedit-mouse.el    | 13 +++++++++++++
 3 files changed, 17 insertions(+), 1 deletion(-)
 create mode 100644 sedit-mouse.el

diff --git a/init.el b/init.el
index fbc9ed0..487de46 100644
--- a/init.el
+++ b/init.el
@@ -14,7 +14,7 @@
 
 ;; Loaded Later
 (add-hook 'after-init-hook (lambda ()
-			     (require 'acme-mouse)
+			     ;; (require 'acme-mouse)
 			     (require 're-repl-defuns)
 			     (require 're-math-defuns)
 			     (require 're-electronics-defuns)
diff --git a/re/re-packages.el b/re/re-packages.el
index f656661..a98a851 100644
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -97,5 +97,8 @@
 	    (unless (slime-connected-p)
 	      (save-excursion (slime)))))
 
+(use-package paredit
+  :ensure t)
+
 (provide 're-packages)
 ;;; Hic terminatur re-packages.el
diff --git a/sedit-mouse.el b/sedit-mouse.el
new file mode 100644
index 0000000..85e414c
--- /dev/null
+++ b/sedit-mouse.el
@@ -0,0 +1,13 @@
+(setq mouse-drag-and-drop-region 'shift)
+
+(keymap-global-set "<mouse-2>" 're/sedit-mouse-2)
+(keymap-global-set "<down-mouse-2>" 're/sedit-down-mouse-2)
+
+(defun re/sedit-down-mouse-2 (click)
+  (interactive "e")
+  (mouse-set-point click))
+
+(defun re/sedit-mouse-2 (click)
+  (interactive "e")
+  (mouse-set-point click)
+  (er/expand-region 1))
-- 
2.39.5