Make %hall and %talk started on boot.

This commit is contained in:
Elliot Glaysher 2018-08-20 11:40:48 -07:00
parent 8db97cd3b7
commit 222c5c82c0
3 changed files with 5 additions and 28 deletions

View File

@ -22,22 +22,12 @@
:: == :: ==
:: ::
:::: ::::
<<<<<<< HEAD
::
=, hall-sur =, hall-sur
=, hall-lib =, hall-lib
=> :> #
:> # %arch
:> #
:> data structures
=======
::
=, hall
=> :: # => :: #
:: # %arch :: # %arch
:: # :: #
:: data structures :: data structures
>>>>>>> research-tome
:: ::
|% |%
:: # %state :: # %state
@ -592,11 +582,7 @@
=- (ta-think & our.bol tos) =- (ta-think & our.bol tos)
|- ^- tos/(list thought) |- ^- tos/(list thought)
?~ ses ~ ?~ ses ~
<<<<<<< HEAD
=^ sir eny.bol ~(uniq hall-lib bol) =^ sir eny.bol ~(uniq hall-lib bol)
=======
=^ sir eny.bol ~(uniq ^hall bol)
>>>>>>> research-tome
:_ $(ses t.ses) :_ $(ses t.ses)
[sir aud [now.bol i.ses]] [sir aud [now.bol i.ses]]
:: ::
@ -2802,7 +2788,7 @@
:: ::
|= pax/path |= pax/path
^- (quip move _+>) ^- (quip move _+>)
?: ?=({$sole *} pax) ~&(%hall-no-sole !!) ?: ?=([%sole *] pax) ~&(%hall-no-sole !!)
=+ qer=(path-to-query pax) =+ qer=(path-to-query pax)
?. (leak src.bol qer) ~&(%peer-invisible !!) ?. (leak src.bol qer) ~&(%peer-invisible !!)
=^ mos +>.$ =^ mos +>.$

View File

@ -1005,11 +1005,7 @@
^+ +> ^+ +>
?~ lit +> ?~ lit +>
=^ lic say.she =^ lic say.she
<<<<<<< HEAD
(~(transmit sole-lib say.she) `sole-edit`?~(t.lit i.lit [%mor lit])) (~(transmit sole-lib say.she) `sole-edit`?~(t.lit i.lit [%mor lit]))
=======
(~(transmit ^^sole say.she) `sole-edit`?~(t.lit i.lit [%mor lit]))
>>>>>>> research-tome
(sh-fact [%mor [%det lic] ?~(err ~ [%err u.err]~)]) (sh-fact [%mor [%det lic] ?~(err ~ [%err u.err]~)])
:: ::
++ sh-obey ++ sh-obey
@ -1031,11 +1027,7 @@
=+ buf=buf.say.she =+ buf=buf.say.she
=? ..sh-obey &(?=({$';' *} buf) !?=($reply -.u.jub)) =? ..sh-obey &(?=({$';' *} buf) !?=($reply -.u.jub))
(sh-note (tufa `(list @)`buf)) (sh-note (tufa `(list @)`buf))
<<<<<<< HEAD
=^ cal say.she (~(transmit sole-lib say.she) [%set ~]) =^ cal say.she (~(transmit sole-lib say.she) [%set ~])
=======
=^ cal say.she (~(transmit ^^sole say.she) [%set ~])
>>>>>>> research-tome
%+ sh-fact %mor %+ sh-fact %mor
:~ [%nex ~] :~ [%nex ~]
[%det cal] [%det cal]

View File

@ -78,16 +78,15 @@
%- ~(gas in *(set well:gall)) %- ~(gas in *(set well:gall))
^- (list well:gall) ^- (list well:gall)
=+ myr=(clan:title our) =+ myr=(clan:title our)
:: TODO: Make sure all the other apps compile later.
:: ::
:: ?: ?=($pawn myr) ?: ?=($pawn myr)
:: [[%base %collections] [%base %hall] [%base %talk] [%base %dojo] ~] [[%base %collections] [%base %hall] [%base %talk] [%base %dojo] ~]
:~ [%home %collections] :~ [%home %collections]
[%home %acme] [%home %acme]
[%home %dns] [%home %dns]
[%home %dojo] [%home %dojo]
:: [%home %hall] [%home %hall]
:: [%home %talk] [%home %talk]
== ==
:: ::
++ deft-fish :: default connects ++ deft-fish :: default connects