parse-args-f

parse-args-f.clj

;; seealso https://twitter.com/#!/mnzktw/status/155976688021405696

(defn parse-args [args]
  (->> (concat ["-f" nil] args)
       (partition-by (partial = "-f") )
       (partition 2)
       (map second)
       ((juxt (comp rest (partial map first))
              (partial mapcat rest)))))

;;-- examples

(parse-args '("-f" "foo" "-f" "bar" "hoge" "-f" "fizz" "fuga" "piyo"))
;;=> [("foo" "bar" "fizz") ("hoge" "fuga" "piyo")]

(parse-args '("foo" "-f" "bar" "hoge" "-f" "fizz" "fuga" "piyo"))
;;=> [("bar" "fizz") ("foo" "hoge" "fuga" "piyo")]

(parse-args '("foo" "bar" "hoge" "fizz" "fuga" "piyo"))
;;=> [() ("foo" "bar" "hoge" "fizz" "fuga" "piyo")]

(parse-args '("-f" "foo" "-f" "bar" "-f" "hoge"))
;;=> [("foo" "bar" "hoge") ()]