TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add mini-mode for easy highlighted symbol navigation

Browse source
This commit is contained in:
syl20bnr 2014-10-01 23:46:53 -04:00
parent 21f60ff213
commit 5648be91c6
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
spacemacs/extensions.el
View file

@ -50,7 +50,26 @@
"hn" 'ahs-forward
"hp" 'ahs-backward
"th" 'auto-highlight-symbol-mode))
(spacemacs//diminish auto-highlight-symbol-mode " Ⓗ"))))
(spacemacs//diminish auto-highlight-symbol-mode " Ⓗ")
;; mini-mode to easily jump from a highlighted symbol to the others
(defadvice ahs-forward (after spacemacs/ahs-forward activate)
(spacemacs/auto-highlight-symbol-overlay-map))
(defadvice ahs-backward (after spacemacs/ahs-backward activate)
(spacemacs/auto-highlight-symbol-overlay-map))
(defadvice ahs-back-to-start (after spacemacs/ahs-back-to-start activate)
(spacemacs/auto-highlight-symbol-overlay-map))
(defun spacemacs/auto-highlight-symbol-overlay-map ()
"Set a temporary overlay map to easily jump from highlighted symbols to
the nexts."
(interactive)
(set-temporary-overlay-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "n") 'ahs-forward)
(define-key map (kbd "p") 'ahs-backward)
(define-key map (kbd "s") 'ahs-back-to-start)
map) nil)
(message "[%s] jump to (n)ext (p)revious or (s)tarting highlighted symbol"
(length ahs-overlay-list))))))
(defun spacemacs/init-centered-cursor ()
(use-package centered-cursor-mode