Skip to content

Instantly share code, notes, and snippets.

@lukaszkorecki

lukaszkorecki/rec.clj

Last active October 8, 2019 16:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save lukaszkorecki/7cf33665fb70e8357210af925834de4f to your computer and use it in GitHub Desktop.
Save lukaszkorecki/7cf33665fb70e8357210af925834de4f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
rec.clj
user=> (defrecord Foo [foo bar])
user.Foo
user=> (def f (->Foo :foo :bar))
#'user/f
user=> (defrecord Qux [foo bar baz])
user.Qux
user=> (def q (map->Qux (select-keys f [:foo :bar])))
#'user/q
user=> (clojure.pprint/pprint q)
{:foo :foo, :bar :bar, :baz nil}
user=> (def q (map->Qux f))
#'user/q
user=> (clojure.pprint/pprint q)
{:foo :foo, :bar :bar, :baz nil}
nil
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment