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

timestamped talk logfiles

Browse Source
This commit is contained in:
Philip C Monk 2015-09-15 18:13:43 -04:00
parent 4d2d972539
commit 6f4e65167b
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ape/talk.hoon
View File

@ -1791,21 +1791,29 @@
++ log-to-file
|= man=span
^- move
=+ paf=/(scot %p our.hid)/home/(scot %da now.hid)/talk/[man]/talk-telegrams
=+ =+ =+ (yore now.hid)
%^ cat 3 man
`@t`(rsh 3 2 (scot %ui :(add d.t (mul 100 m) (mul 10.000 y))))
paf=/(scot %p our.hid)/home/(scot %da now.hid)/talk/[-]/talk-telegrams
=+ grams:(~(got by stories) man)
[ost.hid %info /jamfile our.hid (foal paf [%talk-telegrams !>(-)])]
::
++ poke-save
|= man=span
^- (quip move +>)
[[(log-to-file man) ~] +>.$]
=+ paf=/(scot %p our.hid)/home/(scot %da now.hid)/talk/[man]/talk-telegrams
=+ grams:(~(got by stories) man)
[[ost.hid %info /jamfile our.hid (foal paf [%talk-telegrams !>(-)])]~ +>.$]
::
++ poke-load
|= man=span
=+ ^= grams
%- (hard (list telegram))
.^ %cx
/(scot %p our.hid)/home/(scot %da now.hid)/talk/[man]/talk-telegrams
=+ =+ (yore now.hid)
%^ cat 3 man
`@t`(rsh 3 2 (scot %ui :(add d.t (mul 100 m) (mul 10.000 y))))
/(scot %p our.hid)/home/(scot %da now.hid)/talk/[-]/talk-telegrams
==
=+ toy=(~(got by stories) man)
[~ +>.$(stories (~(put by stories) man toy(grams grams, count (lent grams))))]