feat(emacs): Agda pairs

2025-11-23 07:30:27 -07:00
parent a9ad592ac1
commit 43963919fd
1 changed files with 9 additions and 1 deletions
--- a/modules/home/users/msyds/emacs/lisp/syd/agda.el
+++ b/modules/home/users/msyds/emacs/lisp/syd/agda.el
@@ -52,8 +52,16 @@
    "K" #'agda2-goal-and-context)
  (setq agda2-fontset-name "JuliaMono")

+  (with-eval-after-load 'smartparens
+    (sp-local-pair '(agda2-mode) "{!" "!}"))
+  (with-eval-after-load 'evil-surround
+    (syd-add-hook '(agda2-mode-hook)
+      (defun syd-agda--configure-evil-surround-h ()
+	(setq-local evil-surround-pairs-alist
+		    (append '((?h . ("{!" . "!}")))
+			    evil-surround-pairs-alist)))))
  (defun syd-agda-lookup-documentation ()
-    (interactive)
+    (interactive "P")
    (call-interactively #'agda2-goal-and-context)
    agda2-info-buffer)