Skip to content

Instantly share code, notes, and snippets.

@cpetzold

cpetzold/fun-with-fnks.clj

Last active August 29, 2015 14:08
Show Gist options
  • Save cpetzold/5762b240c7216d2a0a87 to your computer and use it in GitHub Desktop.
Save cpetzold/5762b240c7216d2a0a87 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fun-with-fnks.clj
(defmacro fnk-> [bindings & body]
`(fn [x# y#]
(letk [~bindings #y]
(-> x# ~@body))))
(defmacro fnk->> [bindings & body]
`(fn [x# y#]
(letk [~bindings #y]
(->> x# ~@body))))
(comment
((fnk-> [foo] (assoc :pwn foo))
{:hello "world"}
{:foo "bar"})
;; => {:hello "world" :pwn "bar"}
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment