Compare commits

..

2 Commits

Author SHA1 Message Date
Zander671 718b24d5e9 Allow adjust-parens to be used from normal state too 2024-09-13 01:48:59 -07:00
Zander671 1e13252624 Fix my/describe-symbol-at-point 2024-09-13 01:36:02 -07:00
+17 -3
View File
@@ -56,9 +56,9 @@
;; (setq-local evil-lookup-func
;; #'my/describe-symbol-at-point))
(defun my/describe-symbol-at-point ()
"Calls `describe-symbol' on the return value of `form-at-point'."
"Calls `describe-symbol' on the return value of `symbol-at-point'."
(interactive)
(let ((form (form-at-point)))
(let ((form (symbol-at-point)))
(if (consp form)
(describe-symbol (cadr form))
(describe-symbol form))))
@@ -319,7 +319,21 @@ Interactively, force the recompile if called with a prefix."
;; and nicer
(use-package adjust-parens
:hook (prog-mode . adjust-parens-mode))
:hook (prog-mode . adjust-parens-mode)
:config
(defun my/normal-state-lisp-indent-adjust-parens ()
"Like `lisp-indent-adjust-parens', but got to first char on line first."
(interactive)
(back-to-indentation)
(lisp-indent-adjust-parens))
(defun my/normal-state-lisp-dedent-adjust-parens ()
"Like `lisp-dedent-adjust-parens', but got to first char on line first."
(interactive)
(back-to-indentation)
(lisp-dedent-adjust-parens))
(evil-define-key 'normal adjust-parens-mode-map
(kbd "<tab>") #'my/normal-state-lisp-indent-adjust-parens
(kbd "<backtab>") #'my/normal-state-lisp-dedent-adjust-parens))
;; for when the files are just too large
(use-package vlf