         xs          (:entries m)
         options-vec (make-options-vec options)
         opt-map     (parse-list-options options-vec)
-        filtered    (filter (make-filter opt-map) xs)
+        filtered    (filter (mk-filter opt-map) xs)
         ids         (set (map :id filtered))
         other-xs    (vec (filter #(not (contains? ids (:id %))) xs))
         new-m       (update-map m other-xs)]

;; created 2012-01-14 00:10
;; author Harald Beck

(ns ueberfoo.commandline

  (let [xs          (:entries (file-load-ueberfoo filename))
        options-vec (make-options-vec options)
        opt-map     (parse-list-options options-vec)
        filtered    (filter (mk-filter opt-map) xs)
        selected    (map (mk-selector opt-map) filtered)
        opt-map-n   (assoc opt-map :nr-of-entries (count selected))
        result      ((mk-list-post-processor opt-map-n) selected)
        xform       (mk-entry-formatter opt-map)
        one-liners? (and (not (:all opt-map)) (= 1 (count (:select opt-map))))
        printer     (if one-liners? print println)]
    (do
