diff options
| author | polwex <polwex@sortug.com> | 2025-09-17 12:24:41 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-09-17 12:24:41 +0700 |
| commit | 387af8fc1603805b02ce03f8adba4fa73a954f7c (patch) | |
| tree | 6ac4fe9c33a14d9da418a97955a38efb9338d869 /backupdesk/lib/json/common.hoon | |
| parent | 31a47ce72255bb56920e417d250541b04be82648 (diff) | |
relay much more robust
Diffstat (limited to 'backupdesk/lib/json/common.hoon')
| -rw-r--r-- | backupdesk/lib/json/common.hoon | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/backupdesk/lib/json/common.hoon b/backupdesk/lib/json/common.hoon new file mode 100644 index 0000000..64d4b03 --- /dev/null +++ b/backupdesk/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) + -- + +-- |