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

    Evaluate SEXP when leaving the micro-state.
`:doc STRING or SEXP'
    A docstring supported by `defhydra'.
`:columns INTEGER'
    Automatically generate :doc with this many number of columns.
`:hint BOOLEAN'

          :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)))


