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/mar/kelvin.hoon | |
| parent | 31a47ce72255bb56920e417d250541b04be82648 (diff) | |
relay much more robust
Diffstat (limited to 'backupdesk/mar/kelvin.hoon')
| -rw-r--r-- | backupdesk/mar/kelvin.hoon | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/backupdesk/mar/kelvin.hoon b/backupdesk/mar/kelvin.hoon new file mode 100644 index 0000000..7f1b409 --- /dev/null +++ b/backupdesk/mar/kelvin.hoon @@ -0,0 +1,28 @@ +|_ kal=waft:clay +++ grow + |% + ++ mime `^mime`[/text/x-kelvin (as-octs:mimes:html hoon)] + ++ noun kal + ++ hoon + %+ rap 3 + %+ turn + %+ sort + ~(tap in (waft-to-wefts:clay kal)) + |= [a=weft b=weft] + ?: =(lal.a lal.b) + (gte num.a num.b) + (gte lal.a lal.b) + |= =weft + (rap 3 '[%' (scot %tas lal.weft) ' ' (scot %ud num.weft) ']\0a' ~) + :: + ++ txt (to-wain:format hoon) + -- +++ grab + |% + ++ noun waft:clay + ++ mime + |= [=mite len=@ud tex=@] + (cord-to-waft:clay tex) + -- +++ grad %noun +-- |