foo->>.clj

; Experiment with 'foo' blocks as an alternative to -> and ->>.
(defmacro foo
  ([] '%)
  ([form & more]
    `(let [~'% ~form] (foo ~@more))) )

(def foo-ex1
  (foo
    1
    (+ 1 %)
    (/ % 2) ) )

(def foo-ex2
  [
    '(->>
      (map vector (range) coll)
      (filter (fn [[i & args]] (apply f args)))
      (map first))

    '(foo
      (map vector (range) coll)
      (filter (fn [[i & args]] (apply f args)) %)
      (map first %)) ] )