diff --git a/app/mark-dashboard.hoon b/app/mark-dashboard.hoon deleted file mode 100644 index 74983be48a..0000000000 --- a/app/mark-dashboard.hoon +++ /dev/null @@ -1,78 +0,0 @@ -|% -++ results (map mark (each vase tang)) -++ show-results - =, format - |= a/results ^- json - :- %o - %- ~(run by a) - |= b/(each vase tang) - ?- -.b - %& (tape:enjs (text p.b)) - %| (tape:enjs (of-wall (wush 160 (flop p.b)))) - == -++ wush - |= {wid/@u tan/tang} ^- wall - (zing (turn tan |=(a/tank (wash 0^wid a)))) --- -:: -=, gall -=, ford -|_ {bowl ~} -++ peek _~ -++ peer-scry-x - |= path - [[ost %exec /all-marks our `build-marks]~ +>] -:: -++ made-all-marks - |= {path @uvH a/gage} - :_ +>.$ - ?> ?=($tabl -.a) - =; res/results - [ost %diff [%json (show-results res)]]~ - %- malt - %+ turn p.a - |= {k/gage v/gage} ^- {mark (each vase tang)} - :- ?>(?=({%& $mark * @tas} k) q.q.p.k) - ?- -.v - $tabl !! - %& [%& q.p.v] - %| v - == -:: -++ build-marks - ^- {beak silk} - :- now-beak - :- %tabl - %+ turn (weld list-marks list-sub-marks) - |= {a/mark ~} ^- {silk silk} - :- [%$ %mark !>(a)] - [%bunt a] -:: -++ poke-noun - |= * - ~& have+list-marks - `+> -:: -++ now-beak %_(byk r [%da now]) -++ list-marks - =, space:userlib - =, format - =+ .^(arch %cy (en-beam now-beak /mar)) - %+ skim ~(tap by dir) - |= {a/mark ~} - ?=(^ (file (en-beam now-beak /hoon/[a]/mar))) -:: -++ list-sub-marks - =, space:userlib - =, format - ^- (list {mark ~}) - %- zing ^- (list (list {mark ~})) - =/ top .^(arch %cy (en-beam now-beak /mar)) - %+ turn ~(tap by dir.top) - |= {sub/knot ~} - =+ .^(arch %cy (en-beam now-beak /[sub]/mar)) - %+ murn ~(tap by dir) - |= {a/mark ~} ^- (unit {mark ~}) - ?~ (file (en-beam now-beak /hoon/[a]/[sub]/mar)) ~ - `[(rap 3 sub '-' a ~) ~] --- diff --git a/app/test.hoon b/app/test.hoon index 9720bec233..17c9e20bc2 100644 --- a/app/test.hoon +++ b/app/test.hoon @@ -159,8 +159,6 @@ :- /ren/run "not meant to be called except on a (different) hoon file" :- /ren/collections "temporarily disabled" :- /ren/test-gen "temporarily disabled" - :- /ren/tree/index "temporarily disabled" - :- /ren/tree/elem "temporarily disabled" :- /ren/urb "temporarily disabled" :- /ren/x-urb "temporarily disabled" :- /ren/x-htm "temporarily disabled" @@ -174,21 +172,7 @@ ^~ ^- (map path tape) %- my :~ ::TODO don't hardcode :: - :- /app/pipe "wants 'flavor:hall' to exist" - :- /app/mark-dashboard "wants old ford" - :- /app/static "wants old ford" :- /gen/capitalize "wants unicode-data/txt" - :: - :- /app/twit "depends on sur/twitter" - :- /gen/twit/as "depends on sur/twitter" - :- /gen/twit/feed "depends on sur/twitter" - :- /mar/twit/cred "depends on sur/twitter" - :- /mar/twit/feed "depends on sur/twitter" - :- /mar/twit/post "depends on sur/twitter" - :- /mar/twit/req "depends on sur/twitter" - :- /mar/twit/usel "depends on sur/twitter" - :- /lib/twitter "depends on sur/twitter" - :- /sur/twitter "crashes with new type system" :: :- /gen/al "compiler types out-of-date" :- /gen/musk "compiler types out-of-date" diff --git a/app/time.hoon b/app/time.hoon deleted file mode 100644 index ac5d21e891..0000000000 --- a/app/time.hoon +++ /dev/null @@ -1,19 +0,0 @@ -:: -:::: /hoon/time/app - :: -/? 310 -|% -++ card {$wait wire @da} --- -|_ {bowl:gall ~} -++ poke-noun - |= * - :_ +>.$ :_ ~ - [ost %wait /(scot %da now) +(now)] -:: -++ wake - |= {wir/wire ~} - ?> ?=({@ ~} wir) - ~& [%took `@dr`(sub now (slav %da i.wir))] - [~ +>.$] ---