:talk &foo ~.channel now :talk|foo ~.channel

This commit is contained in:
Anton Dyudin 2016-02-04 18:12:48 -08:00
parent bf11734b85
commit 83af2347c4
9 changed files with 52 additions and 46 deletions

View File

@ -2151,14 +2151,14 @@
=+ grams:(~(got by stories) man)
[ost.hid %info /jamfile our.hid (foal paf [%talk-telegrams !>(-)])]
::
++ poke-save
++ poke-talk-save
|= man=span
^- (quip move +>)
=+ 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
++ poke-talk-load
|= man=span
=+ ^= grams
%- (hard (list telegram))
@ -2168,15 +2168,14 @@
=+ toy=(~(got by stories) man)
[~ +>.$(stories (~(put by stories) man toy(grams grams, count (lent grams))))]
::
++ poke-log
++ poke-talk-log
|= man=span
~& %poke-log
^- (quip move +>)
:- [(log-to-file man) ~]
+>.$(log (~(put by log) man count:(~(got by stories) man)))
::
++ poke-unlog
++ poke-talk-unlog
|= man=span
^- (quip move +>)
:- ~

12
gen/talk/load.hoon Normal file
View File

@ -0,0 +1,12 @@
::
:::: /hoon/load/talk/gen
::
/? 314
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI byk=beak]
[[man=span ~] ~]
==
[%talk-load man]

12
gen/talk/log.hoon Normal file
View File

@ -0,0 +1,12 @@
::
:::: /hoon/log/talk/gen
::
/? 314
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI byk=beak]
[[man=span ~] ~]
==
[%talk-log man]

12
gen/talk/save.hoon Normal file
View File

@ -0,0 +1,12 @@
::
:::: /hoon/save/talk/gen
::
/? 314
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI byk=beak]
[[man=span ~] ~]
==
[%talk-save man]

12
gen/talk/unlog.hoon Normal file
View File

@ -0,0 +1,12 @@
::
:::: /hoon/unlog/talk/gen
::
/? 314
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI byk=beak]
[[man=span ~] ~]
==
[%talk-unlog man]

View File

@ -1,10 +0,0 @@
::
:::: /hoon/core/load/mar
::
!:
|_ man=span
++ grab
|% :: convert from
++ noun span :: clam from %noun
--
--

View File

@ -1,10 +0,0 @@
::
:::: /hoon/core/log/mar
::
!:
|_ man=span
++ grab
|% :: convert from
++ noun span :: clam from %noun
--
--

View File

@ -1,10 +0,0 @@
::
:::: /hoon/core/save/mar
::
!:
|_ man=span
++ grab
|% :: convert from
++ noun span :: clam from %noun
--
--

View File

@ -1,11 +0,0 @@
::
:::: /hoon/core/unlog/mar
::
!:
|_ man=span
++ grab
|% :: convert from
++ noun span :: clam from %noun
--
--