           :before-exit ,exit-sexp)
          ,doc
          ,@bindings)
+       (when ,title
+         (setq ,hint-var
+               (list 'concat
+                     (propertize ,title
+                           'face 'spacemacs-micro-state-title-face)
+                     "\n" ,hint-var)))
        ,@bindkeys)))
 
 

                                      (listp (symbol-value add-bindings)))
                             (symbol-value add-bindings))))
         (doc (or (plist-get props :doc) "\n"))
         (columns (plist-get props :columns))
         (entry-sexp (plist-get props :on-enter))
         (exit-sexp (plist-get props :on-exit))

       (dolist (binding ',bindings)
         (push binding ,add-bindings)))))

(defface spacemacs-micro-state-title-face
  '((t :inherit header-line))
  "Face for title of micro states.")

(defmacro spacemacs|define-micro-state-2 (name &rest props)
  "Define a micro-state called NAME.
NAME is a symbol.
