forgot some peripheral files

This commit is contained in:
Ubuntu 2014-10-29 23:45:22 +00:00
parent b2c2ae3374
commit 5e39bd46d9
9 changed files with 95 additions and 0 deletions

18
main/app/sync/core.hook Normal file
View File

@ -0,0 +1,18 @@
!:
|_ [hid=hide ~]
++ poke-sync-args
|= [ost=bone you=ship syd=@tas her=@p sud=@tas ~]
:_ +>.$
:* [ost %pass /sync %c %font our.hid syd her sud]
[ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
:^ ost %give %rush
:- %tang :_ ~
leaf/"synced"
==
++ peer
|=
*
`+>
--

18
main/app/unsync/core.hook Normal file
View File

@ -0,0 +1,18 @@
!:
|_ [hid=hide ~]
++ poke-unsync-args
|= [ost=bone you=ship syd=@tas her=@p sud=@tas ~]
:_ +>.$
:* [ost %pass /sync %c %plug our.hid syd her sud]
[ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
:^ ost %give %rush
:- %tang :_ ~
leaf/"unsynced"
==
++ peer
|=
*
`+>
--

View File

@ -0,0 +1,15 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- begin-args
|_ arg=begin-args
::
++ grab :: convert from
|%
++ noun :: convert from %noun
|= src=*
^+ +>+
+>+(arg (begin-args src))
--
--

View File

@ -0,0 +1,15 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- sync-args
|_ arg=sync-args
::
++ grab :: convert from
|%
++ noun :: convert from %noun
|= src=*
^+ +>+
+>+(arg (sync-args src))
--
--

View File

@ -0,0 +1,15 @@
::
:::: /hoon/core/zing/pro
::
/? 314
/- unsync-args
|_ arg=unsync-args
::
++ grab :: convert from
|%
++ noun :: convert from %noun
|= src=*
^+ +>+
+>+(arg (unsync-args src))
--
--

11
main/mar/will/door.hook Normal file
View File

@ -0,0 +1,11 @@
::
:::: /hook/door/will/mar
::
/? 314
|_ wyl=will
::
++ grab :: convert from
|%
++ noun will :: clam from %noun
--
--

View File

@ -0,0 +1 @@
,[his=@p tic=@p eny=@t ges=gens ~]

View File

@ -0,0 +1 @@
,[syd=@tas her=@p sud=@tas ~]

View File

@ -0,0 +1 @@
,[syd=@tas her=@p sud=@tas ~]