public/to-edn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow for symbol keywords too

Browse Source
This commit is contained in:
niten 2022-05-30 16:21:28 -07:00
parent 730709b4e2
commit 6e708bcd8d
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
to-edn.nix
View File

@ -3,10 +3,12 @@
with lib; with lib;
let let
isSymbol = str: !(isNull (builtins.match "^'.+" str)); isSymbol = str: !(isNull (builtins.match "^'.+" str));
stripQuote = str: head (builtins.match "^'(.+)" str); stripQuote = str:
if (isSymbol str) then head (builtins.match "^'(.+)" str) else str;
parseStr = str: if (isSymbol str) then (stripQuote str) else ''"${str}"''; parseStr = str: if (isSymbol str) then (stripQuote str) else ''"${str}"'';
parseKeyword = str: if (isSymbol str) then (stripQuote str) else ":${str}";
join-str = concatStringsSep " "; join-str = concatStringsSep " ";
toEDN = ds: toEDN = ds:
if isString ds then if isString ds then
parseStr ds parseStr ds
@ -18,7 +20,10 @@ let
"[ ${join-str (map toEDN ds)} ]" "[ ${join-str (map toEDN ds)} ]"
else else
(if isAttrs ds then (if isAttrs ds then
"{ ${join-str (mapAttrsToList (k: v: ":${k} ${toEDN v}") ds)} }" "{ ${
join-str
(mapAttrsToList (k: v: ":${parseKeyword k} ${toEDN v}") ds)
} }"
else else
throw "unsupported type: ${builtins.typeOf ds}: ${ds}"))); throw "unsupported type: ${builtins.typeOf ds}: ${ds}")));