Remove unneeded eval-after-load
in ahs initialization
This commit is contained in:
parent
a48c0a2207
commit
97d1addf24
|
@ -335,71 +335,71 @@ which require an initialization must be listed explicitly in the list.")
|
||||||
(define-key evil-normal-state-map (kbd "*") 'spacemacs/quick-ahs-forward)
|
(define-key evil-normal-state-map (kbd "*") 'spacemacs/quick-ahs-forward)
|
||||||
(define-key evil-normal-state-map (kbd "#") 'spacemacs/quick-ahs-backward)))))
|
(define-key evil-normal-state-map (kbd "#") 'spacemacs/quick-ahs-backward)))))
|
||||||
|
|
||||||
(eval-after-load "evil-leader"
|
(evil-leader/set-key
|
||||||
'(evil-leader/set-key
|
"se" 'ahs-edit-mode
|
||||||
"se" 'ahs-edit-mode
|
"sb" 'spacemacs/goto-last-searched-ahs-symbol
|
||||||
"sb" 'spacemacs/goto-last-searched-ahs-symbol
|
"sh" (lambda () (interactive)
|
||||||
"sh" (lambda () (interactive)
|
(eval '(progn
|
||||||
(eval '(progn
|
(ahs-highlight-now)
|
||||||
(ahs-highlight-now)
|
(setq spacemacs-last-ahs-highlight-p (ahs-highlight-p))
|
||||||
(setq spacemacs-last-ahs-highlight-p (ahs-highlight-p))
|
(spacemacs/auto-highlight-symbol-overlay-map)) nil))
|
||||||
(spacemacs/auto-highlight-symbol-overlay-map)) nil))
|
"sn" (lambda () (interactive) (eval '(progn (ahs-highlight-now) (ahs-forward)) nil))
|
||||||
"sn" (lambda () (interactive) (eval '(progn (ahs-highlight-now) (ahs-forward)) nil))
|
"sN" (lambda () (interactive) (eval '(progn (ahs-highlight-now) (ahs-backward)) nil))
|
||||||
"sN" (lambda () (interactive) (eval '(progn (ahs-highlight-now) (ahs-backward)) nil))
|
"srb" (lambda () (interactive) (eval '(ahs-change-range 'ahs-range-whole-buffer) nil))
|
||||||
"srb" (lambda () (interactive) (eval '(ahs-change-range 'ahs-range-whole-buffer) nil))
|
"srd" (lambda () (interactive) (eval '(ahs-change-range 'ahs-range-display) nil))
|
||||||
"srd" (lambda () (interactive) (eval '(ahs-change-range 'ahs-range-display) nil))
|
"srf" (lambda () (interactive) (eval '(ahs-change-range 'ahs-range-beginning-of-defun) nil))
|
||||||
"srf" (lambda () (interactive) (eval '(ahs-change-range 'ahs-range-beginning-of-defun) nil))
|
"sR" (lambda () (interactive) (eval '(ahs-change-range ahs-default-range) nil)))
|
||||||
"sR" (lambda () (interactive) (eval '(ahs-change-range ahs-default-range) nil))))
|
|
||||||
(spacemacs|hide-lighter auto-highlight-symbol-mode)
|
(spacemacs|hide-lighter auto-highlight-symbol-mode)
|
||||||
;; micro-state to easily jump from a highlighted symbol to the others
|
;; micro-state to easily jump from a highlighted symbol to the others
|
||||||
(dolist (sym '(ahs-forward
|
(dolist (sym '(ahs-forward
|
||||||
ahs-forward-definition
|
ahs-forward-definition
|
||||||
ahs-backward
|
ahs-backward
|
||||||
ahs-backward-definition
|
ahs-backward-definition
|
||||||
ahs-back-to-start
|
ahs-back-to-start
|
||||||
ahs-change-range))
|
ahs-change-range))
|
||||||
(let* ((advice (intern (format "spacemacs/%s" (symbol-name sym)))))
|
(let* ((advice (intern (format "spacemacs/%s" (symbol-name sym)))))
|
||||||
(eval `(defadvice ,sym (after ,advice activate)
|
(eval `(defadvice ,sym (after ,advice activate)
|
||||||
(ahs-highlight-now)
|
(ahs-highlight-now)
|
||||||
(setq spacemacs-last-ahs-highlight-p (ahs-highlight-p))
|
(setq spacemacs-last-ahs-highlight-p (ahs-highlight-p))
|
||||||
(spacemacs/auto-highlight-symbol-overlay-map)))))
|
(spacemacs/auto-highlight-symbol-overlay-map)))))
|
||||||
(defun 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
|
"Set a temporary overlay map to easily jump from highlighted symbols to
|
||||||
the nexts."
|
the nexts."
|
||||||
(interactive)
|
(interactive)
|
||||||
(set-temporary-overlay-map
|
(set-temporary-overlay-map
|
||||||
(let ((map (make-sparse-keymap)))
|
(let ((map (make-sparse-keymap)))
|
||||||
(define-key map (kbd "d") 'ahs-forward-definition)
|
(define-key map (kbd "d") 'ahs-forward-definition)
|
||||||
(define-key map (kbd "D") 'ahs-backward-definition)
|
(define-key map (kbd "D") 'ahs-backward-definition)
|
||||||
(define-key map (kbd "e") 'ahs-edit-mode)
|
(define-key map (kbd "e") 'ahs-edit-mode)
|
||||||
(define-key map (kbd "n") 'ahs-forward)
|
(define-key map (kbd "n") 'ahs-forward)
|
||||||
(define-key map (kbd "N") 'ahs-backward)
|
(define-key map (kbd "N") 'ahs-backward)
|
||||||
(define-key map (kbd "R") 'ahs-back-to-start)
|
(define-key map (kbd "R") 'ahs-back-to-start)
|
||||||
(define-key map (kbd "r") (lambda () (interactive)
|
(define-key map (kbd "r") (lambda () (interactive)
|
||||||
(eval '(ahs-change-range) nil)))
|
(eval '(ahs-change-range) nil)))
|
||||||
map) nil)
|
map) nil)
|
||||||
(let* ((i 0)
|
(let* ((i 0)
|
||||||
(overlay-count (length ahs-overlay-list))
|
(overlay-count (length ahs-overlay-list))
|
||||||
(overlay (format "%s" (nth i ahs-overlay-list)))
|
(overlay (format "%s" (nth i ahs-overlay-list)))
|
||||||
(current-overlay (format "%s" ahs-current-overlay))
|
(current-overlay (format "%s" ahs-current-overlay))
|
||||||
(st (ahs-stat))
|
(st (ahs-stat))
|
||||||
(plighter (ahs-current-plugin-prop 'lighter))
|
(plighter (ahs-current-plugin-prop 'lighter))
|
||||||
(plugin (format " <%s> " (cond ((string= plighter "HS") "D")
|
(plugin (format " <%s> " (cond ((string= plighter "HS") "D")
|
||||||
((string= plighter "HSA") "B")
|
((string= plighter "HSA") "B")
|
||||||
((string= plighter "HSD") "F"))))
|
((string= plighter "HSD") "F"))))
|
||||||
(propplugin (propertize plugin 'face `(
|
(propplugin (propertize plugin 'face `(
|
||||||
:foreground "#ffffff"
|
:foreground "#ffffff"
|
||||||
:background ,(face-attribute
|
:background ,(face-attribute
|
||||||
'ahs-plugin-defalt-face :foreground)))))
|
'ahs-plugin-defalt-face :foreground)))))
|
||||||
(while (not (string= overlay current-overlay))
|
(while (not (string= overlay current-overlay))
|
||||||
(setq i (1+ i))
|
(setq i (1+ i))
|
||||||
(setq overlay (format "%s" (nth i ahs-overlay-list))))
|
(setq overlay (format "%s" (nth i ahs-overlay-list))))
|
||||||
(let* ((x/y (format "[%s/%s]" (- overlay-count i) overlay-count))
|
(let* ((x/y (format "[%s/%s]" (- overlay-count i) overlay-count))
|
||||||
(propx/y (propertize x/y 'face ahs-plugin-whole-buffer-face))
|
(propx/y (propertize x/y 'face ahs-plugin-whole-buffer-face))
|
||||||
(hidden (if (< 0 (- overlay-count (nth 4 st))) "*" ""))
|
(hidden (if (< 0 (- overlay-count (nth 4 st))) "*" ""))
|
||||||
(prophidden (propertize hidden 'face '(:weight bold))))
|
(prophidden (propertize hidden 'face '(:weight bold))))
|
||||||
(echo "%s %s%s press (n/N) to navigate, (e) to edit, (r) to change range or (R) for reset"
|
(echo "%s %s%s press (n/N) to navigate, (e) to edit, (r) to change range or (R) for reset"
|
||||||
propplugin propx/y prophidden)))))))
|
propplugin propx/y prophidden)))))))
|
||||||
|
|
||||||
(defun spacemacs/init-bookmark ()
|
(defun spacemacs/init-bookmark ()
|
||||||
(use-package bookmark
|
(use-package bookmark
|
||||||
|
|
Loading…
Reference in a new issue