Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: Zander671:a3791c4048411277f3697f81563d29d661e70ba0
Branches Tags
Zander671:main
...
compare: Zander671:718b24d5e9a8c2bb6f437a99360676f83619cb7a
Branches Tags
Zander671:main

2 Commits
a3791c4048 ... 718b24d5e9

Author SHA1 Message Date
Alexander Rosenberg
718b24d5e9
Allow adjust-parens to be used from normal state too 2024-09-13 01:48:59 -07:00
Alexander Rosenberg
1e13252624
Fix my/describe-symbol-at-point 2024-09-13 01:36:02 -07:00
1 changed files with 17 additions and 3 deletions
Show Stats Expand all files Collapse all files

20
init.el
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