msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(emacs): symbol motion

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2025-10-12 00:54:30 -06:00
parent d9dba04ed5
commit e4c2319c25
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/home/users/msyds/emacs/lisp/syd/evil.el
View File

@@ -35,6 +35,8 @@
evil-operator-state-cursor 'evil-half-cursor evil-operator-state-cursor 'evil-half-cursor
evil-insert-state-cursor 'bar evil-insert-state-cursor 'bar
evil-visual-state-cursor 'hollow evil-visual-state-cursor 'hollow
;; Search for symbols rather than words with '*'/'#'.
evil-symbol-word-search t
;; Only do highlighting in selected window so that Emacs has less work ;; Only do highlighting in selected window so that Emacs has less work
;; to do highlighting them all. ;; to do highlighting them all.
evil-ex-interactive-search-highlight 'selected-window evil-ex-interactive-search-highlight 'selected-window
@@ -85,6 +87,9 @@ Otherwise, nil."
"N" #'evil-ex-search-previous "N" #'evil-ex-search-previous
"*" #'evil-ex-search-word-forward) "*" #'evil-ex-search-word-forward)
;; Replace word-wise motion with symbol-wise motion.
(defalias 'forward-evil-word 'forward-evil-symbol)
(evil-mode 1)) (evil-mode 1))

4
modules/home/users/msyds/emacs/lisp/syd/lisp.el
View File

@@ -3,10 +3,6 @@
(require 'syd/base) (require 'syd/base)
(require 'syd/evil) (require 'syd/evil)
;; Include various lispy symbols as word constituents.
(dolist (c '(?- ?_ ?? ?! ?+ ?* ?/ ?: ?> ?< ?= ?&))
(modify-syntax-entry c "w" lisp-data-mode-syntax-table))
;;;###autoload ;;;###autoload
(defvar-keymap syd-lisp-mode-map (defvar-keymap syd-lisp-mode-map
:doc "Keymap for `syd-lisp-mode'.") :doc "Keymap for `syd-lisp-mode'.")