 
 
       (spacemacs|define-micro-state helm-navigation
-        :on-enter (spacemacs//on-enter-helm-navigation-ms)
-        :on-exit  (spacemacs//on-exit-helm-navigation-ms)
+        :on-enter (spacemacs//helm-navigation-ms-on-enter)
+        :on-exit  (spacemacs//helm-navigation-ms-on-exit)
         :bindings
         ("C-SPC" nil :exit t)
         ("C-@" nil :exit t)
         ("<tab>" helm-select-action :exit t)
         ("C-i" helm-select-action :exit t)
         ("?" nil :doc (spacemacs//helm-navigation-ms-full-doc))
-        ("a" helm-select-action)
+        ("a" helm-select-action :post (spacemacs//helm-navigation-ms-set-face))
         ("h" helm-previous-source)
         ("j" helm-next-line)
         ("k" helm-previous-line)

      ;;shell
      (evil-leader/set-key-for-mode 'shell-mode "mH" 'spacemacs/helm-shell-history)

      (defun spacemacs//on-enter-helm-navigation-ms ()
        "Initialization of helm micro-state."
        (set (make-variable-buffer-local
              'spacemacs--helm-navigation-ms-face-cookie)
             (face-remap-add-relative
              'minibuffer-prompt
              'spacemacs-helm-navigation-ms-face))
        ;; bind actions on numbers starting from 1 which executes action 0
        (dotimes (n 10)
          (define-key helm-map (number-to-string n)
            `(lambda () (interactive) (helm-select-nth-action
                                       ,(% (+ n 9) 10))))))

      (defun spacemacs//on-exit-helm-navigation-ms ()
        "Action to perform when exiting helm micro-state."
        ;; restore helm key map
        (dotimes (n 10) (define-key helm-map (number-to-string n) nil))
        ;; restore faces
        (face-remap-remove-relative spacemacs--helm-navigation-ms-face-cookie))

      (defun spacemacs//helm-navigation-ms-full-doc ()
        "Full documentation for helm navigation micro-state."

  [v]          open in a new vertical split")

      (spacemacs|define-micro-state ido-navigation
        :on-enter (spacemacs//ido-navigation-ms-on-enter)
        :on-exit  (spacemacs//ido-navigation-ms-on-exit)
        ;; :doc (concat
        ;;       "[j] [k] prev/next match [h] delete [l] select match "
        ;;       "[J] [K] parent/sub directory [n] [p] history ")
