Skip to content

Instantly share code, notes, and snippets.

@cemerick
Created January 23, 2017 17:26
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 cemerick/8959b068a7e41c13219a42f130f6441f to your computer and use it in GitHub Desktop.
Save cemerick/8959b068a7e41c13219a42f130f6441f to your computer and use it in GitHub Desktop.
REPL "pretty" printing records in cursive
(ns asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf)
=> nil
(defrecord Foo [a b c d])
=> asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf.Foo
(Foo. 1 2 3 4)
=> #asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf.Foo{:a 1, :b 2, :c 3, :d 4}
{:a 1 :b 2 :c 3 :d 5 :e 6 :f 7 :g 8 :h 9 :i 0 :j 1 :k 2 :l 3 :m 4 :n 5 :o 6 :p 7 :q 8}
=>
{:q 8,
:o 6,
:n 5,
:m 4,
:e 6,
:l 3,
:k 2,
:g 8,
:c 3,
:j 1,
:h 9,
:b 2,
:d 5,
:f 7,
:p 7,
:i 0,
:a 1}
(into (Foo. 1 2 3 4) *1)
=>
#asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf.Foo{:a 1,
:b 2,
:c 3,
:d 5,
:q 8,
:o 6,
:n 5,
:m 4,
:e 6,
:l 3,
:k 2,
:g 8,
:j 1,
:h 9,
:f 7,
:p 7,
:i 0}
(Foo. (Foo. (Foo. (Foo. 1 2 3 4) 2 3 4) 2 3 4) 2 3 4)
=>
#asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf.Foo{:a #asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf.Foo{:a #asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf.Foo{:a #asdfasdfasdf.asdfasdfa.adsfasd.fasdfa.sdfadsf.Foo{:a 1,
:b 2,
:c 3,
:d 4},
:b 2,
:c 3,
:d 4},
:b 2,
:c 3,
:d 4},
:b 2,
:c 3,
:d 4}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment