urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 01:08:54 +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

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

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