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

Minor change of function names for helm micro-state

This commit is contained in:
syl20bnr 2015-02-07 20:22:43 -05:00
parent 397d01be96
commit 6f2b6d305e
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/core-micro-states.el
View File

@ -11,7 +11,7 @@
;;
;;; License: GPLv3
(defmacro spacemacs/define-micro-state (name &rest props)
(defmacro spacemacs|define-micro-state (name &rest props)
"Define a micro-state called NAME.
NAME is a symbol.

18
spacemacs/packages.el
View File

@ -1166,8 +1166,8 @@ which require an initialization must be listed explicitly in the list.")
"fr" 'helm-recentf
"<f1>" 'helm-apropos)
(when dotspacemacs-helm-micro-state
(defcustom spacemacs-helm-micro-state-color (face-attribute
'error :foreground)
(defcustom spacemacs-helm-navigation-micro-state-color
(face-attribute 'error :foreground)
"Background color of helm header when helm micro-state is activated."
:type 'color
:group 'spacemacs)))
@ -1210,11 +1210,11 @@ which require an initialization must be listed explicitly in the list.")
(evil-leader/set-key-for-mode 'shell-mode "mH" 'spacemacs/helm-shell-history)
(when dotspacemacs-helm-micro-state
(defun spacemacs//on-enter-helm-navigation ()
(defun spacemacs//on-enter-helm-navigation-micro-state ()
"Initialization of helm micro-state."
(set-face-attribute
'helm-header nil
:background spacemacs-helm-micro-state-color)
:background spacemacs-helm-navigation-micro-state-color)
;; deactivate TAB during the micro-state (any key can be used to exit
;; the micro-state but this one seems to be a better choice so it
;; deserves a special treatment)
@ -1228,7 +1228,7 @@ which require an initialization must be listed explicitly in the list.")
`(lambda () (interactive) (helm-select-nth-action
,(% (+ n 9) 10))))))
(defun spacemacs//on-exit-helm-micro-state ()
(defun spacemacs//on-exit-helm-navigation-micro-state ()
"Action to perform when exiting helm micor-state."
;; restore helm key map
(define-key helm-map (kbd "C-i")
@ -1242,11 +1242,11 @@ which require an initialization must be listed explicitly in the list.")
(set-face-attribute
'helm-header nil
:background (face-attribute 'header-line :background)))
(spacemacs//on-exit-helm-micro-state)
(spacemacs//on-exit-helm-navigation-micro-state)
(spacemacs/define-micro-state helm-navigation
:on-enter (spacemacs//on-enter-helm-navigation)
:on-exit (spacemacs//on-exit-helm-micro-state)
(spacemacs|define-micro-state helm-navigation
:on-enter (spacemacs//on-enter-helm-navigation-micro-state)
:on-exit (spacemacs//on-exit-helm-navigation-micro-state)
:bindings
("?" helm-help)
("a" helm-select-action)