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

Cleaned ~& to ~|

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-26 20:35:03 -08:00
parent f00f2a744e
commit 5de6646f9f
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
main/app/rodeo/core.hook
View File

@ -180,7 +180,7 @@
++ ra-twitter :: %twitter response
|= [met=twim sih=sign]
^+ +>
?+ sih ~&([%rodeo-bad-twitter sih] !!)
?+ sih ~|([%rodeo-bad-twitter sih] !!)
[%g ?(%nice %mean) ~]
+>
[%g %rush %twit-stat *]
@ -379,7 +379,7 @@
|= [tay=partner sih=sign]
^+ +>
?> ?=(& -.tay)
?+ sih ~&([%rodeo-bad-friend sih] !!)
?+ sih ~|([%rodeo-bad-friend sih] !!)
[%g %nice ~]
+>.$
::
@ -395,7 +395,7 @@
:_ ~
:- /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
[%g %took [p.p.tay /rodeo] our.hid]
?+ -.p.p.sih ~&([%rodeo-odd-friend sih] !!)
?+ -.p.p.sih ~|([%rodeo-odd-friend sih] !!)
%config +>.$
%group (pa-remind tay +.p.p.sih)
%grams (pa-lesson q.+.p.p.sih)

20
main/app/talk/core.hook
View File

@ -348,8 +348,8 @@
|= job=work
^+ +>
?- -.job
%ask ~&(%sy-work-ask-stub !!)
%exp ~&(%sy-work-exp-stub !!)
%ask ~|(%sy-work-ask-stub !!)
%exp ~|(%sy-work-exp-stub !!)
%mor
|- ^+ +>.^$
?~ +.job +>.^$
@ -378,8 +378,8 @@
[%publish [[sir sy-audience [lat.hid ~ +.job]] ~]]
==
::
%wry ~&(%sy-work-wry !!)
%who ~&(%sy-work-who-stub !!)
%wry ~|(%sy-work-wry !!)
%who ~|(%sy-work-who-stub !!)
==
::
++ sy-gram :: apply telegram
@ -390,7 +390,7 @@
=< hy-abet
%- hy-render:(hype moz)
=* sta r.q.gam
?+ -.r.sta ~&([%strange-gram -.r.sta] !!)
?+ -.r.sta ~|([%strange-gram -.r.sta] !!)
::
%lin
:- %txt
@ -497,7 +497,7 @@
|= rad=report
^+ +>
?- -.rad
%house ~&(%sz-apply-house !!)
%house ~|(%sz-apply-house !!)
%grams +>(+> (sy-grams +.rad))
%config (sz-config +.rad)
%group (sz-group +.rad)
@ -607,12 +607,12 @@
%command
?+ +<.sih !!
%nice [~ +>.$]
%mean ~&([%pour-mean-cmd-in +>.sih] !!)
%mean ~|([%pour-mean-cmd-in +>.sih] !!)
==
%cmd-in
?+ +<.sih !!
%nice [~ +>.$]
%mean ~&([%pour-mean-cmd-in +>.sih] !!)
%mean ~|([%pour-mean-cmd-in +>.sih] !!)
%rush
?> ?=(%txt -.p.sih)
=^ moz +>.$ (pour-shell p.p.sih)
@ -623,7 +623,7 @@
%cmd-ac
?+ +<.sih !!
%nice [~ +>.$]
%mean ~&([%pour-mean-cmd-ac +>.sih] !!)
%mean ~|([%pour-mean-cmd-ac +>.sih] !!)
%rush
:_ +>.$
[ost %pass pax %g %took [our.hid +.imp.hid] our.hid]~
@ -632,7 +632,7 @@
%server
?+ +<.sih !!
%nice [~ +>.$]
%mean ~&(%talk-server-crash !!)
%mean ~|(%talk-server-crash !!)
%rush
?> ?=([%rodeo-report %house *] p.sih)
=^ moz +>.$ ny-abet:(ny-tell:ny +.p.p.sih)