luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added support for namespaced keywords.

Browse source
This commit is contained in:
Peter Taoussanis 2012-07-08 13:00:34 +07:00
parent 8f9bce289b
commit cddd2eef13
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.md
View file

@ -60,6 +60,7 @@ nippy/stress-data
:string-utf8 "ಬಾ ಇಲ್ಲಿ ಸಂಭವಿಸ" :string-utf8 "ಬಾ ಇಲ್ಲಿ ಸಂಭವಿಸ"
:string-long (apply str (range 1000)) :string-long (apply str (range 1000))
:keyword :keyword :keyword :keyword
:ns-keyword ::keyword
:list (list 1 2 3 4 5 (list 6 7 8 (list 9 10))) :list (list 1 2 3 4 5 (list 6 7 8 (list 9 10)))
:list-quoted '(1 2 3 4 5 (6 7 8 (9 10))) :list-quoted '(1 2 3 4 5 (6 7 8 (9 10)))

5
src/taoensso/nippy.clj
View file

@ -100,7 +100,9 @@
(freezer Character id-char (.writeChar s (int x))) (freezer Character id-char (.writeChar s (int x)))
(freezer String id-string (.writeUTF s x)) (freezer String id-string (.writeUTF s x))
(freezer Keyword id-keyword (.writeUTF s (name x))) (freezer Keyword id-keyword (.writeUTF s (if-let [ns (namespace x)]
(str ns "/" (name x))
(name x))))
(declare freeze-to-stream!*) (declare freeze-to-stream!*)
@ -252,6 +254,7 @@
:string-utf8 "ಬಾ ಇಲ್ಲಿ ಸಂಭವಿಸ" :string-utf8 "ಬಾ ಇಲ್ಲಿ ಸಂಭವಿಸ"
:string-long (apply str (range 1000)) :string-long (apply str (range 1000))
:keyword :keyword :keyword :keyword
:ns-keyword ::keyword
:list (list 1 2 3 4 5 (list 6 7 8 (list 9 10))) :list (list 1 2 3 4 5 (list 6 7 8 (list 9 10)))
:list-quoted '(1 2 3 4 5 (6 7 8 (9 10))) :list-quoted '(1 2 3 4 5 (6 7 8 (9 10)))