urbit/lib/talk.hoon

::
::::  /hoon/talk/lib
  ::  
  ::  This file is in the public domain.
  ::
/?    310 
/-    talk
!:
::::
  ::
[. ^talk]
|_  bol/bowl
++  main                                                ::  main story
  |=  our/ship  ^-  cord
  =+  can=(clan our)
  ?+  can  %porch
    $czar  %court
    $king  %floor
  == 
::
++  said-url                                            ::  app url
  |=  url/purl
  :^  ost.bol  %poke  /said-url
  :+  [our.bol %talk]  %talk-command
  ^-  command
  :-  %publish
  :_  ~
  ^-  thought
  :+  (shaf %thot eny.bol)
    [[[%& our.bol (main our.bol)] [*envelope %pending]] ~ ~]
  [now.bol *bouquet [%app dap.bol (crip (earn url))]]   :: XX
::
++  said                                                ::  app message
  |=  {our/@p dap/term now/@da eny/@uvJ mes/(list tank)}
  :-  %talk-command
  ^-  command
  :-  %publish
  |-  ^-  (list thought)
  ?~  mes  ~
  :_  $(mes t.mes, eny (sham eny mes))
  ^-  thought
  :+  (shaf %thot eny)
    [[[%& our (main our)] [*envelope %pending]] ~ ~]
  [now *bouquet [%app dap (crip ~(ram re i.mes))]]
--
Rename radio to rodeo. 2015-01-15 22:32:04 +03:00			`::`
fix mis-translated / to + 2016-02-11 03:41:28 +03:00			`:::: /hoon/talk/lib`
Rename radio to rodeo. 2015-01-15 22:32:04 +03:00			`::`
			`:: This file is in the public domain.`
			`::`
remaining libraries 2016-02-18 02:36:43 +03:00			`/? 310`
Sur disqualification moved to userspace sed -i'' -e '/^\|/{x;/./{p;s/.//;};x;};/ \\/-.\\/{h;s/ //g;s/,[a-z]//g;s/^[^a-z]/[/;s/ ::.$//;s/$/ .]/;s// /g;x;s/\\//g;}' urb/zod/**.{hoon,hook} Followed by manual fixes where e.g. the file didn't start with a core 2015-09-01 23:56:42 +03:00			`/- talk`
minor cleanup, fixed lib/talk serial type 2015-06-05 02:24:55 +03:00			`!:`
Rename radio to rodeo. 2015-01-15 22:32:04 +03:00			`::::`
			`::`
further disqualification 2015-09-02 03:24:18 +03:00			`[. ^talk]`
151ification part 1: app/twit syntax 2016-03-15 03:37:34 +03:00			`\|_ bol/bowl`
Rename radio to rodeo. 2015-01-15 22:32:04 +03:00			`++ main :: main story`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`\|= our/ship ^- cord`
Rename radio to rodeo. 2015-01-15 22:32:04 +03:00			`=+ can=(clan our)`
			`?+ can %porch`
Various 1st phase. 2015-12-09 04:54:26 +03:00			`$czar %court`
			`$king %floor`
Rename radio to rodeo. 2015-01-15 22:32:04 +03:00			`==`
Various fixes and improvements. 2015-06-02 21:36:56 +03:00			`::`
151ification part 1: app/twit syntax 2016-03-15 03:37:34 +03:00			`++ said-url :: app url`
			`\|= url/purl`
151ification part 2: app/twit types 2016-03-15 04:02:59 +03:00			`:^ ost.bol %poke /said-url`
151ification part 1: app/twit syntax 2016-03-15 03:37:34 +03:00			`:+ [our.bol %talk] %talk-command`
			`^- command`
			`:- %publish`
			`:_ ~`
			`^- thought`
			`:+ (shaf %thot eny.bol)`
			`[[[%& our.bol (main our.bol)] [*envelope %pending]] ~ ~]`
			`[now.bol *bouquet [%app dap.bol (crip (earn url))]] :: XX`
			`::`
Various cleanups for demo. 2015-06-02 02:25:22 +03:00			`++ said :: app message`
Double system entropy size 2016-08-11 21:15:06 +03:00			`\|= {our/@p dap/term now/@da eny/@uvJ mes/(list tank)}`
Various cleanups for demo. 2015-06-02 02:25:22 +03:00			`:- %talk-command`
			`^- command`
			`:- %publish`
minor cleanup, fixed lib/talk serial type 2015-06-05 02:24:55 +03:00			`\|- ^- (list thought)`
			`?~ mes ~`
Work around bizarre *envelope bug. 2015-06-06 02:01:44 +03:00			`:_ $(mes t.mes, eny (sham eny mes))`
			`^- thought`
			`:+ (shaf %thot eny)`
work around ^~ language issue, restore lib/talk Conflicts: urb/zod/base/lib/talk.hoon 2015-06-09 22:17:02 +03:00			`[[[%& our (main our)] [*envelope %pending]] ~ ~]`
			`[now *bouquet [%app dap (crip ~(ram re i.mes))]]`
Rename radio to rodeo. 2015-01-15 22:32:04 +03:00			`--`