ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-18 20:31:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

Didn't mean to chek in a broken helm.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-05-09 15:35:57 -07:00
parent e7791411cb
commit fa5f5dc786
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
base/ape/helm/core.hook
View File

@ -13,13 +13,11 @@
bur=(unit (pair ship mace)) :: requesting ticket
hoc=(map bone helm-session) :: consoles
== ::
++ helm-house ,[%1 (list helm-room)]
++
++ helm-session ::
$: say=sole-share ::
mud=(unit (sole-dialog ,@ud)) ::
== ::
++ funk (pair ,@ ,@) ::
++ begs ,[his=@p tic=@p eny=@t ges=gens] :: begin data
++ suss ,[term @tas @da] :: config report
++ helm-wish ::
@ -56,8 +54,8 @@
[(flop moz) %_(+> hoc (~(put by hoc) ost +<+))] ::
:: ::
++ he-wish-start
|= [who=ship dap=term]
%_(+> moz :_(moz [ost %conf /start [our.hid dap] %load who %base]))
|= dap=term
%_(+> moz :_(moz [ost %conf /start [our.hid dap] %load our.hid %main]))
::
++ he-wish-reset
^+ .
@ -148,8 +146,8 @@
he-abet:(he-wish-reload:(hake ost src) all)
::
++ poke-helm-start
|= [from who=ship dap=term]
he-abet:(he-wish-start:(hake ost src) who dap)
|= [from dap=term]
he-abet:(he-wish-start:(hake ost src) dap)
::
++ poke-helm-begin
|= [from begs]
@ -177,10 +175,9 @@
::
++ onto
|= [then saw=(each suss tang)]
^- (quip move +>)
:_ +> :_ ~
?- -.saw
%| [ost %flog ~ %crud `@tas`-.way `tang`p.saw]
%& [ost %flog ~ %text "<{<p.saw>}>"]
%| [ost %pass ~ %flog %crud `@tas`-.way `tang`p.saw]
%& [ost %pass ~ %flog %text "<{<p.saw>}>"]
==
--