geiser-squarify to toggle between () and []

1 files changed, 19 insertions, 0 deletions

diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index e9e5563..3575474 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -176,6 +176,24 @@ With prefix, try to enter the current's buffer module."
     (goto-char (point-max))
     (pop-to-buffer b)))
 
+(defun geiser-squarify ()
+  "Toggle between () and [] for current form."
+  (interactive)
+  (let ((pared (and (boundp 'paredit-mode) paredit-mode)))
+    (when pared (paredit-mode -1))
+    (unwind-protect
+        (save-excursion
+          (unless (looking-at-p "\\s(") (backward-up-list))
+          (let ((p (point))
+                (round (looking-at-p "(")))
+            (forward-sexp)
+            (backward-delete-char 1)
+            (insert (if round "]" ")"))
+            (goto-char p)
+            (delete-char 1)
+            (insert (if round "[" "("))))
+      (when pared (paredit-mode 1)))))
+
 
 ;;; Geiser mode:
 
@@ -258,6 +276,7 @@ interacting with the Geiser REPL is at your disposal.
   ("Complete module name" ((kbd "M-`") (kbd "C-."))
    geiser-completion--complete-module)
   ("Edit module" ("\C-c\C-e\C-m" "\C-c\C-em") geiser-edit-module)
+  ("Toggle ()/[]" ("\C-c\C-e\C-[" "\C-c\C-e[") geiser-squarify)
   --
   ("Callers" ((kbd "C-c <")) geiser-xref-callers
    :enable (and (geiser-eval--supported-p 'callers) (symbol-at-point)))