urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

drum: Boot with %chat-cli, without %hall & %talk

Browse Source 
Also refactors the surrounding code in +deft-apes.
This commit is contained in:
Fang 2019-10-08 23:18:36 +02:00
parent 24859907aa
commit 816535c311
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 29 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
pkg/arvo/lib/hood/drum.hoon
View File

@ -76,56 +76,42 @@
|= [our/ship lit/?]
%- ~(gas in *(set well:gall))
^- (list well:gall)
?: lit
:~ [%home %dojo]
[%home %azimuth-tracker]
==
=+ myr=(clan:title our)
:: boot all default apps off the home desk
::
?: ?=($pawn myr)
:~ [%home %lens]
[%base %hall]
[%base %talk]
[%base %dojo]
[%base %modulo]
[%home %launch]
[%home %publish]
[%home %clock]
[%home %weather]
[%home %group-store]
[%home %group-hook]
[%home %permission-store]
[%home %permission-group-hook]
[%home %chat-store]
[%home %chat-hook]
[%home %chat-view]
==
:~ [%home %lens]
[%home %acme]
[%home %dns]
[%home %dojo]
[%home %hall]
[%home %talk]
[%home %modulo]
[%home %launch]
[%home %publish]
[%home %clock]
[%home %weather]
[%home %group-store]
[%home %group-hook]
[%home %permission-store]
[%home %permission-group-hook]
[%home %chat-store]
[%home %chat-hook]
[%home %chat-view]
[%home %azimuth-tracker]
=- (turn - |=(a=term home+a))
^- (list term)
?: lit
:~ %dojo
%azimuth-tracker
==
%+ welp
?: ?=(%pawn (clan:title our)) ~
:~ %acme
%dns
%azimuth-tracker
==
:~ %lens
%dojo
%modulo
%launch
%publish
%clock
%weather
%group-store
%group-hook
%permission-store
%permission-group-hook
%chat-store
%chat-hook
%chat-view
%chat-cli
==
::
++ deft-fish :: default connects
|= our/ship
%- ~(gas in *(set gill:gall))
^- (list gill:gall)
[[our %talk] [our %dojo] ~]
[[our %chat-cli] [our %dojo] ~]
::
++ make :: initial part
|= our/ship