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

Arbitrary mark printing sorta worx

Browse Source
This commit is contained in:
Anton Dyudin 2014-09-25 17:54:51 -07:00 committed by Anton Dyudin
parent dd0ea9574c
commit 2b72cba49e
3 changed files with 19 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
arvo/gall.hoon
View File

@ -1126,6 +1126,11 @@
(xeno [q.kon imp] %feel ~)
::
%take
?: (warm %purr)
?> ?=(^ huv.sat)
=+ sam=:(slop [[%atom %ud] ost] !>(p.kon) !>(p.q.kon) q.kon)
%+ ford /s/pour
[%call (harm %purr (conf (core u.huv.sat))) (cove %$ sam)]
?. (warm %pour)
+>.$(qic.sat ~)
?> ?=(^ huv.sat)

18
main/app/demo/core.hook
View File

@ -18,8 +18,8 @@
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
:- ost
:^ %give %rush %tang
[rose/[" " ~ ~]^~[leaf/<p.arg> leaf/"says" leaf/(scow %ud q.arg)]]~
:^ %give %rush %wut
[p.arg %says q.arg]
==
::
++ peer
@ -31,20 +31,6 @@
:+ ost %give
:- %meta
!>
:- %meta
!>
:- %meta
!>
:- %meta
!>
:- %meta
!>
:- %meta
!>
:- %meta
!>
:- %meta
!>
:+ %rust %hymn
^- manx
;html

19
main/app/shell/core.hook
View File

@ -34,8 +34,8 @@
$% [%gone p=hapt] ::
[%mean p=ares] ::
[%nice ~] ::
[%rush p=%tang q=(list tank)] ::
[%rust p=%tang q=(list tank)] ::
[%rush p=mark q=*] ::
[%rust p=mark q=*] ::
== == == ::
--
!:
@ -110,11 +110,11 @@
==
==
::
++ pour
|= [ost=bone pax=path sih=*]
++ purr
|= [ost=bone pax=path typ=type sih=sign]
^- [(list move) _+>]
:: ~& [%shell-pour -.sih (,@ta +<.sih)]
=+ sih=((hard sign) sih)
::=+ sih=((hard sign) sih)
:_ +>.$
?~ pax ~& %no-path !!
?+ &1.pax ~& %strange-path !!
@ -132,9 +132,14 @@
[ost %give +.sih]~
%lines
?. ?=(?(%rust %rush) +<.sih) ~
:_ ~ (print ost our.hid q.sih)
==
:_ ~
%^ print ost our.hid
?+ p.sih
[(sell (slot 15 [typ sih]))]~
%tang
;;((list tank) q.sih)
==
== ==
::
++ print
|= [ost=bone you=ship tan=(list tank)]