         description
         (if-not (empty? options) \newline)
         (:summary (cli/parse-opts nil options)))))
-
-(defn- action-keys [action-context]
-  (or (:action-print-order action-context)
-      (map first (:action-definitions action-context))))
 
 (defn help-message
   "Generate the help message text and return it.

        (cli/parse-opts arguments option-defs)
        errors (if action
                 errors
                 (cons (format "No such action: %s" (name action-key))
                       errors))]
    (binding [*parse-context* {:action-context action-context
                               :actions actions

                         (s/join "|")
                         (format " <%s>"))))))))

(defn- action-keys [action-context]
  (or (:action-print-order action-context)
      (map first (:action-definitions action-context))))

(defn- action-help
  ([{:keys [name] :as action} skip-action-name?]
