     :in-dirpattern (fn [settings s] (add-pattern settings s :in-dirpatterns))
     :in-ext (fn [settings s] (add-extension settings s :in-extensions))
     :in-filepattern (fn [settings s] (add-pattern settings s :in-filepatterns))
+    :in-filetype (fn [settings s] (add-filetype settings s :in-filetypes))
     :in-linesafterpattern (fn [settings s] (add-pattern settings s :in-linesafterpatterns))
     :in-linesbeforepattern (fn [settings s] (add-pattern settings s :in-linesbeforepatterns))
     :linesafter (fn [settings s] (set-num settings s :linesafter))

    :out-dirpattern (fn [settings s] (add-pattern settings s :out-dirpatterns))
    :out-ext (fn [settings s]  (add-extension settings s :out-extensions))
    :out-filepattern (fn [settings s] (add-pattern settings s :out-filepatterns))
    :out-linesafterpattern (fn [settings s] (add-pattern settings s :out-linesafterpatterns))
    :out-linesbeforepattern (fn [settings s] (add-pattern settings s :out-linesbeforepatterns))
    :search (fn [settings s] (add-pattern settings s :searchpatterns))

        [cljsearch.common :only (log-msg)]
        [cljsearch.fileutil :only (expand-path)]
        [cljsearch.searchsettings :only
         (->SearchSettings DEFAULT-SETTINGS add-extension add-filetype add-pattern
            set-archivesonly set-debug set-num)]))

(defrecord SearchOption [short-arg long-arg desc])
