mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-19 21:02:01 +03:00
Didn't mean to chek in a broken helm.
This commit is contained in:
parent
e7791411cb
commit
fa5f5dc786
@ -13,13 +13,11 @@
|
|||||||
bur=(unit (pair ship mace)) :: requesting ticket
|
bur=(unit (pair ship mace)) :: requesting ticket
|
||||||
hoc=(map bone helm-session) :: consoles
|
hoc=(map bone helm-session) :: consoles
|
||||||
== ::
|
== ::
|
||||||
++ helm-house ,[%1 (list helm-room)]
|
|
||||||
++
|
|
||||||
|
|
||||||
++ helm-session ::
|
++ helm-session ::
|
||||||
$: say=sole-share ::
|
$: say=sole-share ::
|
||||||
mud=(unit (sole-dialog ,@ud)) ::
|
mud=(unit (sole-dialog ,@ud)) ::
|
||||||
== ::
|
== ::
|
||||||
|
++ funk (pair ,@ ,@) ::
|
||||||
++ begs ,[his=@p tic=@p eny=@t ges=gens] :: begin data
|
++ begs ,[his=@p tic=@p eny=@t ges=gens] :: begin data
|
||||||
++ suss ,[term @tas @da] :: config report
|
++ suss ,[term @tas @da] :: config report
|
||||||
++ helm-wish ::
|
++ helm-wish ::
|
||||||
@ -56,8 +54,8 @@
|
|||||||
[(flop moz) %_(+> hoc (~(put by hoc) ost +<+))] ::
|
[(flop moz) %_(+> hoc (~(put by hoc) ost +<+))] ::
|
||||||
:: ::
|
:: ::
|
||||||
++ he-wish-start
|
++ he-wish-start
|
||||||
|= [who=ship dap=term]
|
|= dap=term
|
||||||
%_(+> moz :_(moz [ost %conf /start [our.hid dap] %load who %base]))
|
%_(+> moz :_(moz [ost %conf /start [our.hid dap] %load our.hid %main]))
|
||||||
::
|
::
|
||||||
++ he-wish-reset
|
++ he-wish-reset
|
||||||
^+ .
|
^+ .
|
||||||
@ -148,8 +146,8 @@
|
|||||||
he-abet:(he-wish-reload:(hake ost src) all)
|
he-abet:(he-wish-reload:(hake ost src) all)
|
||||||
::
|
::
|
||||||
++ poke-helm-start
|
++ poke-helm-start
|
||||||
|= [from who=ship dap=term]
|
|= [from dap=term]
|
||||||
he-abet:(he-wish-start:(hake ost src) who dap)
|
he-abet:(he-wish-start:(hake ost src) dap)
|
||||||
::
|
::
|
||||||
++ poke-helm-begin
|
++ poke-helm-begin
|
||||||
|= [from begs]
|
|= [from begs]
|
||||||
@ -177,10 +175,9 @@
|
|||||||
::
|
::
|
||||||
++ onto
|
++ onto
|
||||||
|= [then saw=(each suss tang)]
|
|= [then saw=(each suss tang)]
|
||||||
^- (quip move +>)
|
|
||||||
:_ +> :_ ~
|
:_ +> :_ ~
|
||||||
?- -.saw
|
?- -.saw
|
||||||
%| [ost %flog ~ %crud `@tas`-.way `tang`p.saw]
|
%| [ost %pass ~ %flog %crud `@tas`-.way `tang`p.saw]
|
||||||
%& [ost %flog ~ %text "<{<p.saw>}>"]
|
%& [ost %pass ~ %flog %text "<{<p.saw>}>"]
|
||||||
==
|
==
|
||||||
--
|
--
|
||||||
|
Loading…
Reference in New Issue
Block a user