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

Background color for current range state in ash micro-state

Browse source 
ahs = auto-highlight-symbol
This commit is contained in:
syl20bnr 2014-10-04 21:39:19 -04:00
parent c33f74efd3
commit 3000e0b647
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
spacemacs/extensions.el
View file

@ -71,7 +71,8 @@
(interactive)
(set-temporary-overlay-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "c") (lambda () (interactive) (eval '(ahs-change-range) nil)))
(define-key map (kbd "c") (lambda () (interactive)
(eval '(ahs-change-range) nil)))
(define-key map (kbd "d") 'ahs-forward-definition)
(define-key map (kbd "D") 'ahs-backward-definition)
(define-key map (kbd "e") 'ahs-edit-mode)
@ -85,9 +86,13 @@
(current-overlay (format "%s" ahs-current-overlay))
(st (ahs-stat))
(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 "HSD") "F")))))
((string= plighter "HSD") "F"))))
(propplugin (propertize plugin 'face `(
:foreground "#ffffff"
:background ,(face-attribute
'ahs-plugin-defalt-face :foreground)))))
(while (not (string= overlay current-overlay))
(setq i (1+ i))
(setq overlay (format "%s" (nth i ahs-overlay-list))))
@ -96,7 +101,7 @@
(hidden (if (< 0 (- overlay-count (nth 4 st))) "*" ""))
(prophidden (propertize hidden 'face '(:weight bold))))
(message "%s %s%s press (n) or (N) to navigate, (h) for home symbol, (c) to change scope"
plugin propx/y prophidden)))))))
propplugin propx/y prophidden)))))))
(defun spacemacs/init-centered-cursor ()
(use-package centered-cursor-mode