mirror of
https://github.com/urbit/shrub.git
synced 2024-12-13 16:03:36 +03:00
Delete more apps and update the test app
This commit is contained in:
parent
8837dc8293
commit
2c4e537b72
@ -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 ~) ~]
|
||||
--
|
@ -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"
|
||||
|
@ -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))]
|
||||
[~ +>.$]
|
||||
--
|
Loading…
Reference in New Issue
Block a user