   "Return the name of the transient state function."
   (intern (format "spacemacs/%S-transient-state/body" name)))
 
+(defun spacemacs//transient-state-heads-name (name)
+  "Return the name of the transient state heads variable which
+holds the key bindings."
+  (intern (format "spacemacs/%S-transient-state/heads" name)))
+
 (defun spacemacs//transient-state-adjust-bindings (bindings to-remove to-add)
   (append
    (cl-remove-if

                           "\n" ,hint-var
                           (when dotspacemacs-show-transient-state-color-guide
                             (concat "\n" guide))))))
           ,@bindkeys)))))

(provide 'core-transient-state)

   (when (and (boundp to-add)
              (listp (symbol-value to-add)))
     (symbol-value to-add))))

(defun spacemacs//transient-state-make-doc
    (transient-state docstring &optional body)
  (let ((heads (spacemacs//transient-state-heads-name transient-state)))
    (setq body (if body body '(nil nil :hint nil :foreign-keys nil)))
    (eval
     (hydra--format nil body docstring (symbol-value heads)))))

;; (defface spacemacs-transient-state-title-face
;;   `((t :background "DarkGoldenrod2"
