              (if _ 'show-all))})))
 
 (defn- orphan-frame [line]
-  (let [[_ table] (re-find orphan-pattern line)]
+  (let [[_ table] (re-find #"^\s*orph(?:\s+([^\s]+))?\s*$" line)]
     (if _
       {:dir :orphan-frame
        :key (if table

             'show)})))

(defn- toggle-setting [line]
  (let [[_ key] (re-find toggle-variable-pattern line)]
    (if key
     {:dir :toggle
      :key (keyword key)})))

(defn- show-tables [line]
  (let [[_ table] (re-find show-tables-pattern line)]
    (if _
     {:dir :show-table
      :key (if table

(def ^{:private true
       :dynamic true}
  *query* nil)

(def ^:private input-rules
  '([has-end-tok :linesep false :end-query]
