Properly attribute event source in utilities.

This commit is contained in:
Garret Kelly 2014-12-03 03:51:11 +00:00
parent ea6702649e
commit fc282f6697
4 changed files with 4 additions and 4 deletions

View File

@ -3,7 +3,7 @@
++ poke-into-args
|= [ost=bone you=ship pax=path dat=@ ~]
:_ +>.$
:* [ost %pass /cp %c %info our.hid (foal pax dat)]
:* [ost %pass /into %c %info our.hid (foal pax dat)]
[ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]

View File

@ -3,7 +3,7 @@
++ poke-label-args
|= [ost=bone you=ship syd=@tas lab=@tas ~]
:_ +>.$
:~ [ost %pass /cp %c %info our.hid syd %| lab]
:~ [ost %pass /label %c %info our.hid syd %| lab]
==
++ peer |=(* `+>)
--

View File

@ -3,7 +3,7 @@
++ poke-mv-args
|= [ost=bone you=ship input=path output=path ~]
:_ +>.$
:* :^ ost %pass /cp
:* :^ ost %pass /mv
:^ %c %info our.hid
(furl (foal output .^(%cx input)) (fray input))
[ost %give %nice ~]

View File

@ -3,7 +3,7 @@
++ poke-rm-args
|= [ost=bone you=ship pax=path ~]
:_ +>.$
:* [ost %pass /cp %c %info our.hid (fray pax)]
:* [ost %pass /rm %c %info our.hid (fray pax)]
[ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]