                                       (listp (symbol-value add-bindings)))
                              (symbol-value add-bindings))))
          (doc (or (plist-get props :doc) "\n"))
+         (title (plist-get props :title))
+         (hint-var (intern (format "%s/hint" func)))
          (columns (plist-get props :columns))
          (entry-sexp (plist-get props :on-enter))
          (exit-sexp (plist-get props :on-exit))

          :before-exit ,exit-sexp)
         ,doc
         ,@bindings)
       ,@bindkeys)))



       (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.
