               (if _ 'default-label))})))
 
 (defn- config-catalog [line]
-  (let [[_ catalog] (re-find config-catalog-pattern line)]
+  (let [[_ catalog] (re-find #"^\s*cfcat\s+([^\s]+)\s*$" line)]
     (if _
      {:dir :config-catalog
       :catalog catalog})))

      {:dir directive})))

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

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

             'show)})))

(defn- toggle-setting [line]
  (let [[_ key] (re-find #"^\s*tg\s+([^\s]+)\s*$" line)]
    (if key
     {:dir :toggle
      :key (keyword key)})))

(defn- show-tables [line]
  (let [[_ table] (re-find #"^\s*shtab(?:\s+([^\s]+))?\s*$" line)]
    (if _
     {:dir :show-table
      :key (if table
