From 387af8fc1603805b02ce03f8adba4fa73a954f7c Mon Sep 17 00:00:00 2001 From: polwex Date: Wed, 17 Sep 2025 12:24:41 +0700 Subject: relay much more robust --- backupdesk/lib/json/common.hoon | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 backupdesk/lib/json/common.hoon (limited to 'backupdesk/lib/json/common.hoon') 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) + -- + +-- -- cgit v1.2.3