Testing with structural editing

diff --git a/init.el b/init.el
index fbc9ed04c808dd9741111515a7fb38c0331571b1..487de4635496ff1886ff14b133c8a7fd274af3a5 100644 (file)
--- 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 f656661b5cf21d2d951d924eb5166d1f069a9f9b..a98a8517cd410bef2bb61a63a8e778f6c8d7c582 100644 (file)
--- 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 (file)
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))