From 5dad44f377476d5246b6df13bb4d8c6711218932 Mon Sep 17 00:00:00 2001 From: SuperCoolYun Date: Wed, 7 Feb 2024 17:35:09 -0500 Subject: [PATCH] remove docket --- desk/desk.docket-0 | 10 -- desk/lib/docket.hoon | 223 ----------------------------------------- desk/mar/docket-0.hoon | 25 ----- 3 files changed, 258 deletions(-) delete mode 100644 desk/desk.docket-0 delete mode 100644 desk/lib/docket.hoon delete mode 100644 desk/mar/docket-0.hoon diff --git a/desk/desk.docket-0 b/desk/desk.docket-0 deleted file mode 100644 index c1d02e15..00000000 --- a/desk/desk.docket-0 +++ /dev/null @@ -1,10 +0,0 @@ -:~ - title+'near-gateway' - info+'NEAR gateway manager' - color+0xa6.7bc4 - base+'near' - site+/apps/near - version+[0 0 1] - website+'https://github.com/urbit' - license+'MIT' -== \ No newline at end of file diff --git a/desk/lib/docket.hoon b/desk/lib/docket.hoon deleted file mode 100644 index ef39b7fb..00000000 --- a/desk/lib/docket.hoon +++ /dev/null @@ -1,223 +0,0 @@ -/- *docket -|% -:: -++ mime - |% - +$ draft - $: title=(unit @t) - info=(unit @t) - color=(unit @ux) - glob-http=(unit [=url hash=@uvH]) - glob-ames=(unit [=ship hash=@uvH]) - base=(unit term) - site=(unit path) - image=(unit url) - version=(unit version) - website=(unit url) - license=(unit cord) - == - :: - ++ finalize - |= =draft - ^- (unit docket) - ?~ title.draft ~ - ?~ info.draft ~ - ?~ color.draft ~ - ?~ version.draft ~ - ?~ website.draft ~ - ?~ license.draft ~ - =/ href=(unit href) - ?^ site.draft `[%site u.site.draft] - ?~ base.draft ~ - ?^ glob-http.draft - `[%glob u.base hash.u.glob-http %http url.u.glob-http]:draft - ?~ glob-ames.draft - ~ - `[%glob u.base hash.u.glob-ames %ames ship.u.glob-ames]:draft - ?~ href ~ - =, draft - :- ~ - :* %1 - u.title - u.info - u.color - u.href - image - u.version - u.website - u.license - == - :: - ++ from-clauses - =| =draft - |= cls=(list clause) - ^- (unit docket) - =* loop $ - ?~ cls (finalize draft) - =* clause i.cls - =. draft - ?- -.clause - %title draft(title `title.clause) - %info draft(info `info.clause) - %color draft(color `color.clause) - %glob-http draft(glob-http `[url hash]:clause) - %glob-ames draft(glob-ames `[ship hash]:clause) - %base draft(base `base.clause) - %site draft(site `path.clause) - %image draft(image `url.clause) - %version draft(version `version.clause) - %website draft(website `website.clause) - %license draft(license `license.clause) - == - loop(cls t.cls) - :: - ++ to-clauses - |= d=docket - ^- (list clause) - %- zing - :~ :~ title+title.d - info+info.d - color+color.d - version+version.d - website+website.d - license+license.d - == - ?~ image.d ~ ~[image+u.image.d] - ?: ?=(%site -.href.d) ~[site+path.href.d] - =/ ref=glob-reference glob-reference.href.d - :~ base+base.href.d - ?- -.location.ref - %http [%glob-http url.location.ref hash.ref] - %ames [%glob-ames ship.location.ref hash.ref] - == == == - :: - ++ spit-clause - |= =clause - ^- tape - %+ weld " {(trip -.clause)}+" - ?+ -.clause "'{(trip +.clause)}'" - %color (scow %ux color.clause) - %site (spud path.clause) - :: - %glob-http - "['{(trip url.clause)}' {(scow %uv hash.clause)}]" - :: - %glob-ames - "[{(scow %p ship.clause)} {(scow %uv hash.clause)}]" - :: - %version - =, version.clause - "[{(scow %ud major)} {(scow %ud minor)} {(scow %ud patch)}]" - == - :: - ++ spit-docket - |= dock=docket - ^- tape - ;: welp - ":~\0a" - `tape`(zing (join "\0a" (turn (to-clauses dock) spit-clause))) - "\0a==" - == - -- -:: -++ enjs - =, enjs:format - |% - :: - ++ charge-update - |= u=^charge-update - ^- json - %+ frond -.u - ^- json - ?- -.u - %del-charge s+desk.u - :: - %initial - %- pairs - %+ turn ~(tap by initial.u) - |=([=desk c=^charge] [desk (charge c)]) - :: - %add-charge - %- pairs - :~ desk+s+desk.u - charge+(charge charge.u) - == - == - :: - ++ num - |= a=@u - ^- ^tape - =/ p=json (numb a) - ?> ?=(%n -.p) - (trip p.p) - :: - ++ version - |= v=^version - ^- json - :- %s - %- crip - "{(num major.v)}.{(num minor.v)}.{(num patch.v)}" - :: - ++ merge - |= [a=json b=json] - ^- json - ?> &(?=(%o -.a) ?=(%o -.b)) - [%o (~(uni by p.a) p.b)] - :: - ++ href - |= h=^href - %+ frond -.h - ?- -.h - %site s+(spat path.h) - %glob - %- pairs - :~ base+s+base.h - glob-reference+(glob-reference glob-reference.h) - == - == - :: - ++ glob-reference - |= ref=^glob-reference - %- pairs - :~ hash+s+(scot %uv hash.ref) - location+(glob-location location.ref) - == - :: - ++ glob-location - |= loc=^glob-location - ^- json - %+ frond -.loc - ?- -.loc - %http s+url.loc - %ames s+(scot %p ship.loc) - == - :: - ++ charge - |= c=^charge - %+ merge (docket docket.c) - %- pairs - :~ chad+(chad chad.c) - == - :: - ++ docket - |= d=^docket - ^- json - %- pairs - :~ title+s+title.d - info+s+info.d - color+s+(scot %ux color.d) - href+(href href.d) - image+?~(image.d ~ s+u.image.d) - version+(version version.d) - license+s+license.d - website+s+website.d - == - :: - ++ chad - |= c=^chad - %+ frond -.c - ?+ -.c ~ - %hung s+err.c - == - -- --- diff --git a/desk/mar/docket-0.hoon b/desk/mar/docket-0.hoon deleted file mode 100644 index c3b253b3..00000000 --- a/desk/mar/docket-0.hoon +++ /dev/null @@ -1,25 +0,0 @@ -/+ dock=docket -|_ =docket:dock -++ grow - |% - ++ mime - ^- ^mime - [/text/x-docket (as-octt:mimes:html (spit-docket:mime:dock docket))] - ++ noun docket - ++ json (docket:enjs:dock docket) - -- -++ grab - |% - :: - ++ mime - |= [=mite len=@ud tex=@] - ^- docket:dock - %- need - %- from-clauses:mime:dock - !<((list clause:dock) (slap !>(~) (ream tex))) - - :: - ++ noun docket:dock - -- -++ grad %noun ---