diff options
| author | polwex <polwex@sortug.com> | 2025-09-11 01:48:14 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-09-11 01:48:14 +0700 |
| commit | b1d68ac307ed87d63e83820cbdf843fff0fd9f7f (patch) | |
| tree | d6a684a70a80509e68ff667b842aa4e4c091906f /desk/lib/json/common.hoon | |
init
Diffstat (limited to 'desk/lib/json/common.hoon')
| -rw-r--r-- | desk/lib/json/common.hoon | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/desk/lib/json/common.hoon b/desk/lib/json/common.hoon new file mode 100644 index 0000000..64d4b03 --- /dev/null +++ b/desk/lib/json/common.hoon @@ -0,0 +1,29 @@ +/+ sr=sortug +|% +++ en +=, enjs:format + |% + ++ cord |= s=@t ^- json s+s + ++ hex |= h=@ux ^- json + [%s (crip (scow:sr %ux h))] + ++ b64 |= h=@uv ^- json + [%s (crip (scow:sr %uv h))] + ++ ud |= n=@ ^- json + [%s (crip (scow:sr %ud n))] + ++ patp |= p=@p ^- json + [%s (scot %p p)] + -- +++ de +=, dejs-soft:format + |% + ++ hex |= jon=json ^- (unit @ux) + ?. ?=(%s -.jon) ~ + =/ atom=(unit @) (slaw:sr %ux p.jon) + ?~ atom ~ + atom + ++ se |= aur=@tas |= jon=json + ?. ?=(%s -.jon) ~ + (slaw aur p.jon) + -- + +-- |