   (let [xs          (:entries (file-load-ueberfoo filename))
         options-vec (make-options-vec options)
         opt-map     (parse-list-options options-vec)
-        filtered    (filter (make-filter opt-map) xs)
-        selected    (map (make-selector opt-map) filtered)
+        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      ((make-list-post-processor opt-map-n) selected)
-        xform       (make-entry-formatter opt-map)
+        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


;;; list transformation

(defn make-list-post-processor [opt-map]
  {:pre [(contains? opt-map :nr-of-entries)]}
  (let [order-fn (if (:reverse opt-map) reverse identity)
        offset   (if-let [n (:offset opt-map)] n 0)

;; created 2012-01-14
;; author Harald Beck

(ns ueberfoo.commandline
