urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 11:09:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/talk.hoon
View File

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

10
mar/load.hoon
View File

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

10
mar/log.hoon
View File

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

10
mar/save.hoon
View File

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

11
mar/unlog.hoon
View File

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