2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-04-01 23:56:43 +03:00
|
|
|
:::: /hook/core/talk/app
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
/? 314
|
2015-04-01 23:56:43 +03:00
|
|
|
/- *talk, *twitter, *sole
|
|
|
|
/+ talk, sole
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
::::
|
|
|
|
::
|
2014-07-03 02:08:02 +04:00
|
|
|
!:
|
2014-12-18 05:34:40 +03:00
|
|
|
=> |% :: data structures
|
|
|
|
++ house ,[%1 house-1] :: full state
|
|
|
|
++ house-any :: app history
|
2015-04-01 23:56:43 +03:00
|
|
|
$% [%1 house-1] :: 1: talk
|
2014-12-18 05:34:40 +03:00
|
|
|
[%0 house-0] :: 0: initial version
|
|
|
|
== ::
|
|
|
|
++ house-1 ::
|
2015-01-01 23:43:50 +03:00
|
|
|
$: stories=(map span story) :: conversations
|
2014-12-18 05:34:40 +03:00
|
|
|
general=(set bone) :: meta-subscribe
|
|
|
|
outbox=(pair ,@ud (map ,@ud thought)) :: urbit outbox
|
|
|
|
folks=(map ship human) :: human identities
|
2015-03-30 09:43:48 +03:00
|
|
|
shells=(map bone shell) :: interaction state
|
2014-12-18 05:34:40 +03:00
|
|
|
== ::
|
|
|
|
++ house-0 :: legacy state
|
|
|
|
%+ map path ::
|
|
|
|
,[p=(list zong) q=(map ship ,?)] ::
|
2014-12-18 21:43:07 +03:00
|
|
|
:: ::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ zong :: legacy messages
|
|
|
|
$% $: %mess p=@da q=ship ::
|
|
|
|
$= r ::
|
|
|
|
$% [%do p=@t] ::
|
|
|
|
[%exp p=@t q=tank] ::
|
|
|
|
[%say p=@t] ::
|
|
|
|
== == == ::
|
2015-01-19 02:19:06 +03:00
|
|
|
++ story :: wire content
|
2014-12-18 05:34:40 +03:00
|
|
|
$: count=@ud :: (lent grams)
|
|
|
|
grams=(list telegram) :: all history
|
|
|
|
locals=(map ship (pair ,@da status)) :: local presence
|
2015-01-26 04:38:03 +03:00
|
|
|
remotes=(map partner atlas) :: remote presence
|
2015-04-06 22:57:23 +03:00
|
|
|
mirrors=(map station config) :: remote config
|
2015-01-26 04:38:03 +03:00
|
|
|
sequence=(map partner ,@ud) :: partners heard
|
2014-12-18 05:34:40 +03:00
|
|
|
shape=config :: configuration
|
|
|
|
known=(map serial ,@ud) :: messages heard
|
|
|
|
guests=(map bone river) :: message followers
|
|
|
|
viewers=(set bone) :: presence followers
|
|
|
|
owners=(set bone) :: config followers
|
|
|
|
== ::
|
2015-03-30 09:43:48 +03:00
|
|
|
++ shell :: console session
|
|
|
|
$: her=ship :: client identity
|
|
|
|
man=span :: mailbox
|
2015-04-01 03:17:30 +03:00
|
|
|
count=@ud :: messages shown
|
2015-03-30 09:43:48 +03:00
|
|
|
say=sole-share :: console state
|
|
|
|
active=(unit (set partner)) :: active targets
|
|
|
|
passive=(set partner) :: passive targets
|
2015-04-05 20:00:36 +03:00
|
|
|
guests=register :: presence mirror
|
|
|
|
harbor=(map span (pair posture cord)) :: stations mirror
|
2015-04-06 22:57:23 +03:00
|
|
|
system=cabal :: config mirror
|
2015-03-30 09:43:48 +03:00
|
|
|
== ::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ river (pair point point) :: stream definition
|
|
|
|
++ point :: stream endpoint
|
|
|
|
$% [%ud p=@ud] :: by number
|
|
|
|
[%da p=@da] :: by date
|
|
|
|
== ::
|
|
|
|
++ gift :: result
|
2015-03-30 09:43:48 +03:00
|
|
|
$% [%rush salt] :: refresh
|
2014-12-18 05:34:40 +03:00
|
|
|
[%mean ares] :: cancel
|
|
|
|
[%nice ~] :: accept
|
|
|
|
== ::
|
|
|
|
++ sign :: response
|
|
|
|
$% $: %e :: from %eyre
|
|
|
|
$% [%thou p=httr] :: HTTP response
|
|
|
|
== == ::
|
|
|
|
$: %g :: application
|
|
|
|
$% [%mean p=ares] :: cancel
|
|
|
|
[%nice ~] :: acknowledge
|
2015-01-27 07:30:22 +03:00
|
|
|
[%rush p=silt] :: subs data
|
2014-12-18 05:34:40 +03:00
|
|
|
== == ::
|
|
|
|
$: %t ::
|
|
|
|
$% [%wake ~] :: timer wakeup
|
2014-12-19 02:28:26 +03:00
|
|
|
== == == ::
|
2015-03-30 09:43:48 +03:00
|
|
|
++ salt :: output rush
|
2015-04-01 23:56:43 +03:00
|
|
|
$% [%talk-report p=report] ::
|
2015-03-30 09:43:48 +03:00
|
|
|
[%sole-effect p=sole-effect] ::
|
|
|
|
== ::
|
|
|
|
++ silt :: input rush
|
2015-04-01 23:56:43 +03:00
|
|
|
$% [%talk-report p=report] :: refresh
|
2015-03-30 09:43:48 +03:00
|
|
|
[%twit-stat p=twit-stat] :: tweet receipt
|
|
|
|
[%twit-feed p=(list twit-stat)] :: tweet receipt
|
|
|
|
== ::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ move ,[p=bone q=(mold note gift)] :: all actions
|
|
|
|
++ hapt ,[p=ship q=path] :: app instance
|
|
|
|
++ note :: requests
|
2014-12-19 02:28:26 +03:00
|
|
|
$% $: %c ::
|
|
|
|
$% [%info p=@p q=@tas r=nori] ::
|
2014-12-18 05:34:40 +03:00
|
|
|
== == ::
|
|
|
|
$: %g :: network
|
|
|
|
$% [%mess p=hapt q=ship r=cage] :: message
|
|
|
|
[%nuke p=hapt q=ship] :: cancel
|
|
|
|
[%show p=hapt q=ship r=path] :: subscribe
|
2015-01-21 02:00:54 +03:00
|
|
|
[%took p=hapt q=ship] :: acknowledge
|
2014-12-19 02:28:26 +03:00
|
|
|
== == ::
|
2014-12-18 05:34:40 +03:00
|
|
|
$: %t ::
|
|
|
|
$% [%wait p=@da] ::
|
|
|
|
== == == ::
|
2015-04-03 21:25:21 +03:00
|
|
|
:: ::
|
2015-04-04 13:44:22 +03:00
|
|
|
++ work :: interface action
|
2015-04-05 20:00:36 +03:00
|
|
|
$% [%number p=? q=@ud] :: activate by number
|
2015-04-07 22:05:21 +03:00
|
|
|
[%join p=(set partner)] ::
|
2015-04-03 21:25:21 +03:00
|
|
|
[%say p=speech] ::
|
|
|
|
[%invite p=span q=(list partner)] ::
|
|
|
|
[%banish p=span q=(list partner)] ::
|
2015-04-04 13:44:22 +03:00
|
|
|
[%target p=(set partner)] :: set active targets
|
2015-04-03 21:25:21 +03:00
|
|
|
:: [%destroy p=span] ::
|
2015-04-05 20:00:36 +03:00
|
|
|
[%create p=posture q=span r=cord] ::
|
2015-04-03 21:25:21 +03:00
|
|
|
[%probe p=station] ::
|
|
|
|
== ::
|
|
|
|
:: ::
|
2015-03-31 10:40:43 +03:00
|
|
|
++ sigh :: assemble label
|
|
|
|
|= [len=@ud pre=tape yiz=cord]
|
|
|
|
^- tape
|
|
|
|
=+ nez=(trip yiz)
|
2015-04-01 03:17:30 +03:00
|
|
|
=+ lez=(lent nez)
|
2015-03-31 10:40:43 +03:00
|
|
|
?> (gth len (lent pre))
|
|
|
|
=. len (sub len (lent pre))
|
2015-04-01 03:17:30 +03:00
|
|
|
?. (gth lez len)
|
|
|
|
=. nez (welp pre nez)
|
|
|
|
?. (lth lez len) nez
|
|
|
|
(runt [(sub len lez) '-'] nez)
|
2015-04-02 21:50:31 +03:00
|
|
|
:(welp pre (scag (dec len) nez) "+")
|
2014-12-18 05:34:40 +03:00
|
|
|
--
|
|
|
|
|_ [hid=hide house]
|
|
|
|
++ ra :: transaction core
|
|
|
|
|_ [ost=bone moves=(list move)]
|
2015-04-01 03:17:30 +03:00
|
|
|
++ sh :: console interface
|
2015-04-01 23:56:43 +03:00
|
|
|
|_ $: coz=(list command) :: talk actions
|
2015-03-31 10:40:43 +03:00
|
|
|
she=shell
|
|
|
|
==
|
2015-04-09 01:01:47 +03:00
|
|
|
++ sh-purl (ifix [gay gay] auri:urlp) :: url with spaces
|
2015-04-04 13:44:22 +03:00
|
|
|
++ sh-scad :: command parser
|
|
|
|
=+ vag=(vang | [&1:% &2:% '0' |3:%])
|
|
|
|
=< work
|
|
|
|
|%
|
|
|
|
++ dare :: @dr
|
|
|
|
%+ sear
|
|
|
|
|= a=coin
|
|
|
|
?. ?=([%$ %dr @] a) ~
|
|
|
|
(some `@dr`+>.a)
|
|
|
|
nuck:so
|
|
|
|
::
|
|
|
|
++ ship ;~(pfix sig fed:ag) :: ship
|
|
|
|
++ shiz :: ship set
|
|
|
|
%+ cook
|
|
|
|
|=(a=(list ^ship) (~(gas in *(set ^ship)) a))
|
|
|
|
(most ;~(plug com (star ace)) ship)
|
|
|
|
::
|
|
|
|
++ pasp :: passport
|
|
|
|
;~ pfix pat
|
|
|
|
;~ pose
|
|
|
|
(stag %twitter ;~(pfix ;~(plug (jest 't') col) urs:ab))
|
|
|
|
==
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ stan :: station
|
|
|
|
;~ pose
|
|
|
|
(cold [our.hid man.she] tis)
|
|
|
|
;~(pfix cen (cook |=(a=term [our.hid a]) sym))
|
|
|
|
;~(pfix fas (cook |=(a=term [(sein our.hid) a]) sym))
|
|
|
|
::
|
|
|
|
%+ cook
|
|
|
|
|= [a=@p b=(unit term)]
|
|
|
|
[a ?^(b u.b (main a))]
|
|
|
|
;~ plug
|
|
|
|
ship
|
|
|
|
;~(pose (stag ~ ;~(pfix fas urs:ab)) (easy ~))
|
|
|
|
==
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ parn :: partner
|
|
|
|
;~ pose
|
|
|
|
(stag %& stan)
|
|
|
|
(stag %| pasp)
|
|
|
|
==
|
|
|
|
++ parq :: non-empty partners
|
|
|
|
%+ cook
|
|
|
|
|=(a=(list partner) (~(gas in *(set partner)) a))
|
|
|
|
(most ;~(plug com (star ace)) parn)
|
|
|
|
::
|
|
|
|
++ parz :: partner set
|
|
|
|
%+ cook
|
|
|
|
|=(a=(list partner) (~(gas in *(set partner)) a))
|
|
|
|
(more ;~(plug com (star ace)) parn)
|
|
|
|
::
|
|
|
|
++ nump :: number reference
|
|
|
|
;~ pose
|
|
|
|
(stag %& dem:ag)
|
|
|
|
(stag %| ;~(pfix (just '0') dem:ag))
|
|
|
|
==
|
|
|
|
::
|
2015-04-05 20:00:36 +03:00
|
|
|
++ pore :: posture
|
|
|
|
;~ pose
|
|
|
|
(cold %black (jest %channel))
|
|
|
|
(cold %white (jest %village))
|
|
|
|
(cold %green (jest %journal))
|
|
|
|
(cold %brown (jest %mailbox))
|
|
|
|
==
|
|
|
|
::
|
2015-04-04 13:44:22 +03:00
|
|
|
++ work
|
|
|
|
%+ knee *^work |. ~+
|
|
|
|
;~ pose
|
2015-04-05 20:00:36 +03:00
|
|
|
%+ stag %create
|
|
|
|
;~ pfix (jest %create)
|
|
|
|
;~ plug
|
|
|
|
;~(pfix ace pore)
|
|
|
|
;~(pfix ;~(plug ace cen) sym)
|
|
|
|
;~(pfix ace qut)
|
|
|
|
==
|
|
|
|
==
|
|
|
|
::
|
2015-04-07 22:05:21 +03:00
|
|
|
%+ stag %join
|
|
|
|
;~(pfix (jest %join) ;~(pfix ace parq))
|
2015-04-06 22:57:23 +03:00
|
|
|
::
|
|
|
|
(stag %number nump)
|
|
|
|
(stag %target parz)
|
2015-04-04 13:44:22 +03:00
|
|
|
==
|
|
|
|
--
|
2015-03-31 10:40:43 +03:00
|
|
|
++ sh-abet
|
|
|
|
^+ +>
|
|
|
|
=+ zoc=(flop coz)
|
|
|
|
|- ^+ +>+>
|
|
|
|
?~ zoc +>+>.$(shells (~(put by shells) ost she))
|
|
|
|
$(zoc t.zoc, +>.$ (sh-deal i.zoc))
|
|
|
|
::
|
|
|
|
++ sh-deal :: apply from shell
|
|
|
|
|= cod=command
|
|
|
|
^+ +>
|
|
|
|
?- -.cod
|
|
|
|
%design
|
|
|
|
?~ q.cod
|
|
|
|
=. +>+>.$ (ra-config p.cod *config)
|
|
|
|
+>.$(stories (~(del by stories) p.cod))
|
|
|
|
+>(+> (ra-config p.cod u.q.cod))
|
|
|
|
::
|
|
|
|
%review +>(+> (ra-think | her.she +.cod))
|
|
|
|
%publish +>(+> (ra-think & her.she +.cod))
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ sh-fact :: send console effect
|
|
|
|
|= fec=sole-effect
|
|
|
|
^+ +>
|
|
|
|
+>(moves :_(moves [ost %give %rush %sole-effect fec]))
|
|
|
|
::
|
2015-04-01 03:17:30 +03:00
|
|
|
++ sh-peep :: peer to path
|
2015-03-31 10:40:43 +03:00
|
|
|
|= pax=path
|
|
|
|
^+ +>
|
|
|
|
+>(+> (~(ra-subscribe ra ost ~) her.she pax))
|
|
|
|
::
|
|
|
|
++ sh-peer :: subscribe shell
|
2015-04-05 20:00:36 +03:00
|
|
|
=< sh-prod
|
|
|
|
%_ .
|
|
|
|
+>
|
|
|
|
%- ra-subscribe:(~(ra-subscribe ra ost ~) her.she ~)
|
|
|
|
[her.she [%afx man.she ~]]
|
|
|
|
==
|
2015-03-31 10:40:43 +03:00
|
|
|
::
|
|
|
|
++ sh-prod :: show prompt
|
|
|
|
^+ .
|
|
|
|
%+ sh-fact %pro
|
2015-04-01 23:56:43 +03:00
|
|
|
:+ & %talk-line
|
2015-03-31 10:40:43 +03:00
|
|
|
^- tape
|
|
|
|
=+ ^= rew ^- (pair (pair ,@t ,@t) (set partner))
|
|
|
|
?~ active.she
|
|
|
|
[['(' ')'] passive.she]
|
|
|
|
[['[' ']'] u.active.she]
|
|
|
|
=+ por=~(te-prom te man.she q.rew)
|
|
|
|
(weld `tape`[p.p.rew por] `tape`[q.p.rew ' ' ~])
|
|
|
|
::
|
2015-04-04 13:44:22 +03:00
|
|
|
++ sh-pact :: update active aud
|
|
|
|
|= lix=(set partner)
|
|
|
|
^+ +>
|
|
|
|
=+ act=?~(lix ~ `(sh-pare lix))
|
|
|
|
?: =(active.she act) +>.$
|
|
|
|
sh-prod(active.she act)
|
|
|
|
::
|
|
|
|
++ sh-pare :: adjust target list
|
|
|
|
|= paz=(set partner)
|
|
|
|
?: (sh-pear paz) paz
|
|
|
|
(~(put in paz) [%& our.hid man.she])
|
|
|
|
::
|
|
|
|
++ sh-pear :: hearback
|
|
|
|
|= paz=(set partner)
|
|
|
|
?~ paz |
|
|
|
|
?| $(paz l.paz)
|
|
|
|
$(paz r.paz)
|
|
|
|
(~(has in sources.shape:(~(got by stories) man.she)) `partner`n.paz)
|
|
|
|
==
|
|
|
|
::
|
2015-04-07 22:05:21 +03:00
|
|
|
++ sh-pass :: passive from aud
|
2015-04-01 23:56:43 +03:00
|
|
|
|= aud=audience
|
2015-04-07 22:05:21 +03:00
|
|
|
%- sh-poss
|
|
|
|
%- ~(gas in *(set partner))
|
|
|
|
(turn (~(tap by aud)) |=([a=partner *] a))
|
|
|
|
::
|
|
|
|
::
|
|
|
|
++ sh-poss :: passive update
|
|
|
|
|= lix=(set partner)
|
|
|
|
=+ sap=(sh-pare lix)
|
2015-04-04 13:44:22 +03:00
|
|
|
?: =(sap passive.she)
|
|
|
|
+>.$
|
|
|
|
sh-prod(passive.she sap)
|
2015-04-01 23:56:43 +03:00
|
|
|
::
|
2015-04-07 22:05:21 +03:00
|
|
|
++ sh-pest :: report listen
|
|
|
|
|= tay=partner
|
|
|
|
^+ +>
|
|
|
|
?. ?=(%& -.tay) +>
|
|
|
|
=+ sib=(~(get by ham.system.she) `station`p.tay)
|
|
|
|
?. |(?=(~ sib) !?=(%white p.cordon.u.sib))
|
|
|
|
+>.$
|
|
|
|
(sh-poss [tay ~ ~])
|
|
|
|
::
|
2015-03-31 10:40:43 +03:00
|
|
|
++ sh-rend :: print on one line
|
|
|
|
|= gam=telegram
|
2015-04-01 23:56:43 +03:00
|
|
|
(sh-pass:(sh-fact %txt ~(tr-line tr man.she gam)) q.q.gam)
|
2015-03-31 10:40:43 +03:00
|
|
|
::
|
2015-04-01 03:17:30 +03:00
|
|
|
++ sh-numb :: print msg number
|
|
|
|
|= num=@ud
|
|
|
|
^+ +>
|
2015-04-07 22:05:21 +03:00
|
|
|
=+ bun=(scow %ud num)
|
2015-04-08 05:19:31 +03:00
|
|
|
:: =+ pad=(sub 36 (lent bun))
|
|
|
|
:: =+ now=`@da`(dis lat.hid 0xffff.ffff.ffff.ffff.0000.0000.0000.0000)
|
2015-04-07 22:05:21 +03:00
|
|
|
%+ sh-fact %txt
|
2015-04-08 05:19:31 +03:00
|
|
|
(runt [(sub 15 (lent bun)) '-'] "[{bun}]")
|
2015-04-01 03:17:30 +03:00
|
|
|
::
|
2015-04-05 20:00:36 +03:00
|
|
|
++ sh-repo-house-diff
|
|
|
|
|= [one=shelf two=shelf]
|
|
|
|
=| $= ret
|
2015-04-07 22:05:21 +03:00
|
|
|
$: old=(list (pair span (pair posture cord)))
|
|
|
|
new=(list (pair span (pair posture cord)))
|
2015-04-05 20:00:36 +03:00
|
|
|
cha=(list (pair span (pair posture cord)))
|
|
|
|
==
|
|
|
|
^+ ret
|
|
|
|
=. ret
|
|
|
|
=+ eno=(~(tap by one))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ eno ret
|
|
|
|
=. ret $(eno t.eno)
|
|
|
|
=+ unt=(~(get by two) p.i.eno)
|
|
|
|
?~ unt
|
|
|
|
ret(old [i.eno old.ret])
|
|
|
|
?: =(q.i.eno u.unt) ret
|
|
|
|
ret(cha [[p.i.eno u.unt] cha.ret])
|
|
|
|
=. ret
|
|
|
|
=+ owt=(~(tap by two))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ owt ret
|
|
|
|
=. ret $(owt t.owt)
|
|
|
|
?: (~(has by one) p.i.owt)
|
|
|
|
ret
|
|
|
|
ret(new [i.owt new.ret])
|
|
|
|
ret
|
|
|
|
::
|
|
|
|
++ sh-repo-atlas-diff
|
|
|
|
|= [one=atlas two=atlas]
|
|
|
|
=| $= ret
|
2015-04-07 22:05:21 +03:00
|
|
|
$: old=(list (pair ship status))
|
|
|
|
new=(list (pair ship status))
|
2015-04-05 20:00:36 +03:00
|
|
|
cha=(list (pair ship status))
|
|
|
|
==
|
|
|
|
^+ ret
|
|
|
|
=. ret
|
|
|
|
=+ eno=(~(tap by one))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ eno ret
|
|
|
|
=. ret $(eno t.eno)
|
|
|
|
=+ unt=(~(get by two) p.i.eno)
|
|
|
|
?~ unt
|
|
|
|
ret(old [i.eno old.ret])
|
|
|
|
?: =(q.i.eno u.unt) ret
|
|
|
|
ret(cha [[p.i.eno u.unt] cha.ret])
|
|
|
|
=. ret
|
|
|
|
=+ owt=(~(tap by two))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ owt ret
|
|
|
|
=. ret $(owt t.owt)
|
|
|
|
?: (~(has by one) p.i.owt)
|
|
|
|
ret
|
|
|
|
ret(new [i.owt new.ret])
|
|
|
|
ret
|
|
|
|
::
|
2015-04-06 22:57:23 +03:00
|
|
|
++ sh-repo-cabal-diff
|
|
|
|
|= [one=(map station config) two=(map station config)]
|
|
|
|
=| $= ret
|
2015-04-07 22:05:21 +03:00
|
|
|
$: old=(list (pair station config))
|
|
|
|
new=(list (pair station config))
|
2015-04-06 22:57:23 +03:00
|
|
|
cha=(list (pair station config))
|
|
|
|
==
|
|
|
|
^+ ret
|
|
|
|
=. ret
|
|
|
|
=+ eno=(~(tap by one))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ eno ret
|
|
|
|
=. ret $(eno t.eno)
|
|
|
|
=+ unt=(~(get by two) p.i.eno)
|
|
|
|
?~ unt
|
|
|
|
ret(old [i.eno old.ret])
|
|
|
|
?: =(q.i.eno u.unt) ret
|
|
|
|
ret(cha [[p.i.eno u.unt] cha.ret])
|
|
|
|
=. ret
|
|
|
|
=+ owt=(~(tap by two))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ owt ret
|
|
|
|
=. ret $(owt t.owt)
|
|
|
|
?: (~(has by one) p.i.owt)
|
|
|
|
ret
|
|
|
|
ret(new [i.owt new.ret])
|
|
|
|
ret
|
|
|
|
::
|
2015-04-05 20:00:36 +03:00
|
|
|
++ sh-repo-rogue-diff
|
|
|
|
|= [one=(map partner atlas) two=(map partner atlas)]
|
|
|
|
=| $= ret
|
2015-04-07 22:05:21 +03:00
|
|
|
$: old=(list (pair partner atlas))
|
|
|
|
new=(list (pair partner atlas))
|
2015-04-05 20:00:36 +03:00
|
|
|
cha=(list (pair partner atlas))
|
|
|
|
==
|
|
|
|
^+ ret
|
|
|
|
=. ret
|
|
|
|
=+ eno=(~(tap by one))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ eno ret
|
|
|
|
=. ret $(eno t.eno)
|
|
|
|
=+ unt=(~(get by two) p.i.eno)
|
|
|
|
?~ unt
|
|
|
|
ret(old [i.eno old.ret])
|
|
|
|
?: =(q.i.eno u.unt) ret
|
|
|
|
ret(cha [[p.i.eno u.unt] cha.ret])
|
|
|
|
=. ret
|
|
|
|
=+ owt=(~(tap by two))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ owt ret
|
|
|
|
=. ret $(owt t.owt)
|
|
|
|
?: (~(has by one) p.i.owt)
|
|
|
|
ret
|
|
|
|
ret(new [i.owt new.ret])
|
2015-04-06 22:57:23 +03:00
|
|
|
ret
|
2015-04-05 20:00:36 +03:00
|
|
|
::
|
|
|
|
++ sh-repo-whom-diff
|
|
|
|
|= [one=(set partner) two=(set partner)]
|
|
|
|
=| $= ret
|
2015-04-07 22:05:21 +03:00
|
|
|
$: old=(list partner)
|
|
|
|
new=(list partner)
|
2015-04-05 20:00:36 +03:00
|
|
|
==
|
|
|
|
^+ ret
|
|
|
|
=. ret
|
|
|
|
=+ eno=(~(tap by one))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ eno ret
|
|
|
|
=. ret $(eno t.eno)
|
|
|
|
?: (~(has in two) i.eno)
|
|
|
|
ret
|
|
|
|
ret(old [i.eno old.ret])
|
|
|
|
=. ret
|
|
|
|
=+ owt=(~(tap by two))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ owt ret
|
|
|
|
=. ret $(owt t.owt)
|
|
|
|
?: (~(has in one) i.owt)
|
|
|
|
ret
|
|
|
|
ret(new [i.owt new.ret])
|
2015-04-06 22:57:23 +03:00
|
|
|
ret
|
2015-04-05 20:00:36 +03:00
|
|
|
::
|
|
|
|
++ sh-repo-ship-diff
|
|
|
|
|= [one=(set ship) two=(set ship)]
|
|
|
|
=| $= ret
|
2015-04-07 22:05:21 +03:00
|
|
|
$: old=(list ship)
|
|
|
|
new=(list ship)
|
2015-04-05 20:00:36 +03:00
|
|
|
==
|
|
|
|
^+ ret
|
|
|
|
=. ret
|
|
|
|
=+ eno=(~(tap by one))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ eno ret
|
|
|
|
=. ret $(eno t.eno)
|
|
|
|
?: (~(has in two) i.eno)
|
|
|
|
ret
|
|
|
|
ret(old [i.eno old.ret])
|
|
|
|
=. ret
|
|
|
|
=+ owt=(~(tap by two))
|
|
|
|
|- ^+ ret
|
|
|
|
?~ owt ret
|
|
|
|
=. ret $(owt t.owt)
|
|
|
|
?: (~(has in one) i.owt)
|
|
|
|
ret
|
|
|
|
ret(new [i.owt new.ret])
|
|
|
|
ret
|
|
|
|
::
|
|
|
|
++ sh-puss
|
|
|
|
|= a=posture ^- tape
|
|
|
|
?- a
|
|
|
|
%black "channel"
|
|
|
|
%brown "mailbox"
|
|
|
|
%white "village"
|
|
|
|
%green "journal"
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ sh-repo-config-exceptions
|
2015-04-06 22:57:23 +03:00
|
|
|
|= [pre=tape por=posture old=(list ship) new=(list ship)]
|
2015-04-05 20:00:36 +03:00
|
|
|
=+ out=?:(?=(?(%black %brown) por) "try " "cut ")
|
|
|
|
=+ inn=?:(?=(?(%black %brown) por) "ban " "add ")
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ old +>.^$
|
|
|
|
=. +>.^$ $(old t.old)
|
|
|
|
(sh-note :(weld pre out " " (scow %p i.old)))
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ new +>.^$
|
|
|
|
=. +>.^$ $(new t.new)
|
|
|
|
(sh-note :(weld pre out " " (scow %p i.new)))
|
|
|
|
+>.$
|
|
|
|
::
|
|
|
|
++ sh-repo-config-sources
|
2015-04-06 22:57:23 +03:00
|
|
|
|= [pre=tape old=(list partner) new=(list partner)]
|
2015-04-05 20:00:36 +03:00
|
|
|
^+ +>
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ old +>.^$
|
|
|
|
=. +>.^$ $(old t.old)
|
|
|
|
(sh-note (weld pre "off {~(ta-full ta man.she i.old)}"))
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ new +>.^$
|
|
|
|
=. +>.^$ $(new t.new)
|
|
|
|
(sh-note (weld pre "hey {~(ta-full ta man.she i.new)}"))
|
|
|
|
+>.$
|
|
|
|
::
|
2015-04-06 22:57:23 +03:00
|
|
|
++ sh-repo-config-show
|
|
|
|
|= [pre=tape laz=config loc=config]
|
2015-04-05 20:00:36 +03:00
|
|
|
^+ +>
|
|
|
|
=. +>.$
|
2015-04-06 22:57:23 +03:00
|
|
|
?: =(caption.loc caption.laz) +>.$
|
|
|
|
(sh-note :(weld pre "cap " (trip caption.loc)))
|
2015-04-05 20:00:36 +03:00
|
|
|
=. +>.$
|
2015-04-06 22:57:23 +03:00
|
|
|
%+ sh-repo-config-sources
|
|
|
|
(weld (trip man.she) ": ")
|
|
|
|
(sh-repo-whom-diff sources.laz sources.loc)
|
|
|
|
?: !=(p.cordon.loc p.cordon.laz)
|
|
|
|
=. +>.$ (sh-note :(weld pre "but " (sh-puss p.cordon.loc)))
|
|
|
|
%^ sh-repo-config-exceptions
|
|
|
|
(weld (trip man.she) ": ")
|
|
|
|
p.cordon.loc
|
|
|
|
[~ (~(tap in q.cordon.loc))]
|
|
|
|
%^ sh-repo-config-exceptions
|
|
|
|
(weld (trip man.she) ": ")
|
|
|
|
p.cordon.loc
|
|
|
|
(sh-repo-ship-diff q.cordon.laz q.cordon.loc)
|
|
|
|
::
|
|
|
|
++ sh-repo-cabal-changes
|
|
|
|
|= $: laz=(map station config)
|
|
|
|
old=(list (pair station config))
|
2015-04-07 22:05:21 +03:00
|
|
|
new=(list (pair station config))
|
2015-04-06 22:57:23 +03:00
|
|
|
cha=(list (pair station config))
|
|
|
|
==
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ new +>.^$
|
|
|
|
=. +>.^$ $(new t.new)
|
2015-04-07 22:05:21 +03:00
|
|
|
=. +>.^$ (sh-pest [%& p.i.new])
|
2015-04-06 22:57:23 +03:00
|
|
|
%+ sh-repo-config-show
|
|
|
|
(weld ~(sn-phat sn man.she p.i.new) ": ")
|
|
|
|
[*config q.i.new]
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ cha +>.^$
|
|
|
|
=. +>.^$ $(cha t.cha)
|
|
|
|
%+ sh-repo-config-show
|
|
|
|
(weld ~(sn-phat sn man.she p.i.cha) ": ")
|
|
|
|
[(~(got by laz) `station`p.i.cha) q.i.cha]
|
|
|
|
+>.$
|
|
|
|
::
|
|
|
|
++ sh-repo-cabal
|
|
|
|
|= bal=cabal
|
|
|
|
^+ +>
|
2015-04-07 22:05:21 +03:00
|
|
|
=+ laz=system.she
|
|
|
|
=. system.she bal
|
|
|
|
=. +>.$
|
|
|
|
%+ sh-repo-cabal-changes ham.laz
|
|
|
|
(sh-repo-cabal-diff ham.laz ham.bal)
|
|
|
|
(sh-repo-config-show "" loc.laz loc.bal)
|
2015-04-05 20:00:36 +03:00
|
|
|
::
|
|
|
|
++ sh-repo-house
|
|
|
|
|= awl=(map span (pair posture cord))
|
|
|
|
^+ +>
|
|
|
|
=+ dif=(sh-repo-house-diff harbor.she awl)
|
|
|
|
=. harbor.she awl
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ old.dif +>.^$
|
|
|
|
=. +>.^$ $(old.dif t.old.dif)
|
|
|
|
(sh-note "cut {(sh-puss p.q.i.old.dif)} %{(trip p.i.old.dif)}")
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ new.dif +>.^$
|
|
|
|
=. +>.^$ $(new.dif t.new.dif)
|
|
|
|
=+ :* nam=(trip p.i.new.dif)
|
|
|
|
por=(sh-puss p.q.i.new.dif)
|
|
|
|
des=(trip q.q.i.new.dif)
|
|
|
|
==
|
|
|
|
(sh-note "new {por} %{nam}: {des}")
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ cha.dif +>.^$
|
|
|
|
=. +>.^$ $(cha.dif t.cha.dif)
|
|
|
|
=+ :* nam=(trip p.i.cha.dif)
|
|
|
|
por=(sh-puss p.q.i.cha.dif)
|
|
|
|
des=(trip q.q.i.cha.dif)
|
|
|
|
==
|
|
|
|
(sh-note "mod %{nam}: {por}, {des}")
|
|
|
|
+>.$
|
|
|
|
::
|
|
|
|
++ sh-note :: shell message
|
|
|
|
|= txt=tape
|
2015-04-07 22:05:21 +03:00
|
|
|
^+ +>
|
|
|
|
(sh-fact %txt (runt [16 '-'] `tape`['|' ' ' (scag 62 txt)]))
|
2015-04-05 20:00:36 +03:00
|
|
|
::
|
|
|
|
++ sh-spaz :: print status
|
|
|
|
|= saz=status
|
|
|
|
^- tape
|
|
|
|
['%' (trip p.saz)]
|
|
|
|
::
|
|
|
|
++ sh-repo-group-diff-here :: print atlas diff
|
|
|
|
|= $: pre=tape
|
|
|
|
$= cul
|
|
|
|
$: old=(list (pair ship status))
|
|
|
|
new=(list (pair ship status))
|
|
|
|
cha=(list (pair ship status))
|
|
|
|
==
|
|
|
|
==
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ old.cul +>.^$
|
|
|
|
=. +>.^$ $(old.cul t.old.cul)
|
|
|
|
(sh-note (weld pre "bye {(scow %p p.i.old.cul)}"))
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ new.cul +>.^$
|
|
|
|
=. +>.^$ $(new.cul t.new.cul)
|
|
|
|
%- sh-note
|
|
|
|
(weld pre "met {(scow %p p.i.new.cul)} {(sh-spaz q.i.new.cul)}")
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ cha.cul +>.^$
|
|
|
|
%- sh-note
|
|
|
|
(weld pre "set {(scow %p p.i.cha.cul)} {(sh-spaz q.i.cha.cul)}")
|
|
|
|
+>.$
|
|
|
|
::
|
|
|
|
++ sh-repo-group-here :: update local
|
|
|
|
|= loc=atlas
|
|
|
|
^+ +>
|
|
|
|
=+ cul=(sh-repo-atlas-diff p.guests.she loc)
|
|
|
|
=. p.guests.she loc
|
|
|
|
(sh-repo-group-diff-here "" cul)
|
|
|
|
::
|
|
|
|
++ sh-repo-group-there :: update foreign
|
|
|
|
|= yid=(map partner atlas)
|
|
|
|
=+ day=(sh-repo-rogue-diff q.guests.she yid)
|
|
|
|
=+ dun=q.guests.she
|
|
|
|
=. q.guests.she yid
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ old.day +>.^$
|
|
|
|
=. +>.^$ $(old.day t.old.day)
|
|
|
|
(sh-note (weld "not " (~(ta-show ta man.she p.i.old.day) ~)))
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ new.day +>.^$
|
|
|
|
=. +>.^$ $(new.day t.new.day)
|
|
|
|
=. +>.^$
|
|
|
|
(sh-note (weld "new " (~(ta-show ta man.she p.i.new.day) ~)))
|
|
|
|
(sh-repo-group-diff-here "--" ~ (~(tap by q.i.new.day)) ~)
|
|
|
|
=. +>.$
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ cha.day +>.^$
|
|
|
|
=. +>.^$ $(cha.day t.cha.day)
|
|
|
|
=. +>.^$
|
|
|
|
(sh-note (weld "for " (~(ta-show ta man.she p.i.cha.day) ~)))
|
|
|
|
=+ yez=(~(got by dun) p.i.cha.day)
|
|
|
|
%+ sh-repo-group-diff-here "--"
|
|
|
|
(sh-repo-atlas-diff yez q.i.cha.day)
|
|
|
|
+>.$
|
|
|
|
::
|
|
|
|
++ sh-repo-group
|
|
|
|
|= ges=register
|
|
|
|
^+ +>
|
|
|
|
=. +> (sh-repo-group-here p.ges)
|
|
|
|
=. +> (sh-repo-group-there q.ges)
|
|
|
|
+>
|
|
|
|
::
|
2015-04-01 03:17:30 +03:00
|
|
|
++ sh-repo-gram
|
|
|
|
|= [num=@ud gam=telegram]
|
|
|
|
^+ +>
|
|
|
|
?: =(num count.she)
|
|
|
|
=. +> ?:(=(0 (mod num 5)) (sh-numb num) +>)
|
|
|
|
(sh-rend(count.she +(num)) gam)
|
|
|
|
?: (gth num count.she)
|
|
|
|
=. +> (sh-numb num)
|
|
|
|
(sh-rend(count.she +(num)) gam)
|
|
|
|
+>
|
|
|
|
::
|
2015-03-31 10:40:43 +03:00
|
|
|
++ sh-repo-grams :: apply telegrams
|
|
|
|
|= [num=@ud gaz=(list telegram)]
|
|
|
|
^+ +>
|
2015-04-01 03:17:30 +03:00
|
|
|
?~ gaz +>
|
|
|
|
$(gaz t.gaz, num +(num), +> (sh-repo-gram num i.gaz))
|
2015-03-31 10:40:43 +03:00
|
|
|
::
|
|
|
|
++ sh-repo :: apply report
|
|
|
|
|= rad=report
|
|
|
|
^+ +>
|
2015-04-07 22:05:21 +03:00
|
|
|
:: ~& [%sh-repo rad]
|
2015-04-05 20:00:36 +03:00
|
|
|
?- -.rad
|
2015-04-06 22:57:23 +03:00
|
|
|
%cabal (sh-repo-cabal +.rad)
|
2015-04-05 20:00:36 +03:00
|
|
|
%grams (sh-repo-grams +.rad)
|
|
|
|
%group (sh-repo-group +.rad)
|
|
|
|
%house (sh-repo-house +.rad)
|
2015-04-01 03:17:30 +03:00
|
|
|
==
|
|
|
|
::
|
|
|
|
++ sh-sane-chat :: sanitize chatter
|
|
|
|
|= buf=(list ,@c)
|
|
|
|
^- (list sole-edit)
|
|
|
|
=+ :- inx=0
|
|
|
|
^= fix
|
|
|
|
|= [inx=@ud cha=@t lit=(list sole-edit)]
|
|
|
|
^+ lit
|
|
|
|
[[%mor [%del inx] [%ins inx `@c`cha] ~] lit]
|
|
|
|
|- ^- (list sole-edit)
|
|
|
|
?: =(62 inx)
|
|
|
|
|- ^- (list sole-edit)
|
|
|
|
?~(buf ~ [[%del 62] $(buf t.buf)])
|
|
|
|
?~ buf ~
|
|
|
|
=+ lit=$(inx +(inx), buf t.buf)
|
|
|
|
?: |((lth i.buf 32) (gth i.buf 126))
|
|
|
|
(fix inx '?' lit)
|
|
|
|
?: &((gte i.buf 'A') (lte i.buf 'Z'))
|
|
|
|
(fix inx (add 32 i.buf) lit)
|
2015-04-09 01:01:47 +03:00
|
|
|
?: &(=('/' i.buf) ?=([47 *] t.buf))
|
|
|
|
(fix inx '\\' lit)
|
2015-04-01 03:17:30 +03:00
|
|
|
lit
|
|
|
|
::
|
|
|
|
++ sh-sane-rule :: sanitize by rule
|
|
|
|
|* sef=_rule
|
|
|
|
|= [inv=sole-edit txt=tape]
|
|
|
|
^- (list sole-edit)
|
|
|
|
=+ ryv=(rose txt sef)
|
2015-04-04 13:44:22 +03:00
|
|
|
?:(-.ryv ~ [inv ~])
|
2015-04-01 03:17:30 +03:00
|
|
|
::
|
|
|
|
++ sh-sane :: sanitize input
|
|
|
|
|= [inv=sole-edit buf=(list ,@c)]
|
|
|
|
^- (list sole-edit)
|
|
|
|
?~ buf ~
|
2015-04-09 01:01:47 +03:00
|
|
|
=+ txt=(tufa buf)
|
|
|
|
?: =(';' -.txt)
|
|
|
|
((sh-sane-rule sh-scad) inv +.txt)
|
2015-04-04 13:44:22 +03:00
|
|
|
?: =('@' i.buf)
|
|
|
|
(sh-sane-chat +.buf)
|
2015-04-09 01:01:47 +03:00
|
|
|
=+ ryv=(rose txt sh-purl)
|
|
|
|
?: -.ryv ~
|
2015-04-01 03:17:30 +03:00
|
|
|
(sh-sane-chat buf)
|
|
|
|
::
|
2015-04-01 23:56:43 +03:00
|
|
|
++ sh-slug :: edit to sanity
|
2015-04-01 03:17:30 +03:00
|
|
|
|= lit=(list sole-edit)
|
|
|
|
^+ +>
|
|
|
|
?~ lit +>
|
|
|
|
=^ lic say.she
|
|
|
|
(~(transmit cs say.she) `sole-edit`?~(t.lit i.lit [%mor lit]))
|
2015-04-01 23:56:43 +03:00
|
|
|
(sh-fact [%mor [%det lic] ~])
|
2015-04-01 03:17:30 +03:00
|
|
|
::
|
|
|
|
++ sh-stir :: apply edit
|
|
|
|
|= cal=sole-change
|
|
|
|
^+ +>
|
|
|
|
=^ inv say.she (~(transceive cs say.she) cal)
|
|
|
|
=+ lit=(sh-sane inv buf.say.she)
|
|
|
|
?~ lit
|
|
|
|
+>.$
|
|
|
|
(sh-slug lit)
|
|
|
|
::
|
|
|
|
++ sh-pork :: parse work
|
|
|
|
^- (unit work)
|
|
|
|
?~ buf.say.she ~
|
2015-04-09 01:01:47 +03:00
|
|
|
=+ txt=(tufa buf.say.she)
|
|
|
|
?: =(';' -.txt)
|
|
|
|
(rust +.txt sh-scad)
|
2015-04-04 13:44:22 +03:00
|
|
|
?: =('@' -.buf.say.she)
|
|
|
|
`[%say %lin | (crip (tufa +.buf.say.she))]
|
2015-04-09 01:01:47 +03:00
|
|
|
=+ rul=(rust txt sh-purl)
|
|
|
|
?^ rul `[%say %url u.rul]
|
2015-04-01 03:17:30 +03:00
|
|
|
`[%say %lin & (crip (tufa buf.say.she))]
|
|
|
|
::
|
2015-04-03 21:25:21 +03:00
|
|
|
++ sh-lame :: send error
|
|
|
|
|= txt=tape
|
|
|
|
(sh-fact [%txt txt])
|
|
|
|
::
|
2015-04-01 03:17:30 +03:00
|
|
|
++ sh-whom :: current audience
|
|
|
|
^- audience
|
|
|
|
%- ~(gas by *audience)
|
2015-04-04 13:44:22 +03:00
|
|
|
%+ turn (~(tap in ?~(active.she passive.she u.active.she)))
|
2015-04-01 03:17:30 +03:00
|
|
|
|=(a=partner [a *envelope %pending])
|
|
|
|
::
|
2015-04-03 21:25:21 +03:00
|
|
|
++ sh-tell :: add command
|
|
|
|
|= cod=command
|
2015-04-07 22:05:21 +03:00
|
|
|
%_(+> coz [cod coz])
|
2015-04-03 21:25:21 +03:00
|
|
|
::
|
2015-04-04 13:44:22 +03:00
|
|
|
++ sh-work :: do work
|
|
|
|
|= job=work
|
2015-04-03 21:25:21 +03:00
|
|
|
^+ +>
|
|
|
|
=+ roy=(~(got by stories) man.she)
|
2015-04-04 13:44:22 +03:00
|
|
|
=< work
|
2015-04-03 21:25:21 +03:00
|
|
|
|%
|
2015-04-04 13:44:22 +03:00
|
|
|
++ work
|
2015-04-03 21:25:21 +03:00
|
|
|
?- -.job
|
|
|
|
%number (number +.job)
|
2015-04-07 22:05:21 +03:00
|
|
|
%join (join +.job)
|
2015-04-03 21:25:21 +03:00
|
|
|
%invite (invite +.job)
|
|
|
|
%banish (banish +.job)
|
|
|
|
%create (create +.job)
|
|
|
|
%target (target +.job)
|
|
|
|
%probe (probe +.job)
|
|
|
|
%say (say +.job)
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ activate :: from %number
|
|
|
|
|= gam=telegram
|
|
|
|
^+ +>+>+>
|
2015-04-09 01:01:47 +03:00
|
|
|
=. +>+>+> ?. ?=(%url -.r.r.q.gam) +>+>+>
|
|
|
|
(sh-fact %txt (earn p.r.r.q.gam))
|
2015-04-03 21:25:21 +03:00
|
|
|
sh-prod(active.she `~(tr-pals tr man.she gam))
|
|
|
|
::
|
2015-04-07 22:05:21 +03:00
|
|
|
++ join :: %join
|
2015-04-05 20:00:36 +03:00
|
|
|
|= lix=(set partner)
|
2015-04-03 21:25:21 +03:00
|
|
|
^+ +>+>+>
|
2015-04-07 22:05:21 +03:00
|
|
|
=+ loc=loc.system.she
|
2015-04-03 21:25:21 +03:00
|
|
|
%^ sh-tell %design man.she
|
|
|
|
:- ~
|
2015-04-05 20:00:36 +03:00
|
|
|
=+ tal=(~(tap in lix))
|
2015-04-07 22:05:21 +03:00
|
|
|
%_ loc
|
2015-04-03 21:25:21 +03:00
|
|
|
sources
|
|
|
|
|- ^- (set partner)
|
2015-04-07 22:05:21 +03:00
|
|
|
?~ tal sources.loc
|
|
|
|
?: (~(has in sources.loc) i.tal)
|
|
|
|
$(tal t.tal, sources.loc (~(del in sources.loc) i.tal))
|
|
|
|
$(tal t.tal, sources.loc (~(put in sources.loc) i.tal))
|
2015-04-03 21:25:21 +03:00
|
|
|
==
|
|
|
|
::
|
|
|
|
++ invite :: %invite
|
|
|
|
|= [nom=span tal=(list partner)]
|
|
|
|
^+ +>+>+>
|
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ banish :: %banish
|
|
|
|
|= [nom=span tal=(list partner)]
|
|
|
|
^+ +>+>+>
|
|
|
|
!!
|
|
|
|
::
|
|
|
|
++ create :: %create
|
2015-04-05 20:00:36 +03:00
|
|
|
|= [por=posture nom=span txt=cord]
|
2015-04-03 21:25:21 +03:00
|
|
|
^+ +>+>+>
|
|
|
|
?: (~(has in stories) nom)
|
|
|
|
(sh-lame "{(trip nom)}: already exists")
|
2015-04-07 22:05:21 +03:00
|
|
|
=. +>+>+>
|
|
|
|
%^ sh-tell %design nom
|
|
|
|
:- ~
|
|
|
|
:+ *(set partner)
|
|
|
|
(end 3 62 txt)
|
|
|
|
[por ~]
|
|
|
|
(join [[%& our.hid nom] ~ ~])
|
2015-04-03 21:25:21 +03:00
|
|
|
::
|
|
|
|
++ target :: %target
|
2015-04-04 13:44:22 +03:00
|
|
|
|= lix=(set partner)
|
|
|
|
(sh-pact lix)
|
2015-04-03 21:25:21 +03:00
|
|
|
::
|
|
|
|
++ number :: %number
|
|
|
|
|= [rel=? num=@ud]
|
|
|
|
^+ +>+>+>
|
|
|
|
=+ roy=(~(got by stories) man.she)
|
|
|
|
=. num
|
|
|
|
?. rel num
|
|
|
|
=+ dog=|-(?:(=(0 num) 1 (mul 10 $(num (div num 10)))))
|
|
|
|
(add num (mul dog (div count.roy dog)))
|
|
|
|
?: (gte num count.roy)
|
|
|
|
(sh-lame "{(scow %ud num)}: no such telegram")
|
|
|
|
(activate (snag (sub count.roy +(num)) grams.roy))
|
|
|
|
::
|
|
|
|
++ probe :: inquire
|
|
|
|
|= cuz=station
|
|
|
|
^+ +>+>+>
|
|
|
|
~& [%probe cuz]
|
|
|
|
+>+>+>
|
|
|
|
::
|
2015-04-04 13:44:22 +03:00
|
|
|
++ say :: publish
|
2015-04-03 21:25:21 +03:00
|
|
|
|= sep=speech
|
|
|
|
^+ +>+>+>
|
|
|
|
=^ sir +>+>+> sh-uniq
|
|
|
|
%= +>+>+>.$
|
|
|
|
coz :_ coz
|
|
|
|
[%publish [[sir sh-whom [lat.hid ~ sep]] ~]]
|
|
|
|
==
|
|
|
|
--
|
|
|
|
::
|
2015-04-01 03:17:30 +03:00
|
|
|
++ sh-done :: apply result
|
|
|
|
=+ lit=(sh-sane [%nop ~] buf.say.she)
|
|
|
|
?^ lit
|
|
|
|
(sh-slug lit)
|
|
|
|
=+ jub=sh-pork
|
|
|
|
?~ jub (sh-fact %bel ~)
|
|
|
|
=. +> (sh-work u.jub)
|
2015-04-07 22:05:21 +03:00
|
|
|
=+ buf=buf.say.she
|
2015-04-01 03:17:30 +03:00
|
|
|
=^ cal say.she (~(transmit cs say.she) [%set ~])
|
2015-04-07 22:05:21 +03:00
|
|
|
%- sh-fact
|
|
|
|
:* %mor
|
|
|
|
[%nex ~]
|
|
|
|
[%det cal]
|
|
|
|
?. ?=([%';' *] buf) ~
|
|
|
|
:_ ~
|
|
|
|
[%txt (weld "----------------| " (tufa buf))]
|
|
|
|
==
|
2015-04-01 03:17:30 +03:00
|
|
|
::
|
|
|
|
++ sh-sole :: apply edit
|
2015-03-31 10:40:43 +03:00
|
|
|
|= act=sole-action
|
|
|
|
^+ +>
|
2015-04-01 03:17:30 +03:00
|
|
|
?- -.act
|
|
|
|
%det (sh-stir +.act)
|
|
|
|
%ret sh-done
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ sh-uniq
|
|
|
|
^- [serial _.]
|
|
|
|
[(shaf %serial eny.hid) .(eny.hid (shax eny.hid))]
|
2015-03-31 10:40:43 +03:00
|
|
|
--
|
|
|
|
++ ra-abed :: resolve core
|
2014-12-18 05:34:40 +03:00
|
|
|
^- [(list move) _+>]
|
2015-04-07 22:05:21 +03:00
|
|
|
:_ +>
|
|
|
|
=+ ^= yop
|
|
|
|
|- ^- (pair (list move) (list sole-effect))
|
|
|
|
?~ moves [~ ~]
|
|
|
|
=+ mor=$(moves t.moves)
|
|
|
|
?: ?& =(ost p.i.moves)
|
|
|
|
?=([%give %rush %sole-effect *] q.i.moves)
|
|
|
|
==
|
|
|
|
[p.mor [+>+.q.i.moves q.mor]]
|
|
|
|
[[i.moves p.mor] q.mor]
|
|
|
|
=+ :* moz=(flop p.yop)
|
|
|
|
^= foc ^- (unit sole-effect)
|
|
|
|
?~ q.yop ~
|
|
|
|
?~(t.q.yop `i.q.yop `[%mor (flop `(list sole-effect)`q.yop)])
|
|
|
|
==
|
|
|
|
?~(foc moz [[ost %give %rush %sole-effect u.foc] moz])
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-03-31 10:40:43 +03:00
|
|
|
++ ra-abet :: complete core
|
|
|
|
ra-abed:ra-axel
|
|
|
|
::
|
|
|
|
++ ra-axel :: rebound reports
|
|
|
|
^+ .
|
|
|
|
=+ ^= rey
|
|
|
|
|- ^- (pair (list move) (list (pair bone report)))
|
|
|
|
?~ moves
|
|
|
|
[~ ~]
|
|
|
|
=+ mor=$(moves t.moves)
|
|
|
|
?. ?& (~(has by shells) `bone`p.i.moves)
|
2015-04-01 23:56:43 +03:00
|
|
|
?=([%give %rush %talk-report *] q.i.moves)
|
2015-03-31 10:40:43 +03:00
|
|
|
==
|
|
|
|
[[i.moves p.mor] q.mor]
|
|
|
|
[p.mor [[p.i.moves +>+.q.i.moves] q.mor]]
|
|
|
|
=. moves p.rey
|
|
|
|
?: =(q.rey ~) +
|
2015-04-07 22:05:21 +03:00
|
|
|
=. q.rey (flop q.rey)
|
2015-03-31 10:40:43 +03:00
|
|
|
|- ^+ +>
|
|
|
|
?~ q.rey ra-axel
|
|
|
|
$(q.rey t.q.rey, +> (ra-back(ost p.i.q.rey) q.i.q.rey))
|
|
|
|
::
|
|
|
|
++ ra-back
|
|
|
|
|= rad=report
|
|
|
|
^+ +>
|
|
|
|
sh-abet:(~(sh-repo sh ~ (~(got by shells) ost)) rad)
|
|
|
|
::
|
|
|
|
++ ra-sole
|
|
|
|
|= act=sole-action
|
|
|
|
^+ +>
|
2015-04-07 22:05:21 +03:00
|
|
|
=+ shu=(~(get by shells) ost)
|
|
|
|
?~ shu
|
|
|
|
~& [%ra-console-broken ost]
|
|
|
|
+>.$
|
2015-03-31 10:40:43 +03:00
|
|
|
sh-abet:(~(sh-sole sh ~ (~(got by shells) ost)) act)
|
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ ra-emil :: ra-emit move list
|
|
|
|
|= mol=(list move)
|
|
|
|
%_(+> moves (welp (flop mol) moves))
|
|
|
|
::
|
|
|
|
++ ra-emit :: emit a move
|
|
|
|
|= mov=move
|
|
|
|
%_(+> moves [mov moves])
|
|
|
|
::
|
|
|
|
++ ra-ever :: emit success
|
|
|
|
(ra-emit ost %give %nice ~)
|
|
|
|
::
|
|
|
|
++ ra-evil :: emit error
|
|
|
|
|= msg=cord
|
|
|
|
~& [%ra-evil msg]
|
2015-03-28 01:53:35 +03:00
|
|
|
(ra-emit ost %give %mean ~ msg ~)
|
|
|
|
:: (ra-emit ost %give %nice ~)
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-01-26 04:38:03 +03:00
|
|
|
++ ra-house :: emit partners
|
2014-12-18 05:34:40 +03:00
|
|
|
|= ost=bone
|
|
|
|
%+ ra-emit ost
|
2015-04-01 23:56:43 +03:00
|
|
|
:^ %give %rush %talk-report
|
2014-12-18 05:34:40 +03:00
|
|
|
:- %house
|
2015-01-26 04:38:03 +03:00
|
|
|
%- ~(gas in *(map span (pair posture cord)))
|
|
|
|
%+ turn (~(tap by stories))
|
|
|
|
|=([a=span b=story] [a p.cordon.shape.b caption.shape.b])
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-01-26 04:38:03 +03:00
|
|
|
++ ra-homes :: update partners
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ gel=general
|
|
|
|
|- ^+ +>
|
|
|
|
?~ gel +>
|
|
|
|
=. +> $(gel l.gel)
|
|
|
|
=. +> $(gel r.gel)
|
|
|
|
(ra-house n.gel)
|
|
|
|
::
|
2015-04-01 23:56:43 +03:00
|
|
|
++ ra-init :: initialize talk
|
2015-01-06 02:59:57 +03:00
|
|
|
%+ ra-apply our.hid
|
|
|
|
:+ %design (main our.hid)
|
2015-04-04 13:44:22 +03:00
|
|
|
:- ~ :- ~
|
2015-04-05 20:00:36 +03:00
|
|
|
:- 'default home'
|
2015-04-04 13:44:22 +03:00
|
|
|
[%brown ~]
|
2015-01-06 02:59:57 +03:00
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ ra-apply :: apply command
|
|
|
|
|= [her=ship cod=command]
|
|
|
|
^+ +>
|
|
|
|
?- -.cod
|
|
|
|
%design
|
|
|
|
?. =(her our.hid)
|
2015-04-01 23:56:43 +03:00
|
|
|
(ra-evil %talk-no-owner)
|
2014-12-18 05:34:40 +03:00
|
|
|
?~ q.cod
|
2015-01-01 23:43:50 +03:00
|
|
|
?. (~(has by stories) p.cod)
|
2015-04-01 23:56:43 +03:00
|
|
|
(ra-evil %talk-no-story)
|
2014-12-18 05:34:40 +03:00
|
|
|
=. +>.$ (ra-config p.cod *config)
|
2015-01-01 23:43:50 +03:00
|
|
|
ra-ever(stories (~(del by stories) p.cod))
|
2014-12-18 05:34:40 +03:00
|
|
|
=. +>.$ (ra-config p.cod u.q.cod)
|
|
|
|
ra-ever
|
|
|
|
::
|
|
|
|
%review ra-ever:(ra-think | her +.cod)
|
|
|
|
%publish ra-ever:(ra-think & her +.cod)
|
|
|
|
==
|
|
|
|
::
|
2015-01-01 23:43:50 +03:00
|
|
|
++ ra-config :: configure story
|
2014-12-18 05:34:40 +03:00
|
|
|
|= [man=span con=config]
|
|
|
|
^+ +>
|
2015-01-01 23:43:50 +03:00
|
|
|
=+ :- neu=(~(has by stories) man)
|
|
|
|
pur=(fall (~(get by stories) man) *story)
|
2014-12-18 05:34:40 +03:00
|
|
|
=. +>.$ pa-abet:(~(pa-reform pa man pur) con)
|
|
|
|
?:(neu +>.$ ra-homes)
|
|
|
|
::
|
|
|
|
++ ra-friend :: %friend response
|
2015-01-26 04:38:03 +03:00
|
|
|
|= [man=span tay=partner sih=sign]
|
2014-12-18 05:34:40 +03:00
|
|
|
^+ +>
|
2015-01-01 23:43:50 +03:00
|
|
|
=+ pur=(~(get by stories) man)
|
2015-01-27 04:55:01 +03:00
|
|
|
?~ pur ~& [%ra-friend-none man] +>.$
|
|
|
|
pa-abet:(~(pa-friend pa man u.pur) tay sih)
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ ra-twitter :: %twitter response
|
2015-01-27 09:20:39 +03:00
|
|
|
|= [[num=@ud man=span] sih=sign]
|
2014-12-18 05:34:40 +03:00
|
|
|
^+ +>
|
2015-04-01 23:56:43 +03:00
|
|
|
?+ sih ~|([%talk-bad-twitter sih] !!)
|
2015-01-27 07:30:22 +03:00
|
|
|
[%g ?(%nice %mean) ~]
|
|
|
|
+>
|
2015-01-27 09:20:39 +03:00
|
|
|
[%g %mean ^]
|
|
|
|
(ra-repeat num [%| %twitter man] sih)
|
2015-01-27 07:30:22 +03:00
|
|
|
[%g %rush %twit-stat *]
|
2015-01-27 09:20:39 +03:00
|
|
|
(ra-repeat num [%| %twitter man] [%g %nice ~])
|
2015-01-27 07:30:22 +03:00
|
|
|
==
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ ra-repeat :: %repeat response
|
2015-01-27 09:20:39 +03:00
|
|
|
|= [num=@ud pan=partner sih=sign]
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ oot=(~(get by q.outbox) num)
|
|
|
|
?~ oot ~& [%ra-repeat-none num] +>.$
|
|
|
|
=. q.outbox (~(del by q.outbox) num)
|
|
|
|
=. q.u.oot
|
2015-01-27 09:20:39 +03:00
|
|
|
=+ olg=(~(got by q.u.oot) pan)
|
|
|
|
%+ ~(put by q.u.oot) pan
|
2015-01-26 04:38:03 +03:00
|
|
|
:- -.olg
|
2014-12-18 05:34:40 +03:00
|
|
|
?+ sih !!
|
2015-04-01 23:56:43 +03:00
|
|
|
[%g %mean *] ~&([%talk-repeat-rejected num pan sih] %rejected)
|
2014-12-18 05:34:40 +03:00
|
|
|
[%g %nice ~] %received
|
2014-07-03 02:08:02 +04:00
|
|
|
==
|
2014-12-18 05:34:40 +03:00
|
|
|
(ra-think | our.hid u.oot ~)
|
|
|
|
::
|
|
|
|
++ ra-cancel :: drop a bone
|
2015-01-23 01:01:39 +03:00
|
|
|
^+ .
|
2015-01-27 05:54:14 +03:00
|
|
|
=+ hep=(~(get by sup.hid) ost)
|
|
|
|
?~ hep +
|
|
|
|
?. ?=([@ @ *] q.u.hep)
|
2015-01-26 23:54:45 +03:00
|
|
|
+(general (~(del in general) ost))
|
2015-01-27 05:54:14 +03:00
|
|
|
=* man i.t.q.u.hep
|
2015-01-23 01:01:39 +03:00
|
|
|
=+ pur=(~(get by stories) man)
|
|
|
|
?~ pur +>
|
2015-01-27 05:54:14 +03:00
|
|
|
pa-abet:(pa-notify:~(pa-cancel pa man u.pur) p.u.hep %gone *human)
|
2015-01-23 01:01:39 +03:00
|
|
|
::
|
|
|
|
++ ra-human :: look up person
|
|
|
|
|= her=ship
|
|
|
|
^- [human _+>]
|
|
|
|
=^ who folks
|
|
|
|
=+ who=(~(get by folks) her)
|
|
|
|
?^ who [u.who folks]
|
|
|
|
=+ who=`human`[~ `(scot %p her)] :: XX do right
|
|
|
|
[who (~(put by folks) her who)]
|
|
|
|
[who +>.$]
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-03-31 10:40:43 +03:00
|
|
|
++ ra-console :: console subscribe
|
|
|
|
|= [her=ship pax=path]
|
|
|
|
^+ +>
|
|
|
|
=+ man=`span`?~(pax (main her) ?>(?=(~ t.pax) i.pax))
|
2015-04-05 20:00:36 +03:00
|
|
|
=+ ^= she ^- shell
|
2015-04-06 22:57:23 +03:00
|
|
|
[her man 0 *sole-share ~ [[%& our.hid man] ~ ~] [~ ~] ~ *cabal]
|
2015-04-05 20:00:36 +03:00
|
|
|
sh-abet:~(sh-peer sh ~ she)
|
2015-03-31 10:40:43 +03:00
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ ra-subscribe :: listen to
|
|
|
|
|= [her=ship pax=path]
|
|
|
|
^+ +>
|
2015-04-06 22:57:23 +03:00
|
|
|
:: ~& [%ra-subscribe ost her pax]
|
2014-12-18 05:34:40 +03:00
|
|
|
?: ?=(~ pax)
|
|
|
|
(ra-house(general (~(put in general) ost)) ost)
|
2015-01-07 04:27:02 +03:00
|
|
|
?. ?=([@ @ *] pax)
|
2015-04-01 23:56:43 +03:00
|
|
|
(ra-evil %talk-bad-path)
|
2015-01-07 04:27:02 +03:00
|
|
|
=+ ^= vab ^- (set ,@tas)
|
|
|
|
=| vab=(set ,@tas)
|
|
|
|
|- ^+ vab
|
|
|
|
?: =(0 i.pax) vab
|
|
|
|
$(i.pax (rsh 3 1 i.pax), vab (~(put in vab) (end 3 1 i.pax)))
|
2015-01-01 23:43:50 +03:00
|
|
|
=+ pur=(~(get by stories) i.t.pax)
|
2014-12-18 05:34:40 +03:00
|
|
|
?~ pur
|
2015-01-01 23:43:50 +03:00
|
|
|
~& [%bad-subscribe-story-c i.t.pax]
|
2015-04-01 23:56:43 +03:00
|
|
|
(ra-evil %talk-no-story)
|
2015-01-07 04:27:02 +03:00
|
|
|
=+ soy=~(. pa i.t.pax u.pur)
|
|
|
|
=. soy ?.((~(has in vab) %a) soy (pa-watch:soy her))
|
|
|
|
=. soy ?.((~(has in vab) %x) soy (pa-master:soy her))
|
|
|
|
=. soy ?.((~(has in vab) %f) soy (pa-listen:soy her t.t.pax))
|
2015-01-23 01:01:39 +03:00
|
|
|
=^ who +>.$ (ra-human her)
|
|
|
|
pa-abet:(pa-notify:soy her %hear who)
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ ra-think :: publish/review
|
|
|
|
|= [pub=? her=ship tiz=(list thought)]
|
|
|
|
^+ +>
|
|
|
|
?~ tiz +>
|
|
|
|
$(tiz t.tiz, +> (ra-consume pub her i.tiz))
|
|
|
|
::
|
2015-04-08 00:15:06 +03:00
|
|
|
++ ra-normal :: normalize
|
|
|
|
|= tip=thought
|
|
|
|
^- thought
|
|
|
|
?. ?=([%lin *] r.r.tip) tip
|
|
|
|
%_ tip
|
|
|
|
q.r.r
|
|
|
|
%- crip
|
|
|
|
%+ scag 62
|
|
|
|
%- tufa
|
|
|
|
%+ turn (tuba (trip q.r.r.tip))
|
|
|
|
|= a=@c
|
|
|
|
?: &((gte a 'A') (lte a 'Z'))
|
|
|
|
(add a 32)
|
|
|
|
?: |((lth a 32) (gth a 126))
|
|
|
|
`@`'?'
|
|
|
|
a
|
|
|
|
==
|
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ ra-consume :: consume thought
|
|
|
|
|= [pub=? her=ship tip=thought]
|
2015-04-08 00:15:06 +03:00
|
|
|
=. tip (ra-normal tip)
|
2015-01-26 04:38:03 +03:00
|
|
|
=+ aud=(~(tap by q.tip) ~)
|
2014-12-18 05:34:40 +03:00
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ aud +>.^$
|
|
|
|
$(aud t.aud, +>.^$ (ra-conduct pub her p.i.aud tip))
|
|
|
|
::
|
2015-01-26 04:38:03 +03:00
|
|
|
++ ra-conduct :: thought to partner
|
|
|
|
|= [pub=? her=ship tay=partner tip=thought]
|
2014-12-18 05:34:40 +03:00
|
|
|
^+ +>
|
2014-12-18 21:37:36 +03:00
|
|
|
:: ~& [%ra-conduct pub her tay]
|
2014-12-18 05:34:40 +03:00
|
|
|
?- -.tay
|
|
|
|
%& ?: pub
|
|
|
|
=. her our.hid :: XX security!
|
|
|
|
?: =(her p.p.tay)
|
|
|
|
(ra-record q.p.tay p.p.tay tip)
|
|
|
|
(ra-transmit p.tay tip)
|
|
|
|
?. =(our.hid p.p.tay)
|
|
|
|
+>
|
|
|
|
(ra-record q.p.tay her tip)
|
|
|
|
%| ?. pub +>
|
|
|
|
?- -.p.tay
|
|
|
|
%twitter
|
2015-01-27 07:30:22 +03:00
|
|
|
(ra-tweet p.p.tay tip)
|
2014-12-18 05:34:40 +03:00
|
|
|
== ==
|
|
|
|
::
|
2015-01-01 23:43:50 +03:00
|
|
|
++ ra-record :: add to story
|
2014-12-18 05:34:40 +03:00
|
|
|
|= [man=span gam=telegram]
|
|
|
|
^+ +>
|
2015-01-01 23:43:50 +03:00
|
|
|
=+ pur=(~(get by stories) man)
|
2014-12-18 05:34:40 +03:00
|
|
|
?~ pur
|
2015-01-01 23:43:50 +03:00
|
|
|
~& [%no-story man]
|
2014-12-18 05:34:40 +03:00
|
|
|
+>.$
|
|
|
|
pa-abet:(~(pa-learn pa man u.pur) gam)
|
|
|
|
::
|
|
|
|
++ ra-transmit :: send to neighbor
|
2015-01-26 04:38:03 +03:00
|
|
|
|= [cuz=station tip=thought]
|
2014-12-18 05:34:40 +03:00
|
|
|
^+ +>
|
|
|
|
=. +>
|
|
|
|
%+ ra-emit ost
|
|
|
|
:* %pass
|
|
|
|
/repeat/(scot %ud p.outbox)/(scot %p p.cuz)/[q.cuz]
|
|
|
|
%g
|
|
|
|
%mess
|
2015-04-01 23:56:43 +03:00
|
|
|
[p.cuz /talk]
|
2014-12-18 05:34:40 +03:00
|
|
|
our.hid
|
2015-04-01 23:56:43 +03:00
|
|
|
[%talk-command !>(`command`[%review tip ~])]
|
2014-12-18 05:34:40 +03:00
|
|
|
==
|
|
|
|
+>(p.outbox +(p.outbox), q.outbox (~(put by q.outbox) p.outbox tip))
|
|
|
|
::
|
2015-01-27 07:30:22 +03:00
|
|
|
++ ra-tweet :: send to /twit
|
2015-01-27 09:20:39 +03:00
|
|
|
|= [man=span tip=thought]
|
|
|
|
=* sta r.tip
|
2015-01-27 07:30:22 +03:00
|
|
|
?> ?=(%lin -.r.sta)
|
2015-01-27 09:20:39 +03:00
|
|
|
=. q.outbox (~(put by q.outbox) p.outbox tip)
|
|
|
|
%^ ra-emil(p.outbox +(p.outbox))
|
2015-01-27 07:30:22 +03:00
|
|
|
:* ost
|
2015-01-27 09:20:39 +03:00
|
|
|
%pass /twitter/stat/(scot %ud p.outbox)/[man]
|
2015-01-27 07:30:22 +03:00
|
|
|
%g %mess
|
|
|
|
[our.hid /twit] our.hid
|
2015-01-27 09:20:39 +03:00
|
|
|
[%twit-do !>(`twit-do`[man %post p.tip q.r.sta])]
|
2015-01-27 07:30:22 +03:00
|
|
|
==
|
|
|
|
:* ost
|
2015-01-27 09:20:39 +03:00
|
|
|
%pass /twitter/stat/(scot %ud p.outbox)/[man]
|
|
|
|
[%g %show [our.hid /twit] our.hid /post/(scot %uv p.tip)]
|
2015-01-27 07:30:22 +03:00
|
|
|
==
|
|
|
|
~
|
2015-01-01 23:43:50 +03:00
|
|
|
++ pa :: story core
|
2014-12-18 05:34:40 +03:00
|
|
|
|_ $: man=span
|
2015-01-01 23:43:50 +03:00
|
|
|
story
|
2014-12-18 05:34:40 +03:00
|
|
|
==
|
|
|
|
++ pa-abet
|
|
|
|
^+ +>
|
2015-01-01 23:43:50 +03:00
|
|
|
+>(stories (~(put by stories) man `story`+<+))
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ pa-admire :: accept from
|
|
|
|
|= her=ship
|
|
|
|
^- ?
|
|
|
|
::?- -.cordon.shape
|
|
|
|
:: %& (~(has in p.cordon.shape) her)
|
|
|
|
:: %| !(~(has in p.cordon.shape) her)
|
|
|
|
::==
|
|
|
|
&
|
|
|
|
::
|
|
|
|
++ pa-watch :: watch presence
|
|
|
|
|= her=ship
|
|
|
|
?. (pa-admire her)
|
2015-04-01 23:56:43 +03:00
|
|
|
(pa-sauce ost [[%mean ~ %talk-watch-unauthorized ~] ~])
|
2014-12-18 05:34:40 +03:00
|
|
|
=. viewers (~(put in viewers) ost)
|
|
|
|
(pa-display ost ~ ~)
|
|
|
|
::
|
|
|
|
++ pa-master :: hear config
|
|
|
|
|= her=ship
|
|
|
|
?. (pa-admire her)
|
2015-04-01 23:56:43 +03:00
|
|
|
(pa-sauce ost [[%mean ~ %talk-master-unauthorized ~] ~])
|
2014-12-18 05:34:40 +03:00
|
|
|
=. owners (~(put in owners) ost)
|
|
|
|
:: ~& [%pa-master her man shape]
|
2015-04-06 22:57:23 +03:00
|
|
|
(pa-sauce ost [[%rush %talk-report %cabal shape mirrors] ~])
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ pa-display :: update presence
|
|
|
|
|= vew=(set bone)
|
|
|
|
=+ ^= reg
|
|
|
|
:_ remotes
|
|
|
|
|- ^- atlas
|
|
|
|
?~ locals ~
|
|
|
|
[[p.n.locals q.q.n.locals] $(locals l.locals) $(locals r.locals)]
|
|
|
|
:: ~& [%pa-display man reg]
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ vew +>.^$
|
|
|
|
=. +>.^$ $(vew l.vew)
|
|
|
|
=. +>.^$ $(vew r.vew)
|
2015-04-01 23:56:43 +03:00
|
|
|
(pa-sauce n.vew [[%rush %talk-report %group reg] ~])
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ pa-monitor :: update config
|
|
|
|
=+ owe=owners
|
|
|
|
|- ^+ +>
|
|
|
|
?~ owe +>
|
|
|
|
=. +> $(owe l.owe)
|
|
|
|
=. +> $(owe r.owe)
|
|
|
|
:: ~& [%pa-monitor man shape]
|
2015-04-06 22:57:23 +03:00
|
|
|
(pa-sauce n.owe [[%rush %talk-report %cabal shape mirrors] ~])
|
|
|
|
::
|
|
|
|
++ pa-cabal
|
|
|
|
|= [cuz=station con=config ham=(map station config)]
|
|
|
|
^+ +>
|
|
|
|
=+ old=mirrors
|
|
|
|
=. mirrors (~(put by mirrors) cuz con)
|
|
|
|
?: =(mirrors old)
|
|
|
|
+>.$
|
|
|
|
pa-monitor
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ pa-friend :: subscribed update
|
2015-01-27 04:55:01 +03:00
|
|
|
|= [tay=partner sih=sign]
|
2014-12-18 05:34:40 +03:00
|
|
|
^+ +>
|
2015-04-01 23:56:43 +03:00
|
|
|
?+ sih ~|([%talk-bad-friend sih] !!)
|
2014-12-18 05:34:40 +03:00
|
|
|
[%g %nice ~]
|
2015-01-26 04:38:03 +03:00
|
|
|
+>.$
|
2015-01-26 23:54:45 +03:00
|
|
|
::
|
2015-01-26 04:38:03 +03:00
|
|
|
[%g %mean *]
|
2015-01-27 01:31:00 +03:00
|
|
|
?~ +>.sih
|
2015-04-07 22:05:21 +03:00
|
|
|
?. (~(has in sources.shape) tay) +>.$ :: XX hack for odd mean
|
2015-01-27 04:55:01 +03:00
|
|
|
(pa-acquire [tay ~])
|
|
|
|
pa-monitor(sources.shape (~(del in sources.shape) tay))
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-01-27 11:19:18 +03:00
|
|
|
[%g %rush %twit-feed *]
|
|
|
|
%- pa-lesson
|
|
|
|
%+ turn p.p.sih |= twit-stat
|
|
|
|
^- telegram
|
|
|
|
:^ our.hid :: XX inaccurate
|
|
|
|
(shas %twit id)
|
|
|
|
`audience`[[tay [& ~ tay] %received] `~] :: current party?
|
|
|
|
^- statement
|
|
|
|
:+ now
|
|
|
|
~ :: XX hashtags
|
|
|
|
[%lin & txt]
|
2015-03-25 22:04:25 +03:00
|
|
|
::
|
2015-04-01 23:56:43 +03:00
|
|
|
[%g %rush %talk-report *]
|
2015-01-27 01:41:24 +03:00
|
|
|
:: ~& [%pa-friend-report +>+.sih]
|
2015-04-06 22:57:23 +03:00
|
|
|
?> ?=(%& -.tay)
|
2015-01-21 02:00:54 +03:00
|
|
|
=. +> %+ pa-scrub ost
|
|
|
|
:_ ~
|
2015-01-27 04:55:01 +03:00
|
|
|
:- /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
|
2015-04-01 23:56:43 +03:00
|
|
|
[%g %took [p.p.tay /talk] our.hid]
|
|
|
|
?+ -.p.p.sih ~|([%talk-odd-friend sih] !!)
|
2015-04-06 22:57:23 +03:00
|
|
|
%cabal (pa-cabal `station`p.tay `cabal`+.p.p.sih)
|
2015-01-27 07:30:22 +03:00
|
|
|
%group (pa-remind tay +.p.p.sih)
|
|
|
|
%grams (pa-lesson q.+.p.p.sih)
|
2014-12-18 05:34:40 +03:00
|
|
|
==
|
2014-07-03 02:08:02 +04:00
|
|
|
==
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ pa-scrub :: pass forward
|
|
|
|
|= [ost=bone bub=(list (pair path note))]
|
|
|
|
%_ +>.$
|
|
|
|
moves
|
|
|
|
(welp (flop (turn bub |=(a=(pair path note) [ost %pass a]))) moves)
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ pa-sauce :: send backward
|
|
|
|
|= [ost=bone gub=(list gift)]
|
|
|
|
%_ +>.$
|
|
|
|
moves
|
|
|
|
(welp (flop (turn gub |=(a=gift [ost %give a]))) moves)
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ pa-abjure :: unsubscribe move
|
2015-01-26 04:38:03 +03:00
|
|
|
|= tal=(list partner)
|
2014-12-18 05:34:40 +03:00
|
|
|
%+ pa-scrub 0
|
|
|
|
%- zing
|
|
|
|
%+ turn tal
|
2015-01-26 04:38:03 +03:00
|
|
|
|= tay=partner
|
2014-12-18 05:34:40 +03:00
|
|
|
?- -.tay
|
|
|
|
%| ~& tweet-abjure/p.p.tay
|
2014-12-18 21:43:07 +03:00
|
|
|
!!
|
2015-01-27 11:19:18 +03:00
|
|
|
:: :~ :- /friend/nuke/[man]/twitter/[p.p.tay]
|
|
|
|
:: [%g %nuke [our.hid /twit] our.hid]
|
|
|
|
:: ==
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-03-25 22:04:25 +03:00
|
|
|
%& ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]]
|
2015-04-07 22:05:21 +03:00
|
|
|
:~ :- /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
|
2015-04-01 23:56:43 +03:00
|
|
|
[%g %nuke [p.p.tay /talk] our.hid]
|
2014-12-18 05:34:40 +03:00
|
|
|
==
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ pa-acquire :: subscribe to
|
2015-01-26 04:38:03 +03:00
|
|
|
|= tal=(list partner)
|
2014-12-18 05:34:40 +03:00
|
|
|
%+ pa-scrub 0
|
|
|
|
%- zing
|
|
|
|
%+ turn tal
|
2015-01-26 04:38:03 +03:00
|
|
|
|= tay=partner
|
2014-12-18 05:34:40 +03:00
|
|
|
^- (list (pair path note))
|
|
|
|
=+ num=(fall (~(get by sequence) tay) 0)
|
|
|
|
?- -.tay
|
|
|
|
%| ~& tweet-acquire/p.p.tay
|
2015-01-27 11:19:18 +03:00
|
|
|
:~ :- /friend/show/[man]/twitter/[p.p.tay]
|
|
|
|
[%g %show [our.hid /twit] our.hid /user/[p.p.tay]]
|
|
|
|
==
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2015-01-21 02:53:44 +03:00
|
|
|
%& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
|
2015-01-27 04:55:01 +03:00
|
|
|
:~ :- /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
|
2015-04-07 22:05:21 +03:00
|
|
|
[%g %show [p.p.tay /talk] our.hid /afx/[q.p.tay]/(scot %ud num)]
|
2014-12-18 05:34:40 +03:00
|
|
|
==
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ pa-reform :: reconfigure, ugly
|
|
|
|
|= cof=config
|
2015-01-26 04:38:03 +03:00
|
|
|
=+ ^= dif ^- (pair (list partner) (list partner))
|
|
|
|
=+ old=`(list partner)`(~(tap in sources.shape) ~)
|
|
|
|
=+ new=`(list partner)`(~(tap in sources.cof) ~)
|
|
|
|
:- (skip new |=(a=partner (~(has in sources.shape) a)))
|
|
|
|
(skip old |=(a=partner (~(has in sources.cof) a)))
|
2014-12-18 05:34:40 +03:00
|
|
|
=. +>.$ (pa-acquire p.dif)
|
|
|
|
=. +>.$ (pa-abjure q.dif)
|
|
|
|
=. shape cof
|
|
|
|
pa-monitor
|
|
|
|
::
|
|
|
|
++ pa-cancel :: unsubscribe from
|
2015-01-27 05:54:14 +03:00
|
|
|
:: ~& [%pa-cancel ost]
|
2015-01-23 01:01:39 +03:00
|
|
|
%_ .
|
2015-01-27 01:31:00 +03:00
|
|
|
guests (~(del by guests) ost)
|
2015-01-23 01:01:39 +03:00
|
|
|
viewers (~(del in viewers) ost)
|
|
|
|
owners (~(del in owners) ost)
|
|
|
|
==
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ pa-notify :: local presence
|
|
|
|
|= [her=ship saz=status]
|
|
|
|
^+ +>
|
2015-01-23 01:01:39 +03:00
|
|
|
=+ ^= nol
|
|
|
|
?: =(%gone p.saz)
|
2015-01-23 04:24:04 +03:00
|
|
|
(~(del by locals) her)
|
2015-01-23 01:01:39 +03:00
|
|
|
(~(put by locals) her lat.hid saz)
|
|
|
|
?: =(nol locals) +>.$
|
|
|
|
(pa-display(locals nol) viewers)
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
++ pa-remind :: remote presence
|
2015-01-26 04:38:03 +03:00
|
|
|
|= [tay=partner loc=atlas rem=(map partner atlas)]
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ ^= buk
|
|
|
|
=+ mer=(turn (~(tap by rem) ~) |=([* a=atlas] a))
|
|
|
|
|- ^- atlas
|
|
|
|
?~ mer loc
|
|
|
|
=. loc $(mer t.mer)
|
|
|
|
=+ dur=`(list (pair ship status))`(~(tap by i.mer) ~)
|
|
|
|
|- ^- atlas
|
|
|
|
?~ dur loc
|
|
|
|
=. loc $(dur t.dur)
|
|
|
|
=+ fuy=(~(get by loc) p.i.dur)
|
|
|
|
?~ fuy (~(put by loc) p.i.dur q.i.dur)
|
|
|
|
?: =(`presence`p.q.i.dur `presence`p.u.fuy)
|
|
|
|
loc
|
|
|
|
?- p.u.fuy
|
2015-01-01 23:43:50 +03:00
|
|
|
%gone (~(del by loc) p.i.dur q.i.dur)
|
2014-12-18 05:34:40 +03:00
|
|
|
%talk loc
|
|
|
|
%hear (~(put by loc) p.i.dur q.i.dur)
|
|
|
|
==
|
|
|
|
=+ gub=(~(get by remotes) tay)
|
|
|
|
:: ~& [%pa-remind tay gub buk]
|
|
|
|
?. |(?=(~ gub) !=(buk u.gub))
|
|
|
|
+>.$
|
|
|
|
=. remotes (~(put by remotes) tay buk)
|
|
|
|
(pa-display viewers)
|
|
|
|
::
|
|
|
|
++ pa-start :: start stream
|
|
|
|
|= riv=river
|
|
|
|
^+ +>
|
2015-01-22 08:04:40 +03:00
|
|
|
=- :: ~& [%pa-start riv lab]
|
2015-04-01 23:56:43 +03:00
|
|
|
=. +>.$ (pa-sauce ost [[%rush %talk-report %grams q.lab r.lab] ~])
|
2014-12-18 05:34:40 +03:00
|
|
|
?: p.lab
|
|
|
|
(pa-sauce ost [[%mean ~] ~])
|
|
|
|
+>.$(guests (~(put by guests) ost riv))
|
|
|
|
^= lab
|
|
|
|
=+ [end=count gaz=grams dun=| zeg=*(list telegram)]
|
|
|
|
|- ^- (trel ,? ,@ud (list telegram))
|
2015-01-19 02:19:06 +03:00
|
|
|
?~ gaz [dun end zeg]
|
2014-12-18 05:34:40 +03:00
|
|
|
?: ?- -.q.riv :: after the end
|
|
|
|
%ud (lte p.q.riv end)
|
|
|
|
%da (lte p.q.riv p.r.q.i.gaz)
|
|
|
|
==
|
|
|
|
$(end (dec end), gaz t.gaz)
|
|
|
|
?: ?- -.p.riv :: before the start
|
|
|
|
%ud (lth end p.p.riv)
|
|
|
|
%da (lth p.r.q.i.gaz p.p.riv)
|
|
|
|
==
|
2015-01-19 02:19:06 +03:00
|
|
|
[dun end zeg]
|
2014-12-18 05:34:40 +03:00
|
|
|
$(end (dec end), gaz t.gaz, zeg [i.gaz zeg])
|
|
|
|
::
|
|
|
|
++ pa-listen :: subscribe
|
|
|
|
|= [her=ship pax=path]
|
|
|
|
^+ +>
|
|
|
|
?. (pa-admire her)
|
2015-04-01 23:56:43 +03:00
|
|
|
(pa-sauce ost [[%mean ~ %talk-listen-unauthorized ~] ~])
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ ^= ruv ^- (unit river)
|
|
|
|
?: ?=(~ pax)
|
|
|
|
`[[%ud count] [%da (dec (bex 128))]]
|
|
|
|
?: ?=([@ ~] pax)
|
|
|
|
=+ say=(slay i.pax)
|
|
|
|
?. ?=([~ %$ ?(%ud %da) @] say) ~
|
|
|
|
`[(point +>.say) [%da (dec (bex 128))]]
|
|
|
|
?. ?=([@ @ ~] pax) ~
|
|
|
|
=+ [say=(slay i.pax) den=(slay i.t.pax)]
|
|
|
|
?. ?=([~ %$ ?(%ud %da) @] say) ~
|
|
|
|
?. ?=([~ %$ ?(%ud %da) @] den) ~
|
|
|
|
`[(point +>.say) (point +>.den)]
|
2015-01-06 02:59:57 +03:00
|
|
|
:: ~& [%pa-listen her pax ruv]
|
2014-12-18 05:34:40 +03:00
|
|
|
?~ ruv
|
2015-04-01 23:56:43 +03:00
|
|
|
(pa-sauce ost [[%mean ~ %talk-malformed ~] ~])
|
2014-12-18 05:34:40 +03:00
|
|
|
(pa-start u.ruv)
|
|
|
|
::
|
2015-03-30 09:43:48 +03:00
|
|
|
++ pa-refresh :: update to guests
|
2014-12-18 05:34:40 +03:00
|
|
|
|= [num=@ud gam=telegram]
|
2015-03-30 09:43:48 +03:00
|
|
|
^+ +>
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ ^= moy
|
|
|
|
|- ^- (pair (list bone) (list move))
|
|
|
|
?~ guests [~ ~]
|
2015-01-06 02:59:57 +03:00
|
|
|
:: ~& [%pa-refresh num n.guests]
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ lef=$(guests l.guests)
|
|
|
|
=+ rit=$(guests r.guests)
|
|
|
|
=+ old=[p=(welp p.lef p.rit) q=(welp q.lef q.rit)]
|
|
|
|
?: ?- -.q.q.n.guests :: after the end
|
|
|
|
%ud (lte p.q.q.n.guests num)
|
|
|
|
%da (lte p.q.q.n.guests p.r.q.gam)
|
|
|
|
==
|
|
|
|
[[p.n.guests p.old] [[p.n.guests %give %mean ~] q.old]]
|
|
|
|
?: ?- -.p.q.n.guests :: before the start
|
|
|
|
%ud (gth p.p.q.n.guests num)
|
|
|
|
%da (gth p.p.q.n.guests p.r.q.gam)
|
|
|
|
==
|
|
|
|
old
|
|
|
|
:- p.old
|
2015-04-01 23:56:43 +03:00
|
|
|
[[p.n.guests %give %rush %talk-report %grams num gam ~] q.old]
|
2014-12-18 05:34:40 +03:00
|
|
|
=. moves (welp q.moy moves)
|
|
|
|
|- ^+ +>.^$
|
|
|
|
?~ p.moy +>.^$
|
|
|
|
$(p.moy t.p.moy, guests (~(del by guests) i.p.moy))
|
|
|
|
::
|
|
|
|
++ pa-lesson :: learn multiple
|
|
|
|
|= gaz=(list telegram)
|
|
|
|
^+ +>
|
|
|
|
?~ gaz +>
|
|
|
|
$(gaz t.gaz, +> (pa-learn i.gaz))
|
|
|
|
::
|
|
|
|
++ pa-learn :: learn message
|
|
|
|
|= gam=telegram
|
|
|
|
^+ +>
|
|
|
|
?. (pa-admire p.gam)
|
|
|
|
~& %pa-admire-rejected
|
|
|
|
+>.$
|
2015-01-26 04:38:03 +03:00
|
|
|
=. q.q.gam
|
|
|
|
=+ ole=(~(get by q.q.gam) [%& our.hid man])
|
|
|
|
?~ ole q.q.gam
|
|
|
|
(~(put by q.q.gam) [%& our.hid man] -.u.ole %received)
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ old=(~(get by known) p.q.gam)
|
|
|
|
?~ old
|
|
|
|
(pa-append gam)
|
|
|
|
(pa-revise u.old gam)
|
|
|
|
::
|
|
|
|
++ pa-append :: append new
|
|
|
|
|= gam=telegram
|
|
|
|
^+ +>
|
|
|
|
%+ %= pa-refresh
|
|
|
|
grams [gam grams]
|
|
|
|
count +(count)
|
|
|
|
known (~(put by known) p.q.gam count)
|
|
|
|
==
|
|
|
|
count
|
|
|
|
gam
|
|
|
|
::
|
|
|
|
++ pa-revise :: revise existing
|
|
|
|
|= [num=@ud gam=telegram]
|
|
|
|
=+ way=(sub count num)
|
|
|
|
=. grams (welp (scag (dec way) grams) [gam (slag way grams)])
|
|
|
|
(pa-refresh num gam)
|
2014-07-03 02:08:02 +04:00
|
|
|
--
|
2014-12-18 05:34:40 +03:00
|
|
|
--
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
|
|
|
++ sn :: station render core
|
2015-04-04 13:44:22 +03:00
|
|
|
|_ [man=span one=station]
|
2015-03-30 09:43:48 +03:00
|
|
|
++ sn-best :: best to show
|
|
|
|
|= two=station
|
|
|
|
^- ?
|
2015-04-04 13:44:22 +03:00
|
|
|
?: =(our.hid p.one)
|
|
|
|
?: =(our.hid p.two)
|
|
|
|
?< =(q.one q.two)
|
|
|
|
?: =((main p.one) q.one) %&
|
|
|
|
?: =((main p.two) q.two) %|
|
|
|
|
(lth q.one q.two)
|
|
|
|
%&
|
|
|
|
?: =(our.hid p.two)
|
|
|
|
%|
|
|
|
|
?: =(p.one p.two)
|
|
|
|
(lth q.one q.two)
|
|
|
|
(lth p.one q.one)
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
|
|
|
++ sn-curt :: render name in 14
|
|
|
|
|= mup=?
|
|
|
|
^- tape
|
|
|
|
=+ ^= syl
|
|
|
|
|= [len=@ud sez=(list cord)]
|
|
|
|
?> !=(0 len)
|
|
|
|
|- ^- tape
|
|
|
|
?~ sez ~
|
|
|
|
=+ nez=(trip i.sez)
|
|
|
|
=+ nel=(lent nez)
|
|
|
|
?: (gte nel len)
|
|
|
|
(welp (scag (dec len) nez) ">")
|
|
|
|
(welp nez $(sez t.sez))
|
|
|
|
::
|
|
|
|
?: =(p.one our.hid)
|
2015-04-04 13:44:22 +03:00
|
|
|
?: =(q.one man)
|
|
|
|
(sigh 14 ?:(mup "*=" "=") %$)
|
2015-03-30 09:43:48 +03:00
|
|
|
(sigh 14 ?:(mup "*%" "%") q.one)
|
|
|
|
?: =(p.one (sein our.hid))
|
|
|
|
(sigh 14 ?:(mup "*/" "/") q.one)
|
|
|
|
=+ rac=(clan p.one)
|
|
|
|
=+ raw=(scow %p p.one)
|
|
|
|
=. raw ?.(mup raw ['*' (slag 2 raw)])
|
|
|
|
?- rac
|
|
|
|
%czar (weld " " raw)
|
|
|
|
%king (weld " " raw)
|
|
|
|
%duke raw
|
2015-04-01 03:17:30 +03:00
|
|
|
%earl :(welp (scag 7 raw) "^" (scag 6 (slag 22 raw)))
|
|
|
|
%pawn :(welp (scag 7 raw) "_" (scag 6 (slag 51 raw)))
|
2015-03-30 09:43:48 +03:00
|
|
|
==
|
|
|
|
::
|
|
|
|
++ sn-phat :: render accurately
|
|
|
|
^- tape
|
|
|
|
?: =(p.one our.hid)
|
2015-04-04 13:44:22 +03:00
|
|
|
?: =(q.one man)
|
|
|
|
"="
|
2015-03-30 09:43:48 +03:00
|
|
|
['%' (trip q.one)]
|
|
|
|
?: =(p.one (sein our.hid))
|
|
|
|
['/' (trip q.one)]
|
2015-04-04 13:44:22 +03:00
|
|
|
=+ wun=(scow %p p.one)
|
|
|
|
?: =(q.one (main p.one))
|
|
|
|
wun
|
|
|
|
:(welp wun "/" (trip q.one))
|
2015-03-30 09:43:48 +03:00
|
|
|
--
|
|
|
|
::
|
|
|
|
++ ta :: partner core
|
2015-04-04 13:44:22 +03:00
|
|
|
|_ [man=span one=partner]
|
|
|
|
++ ta-beat :: more relevant
|
|
|
|
|= two=partner ^- ?
|
2015-03-30 09:43:48 +03:00
|
|
|
?- -.one
|
|
|
|
%&
|
|
|
|
?- -.two
|
|
|
|
%| %&
|
2015-04-04 13:44:22 +03:00
|
|
|
%& (~(sn-best sn man p.one) p.two)
|
2015-03-30 09:43:48 +03:00
|
|
|
==
|
|
|
|
::
|
|
|
|
%|
|
|
|
|
?- -.two
|
|
|
|
%& %|
|
|
|
|
%| ?: =(-.p.two -.p.one)
|
|
|
|
(lth (mug +.p.one) (mug +.p.two))
|
|
|
|
(lth -.p.two -.p.one)
|
|
|
|
==
|
|
|
|
==
|
2015-04-04 13:44:22 +03:00
|
|
|
++ ta-best :: most relevant
|
|
|
|
|=(two=partner ?:((ta-beat two) one two))
|
|
|
|
::
|
2015-04-05 20:00:36 +03:00
|
|
|
++ ta-full (ta-show ~) :: render full width
|
2015-03-30 09:43:48 +03:00
|
|
|
++ ta-show :: render partner
|
|
|
|
|= moy=(unit ,?)
|
|
|
|
^- tape
|
|
|
|
?- -.one
|
|
|
|
%&
|
|
|
|
?~ moy
|
2015-04-04 13:44:22 +03:00
|
|
|
~(sn-phat sn man p.one)
|
|
|
|
(~(sn-curt sn man p.one) u.moy)
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
|
|
|
%|
|
|
|
|
=+ ^= pre ^- tape
|
|
|
|
?- -.p.one
|
|
|
|
%twitter "@t:"
|
|
|
|
==
|
|
|
|
?~ moy
|
|
|
|
(weld pre (trip p.p.one))
|
|
|
|
=. pre ?.(=(& u.moy) pre ['*' pre])
|
|
|
|
(sigh 14 pre p.p.one)
|
|
|
|
==
|
|
|
|
--
|
|
|
|
::
|
|
|
|
++ te :: audience renderer
|
2015-03-30 23:25:30 +03:00
|
|
|
|_ [man=span lix=(set partner)]
|
2015-03-30 09:43:48 +03:00
|
|
|
++ te-best ^- (unit partner)
|
2015-03-30 23:25:30 +03:00
|
|
|
?~ lix ~
|
2015-03-30 09:43:48 +03:00
|
|
|
:- ~
|
|
|
|
|- ^- partner
|
2015-03-30 23:25:30 +03:00
|
|
|
=+ lef=`(unit partner)`te-best(lix l.lix)
|
|
|
|
=+ rit=`(unit partner)`te-best(lix r.lix)
|
2015-04-04 13:44:22 +03:00
|
|
|
=. n.lix ?~(lef n.lix (~(ta-best ta man n.lix) u.lef))
|
|
|
|
=. n.lix ?~(rit n.lix (~(ta-best ta man n.lix) u.rit))
|
2015-03-30 23:25:30 +03:00
|
|
|
n.lix
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
|
|
|
++ te-deaf ^+ . :: except for self
|
2015-03-30 23:25:30 +03:00
|
|
|
.(lix (~(del in lix) `partner`[%& our.hid man]))
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
|
|
|
++ te-maud ^- ? :: multiple audience
|
|
|
|
=. . te-deaf
|
2015-04-04 13:44:22 +03:00
|
|
|
?~ lix %|
|
2015-03-30 23:25:30 +03:00
|
|
|
|(!=(~ l.lix) !=(~ r.lix))
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
2015-03-31 10:40:43 +03:00
|
|
|
++ te-prom ^- tape :: render targets
|
2015-03-30 09:43:48 +03:00
|
|
|
=. . te-deaf
|
2015-04-04 13:44:22 +03:00
|
|
|
=+ ^= all
|
|
|
|
%+ sort `(list partner)`(~(tap in lix))
|
|
|
|
|= [a=partner b=partner]
|
|
|
|
(~(ta-beat ta man a) b)
|
|
|
|
=+ fir=&
|
2015-03-30 09:43:48 +03:00
|
|
|
|- ^- tape
|
|
|
|
?~ all ~
|
|
|
|
;: welp
|
2015-04-04 13:44:22 +03:00
|
|
|
?:(fir "" " ")
|
|
|
|
(~(ta-show ta man i.all) ~)
|
|
|
|
$(all t.all, fir |)
|
2015-03-30 09:43:48 +03:00
|
|
|
==
|
|
|
|
::
|
|
|
|
++ te-whom :: render sender
|
2015-04-04 13:44:22 +03:00
|
|
|
(~(ta-show ta man (need te-best)) ~ te-maud)
|
2015-03-30 09:43:48 +03:00
|
|
|
--
|
|
|
|
::
|
|
|
|
++ tr :: telegram renderer
|
|
|
|
|_ $: man=span
|
|
|
|
who=ship
|
|
|
|
sen=serial
|
|
|
|
aud=audience
|
|
|
|
wen=@da
|
|
|
|
bou=(set flavor)
|
|
|
|
sep=speech
|
|
|
|
==
|
|
|
|
++ tr-line ^- tape :: one-line print
|
2015-04-02 22:27:02 +03:00
|
|
|
=+ oug==(who our.hid)
|
|
|
|
=+ txt=(tr-text oug)
|
|
|
|
?: =(~ txt) ""
|
2015-04-07 22:05:21 +03:00
|
|
|
=+ eck=?:((~(has by aud) [%& our.hid man]) '*' '-')
|
2015-04-04 13:44:22 +03:00
|
|
|
=+ heb=?:(oug '>' '<')
|
2015-04-02 22:27:02 +03:00
|
|
|
=+ ^= baw
|
|
|
|
?: oug
|
|
|
|
~(te-whom te man tr-pals)
|
2015-04-04 13:44:22 +03:00
|
|
|
(~(sn-curt sn man [who (main who)]) |)
|
2015-04-02 22:27:02 +03:00
|
|
|
[heb eck (weld baw txt)]
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
2015-04-02 22:27:02 +03:00
|
|
|
++ tr-pals
|
|
|
|
^- (set partner)
|
2015-03-30 23:25:30 +03:00
|
|
|
%- ~(gas in *(set partner))
|
2015-04-02 22:27:02 +03:00
|
|
|
(turn (~(tap by aud)) |=([a=partner *] a))
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
2015-04-02 22:27:02 +03:00
|
|
|
++ tr-text
|
|
|
|
|= oug=?
|
|
|
|
^- tape
|
|
|
|
?+ -.sep ""
|
2015-04-09 01:01:47 +03:00
|
|
|
%url (weld ": " (scag 62 (earn p.sep)))
|
2015-04-02 22:27:02 +03:00
|
|
|
%lin
|
|
|
|
=+ txt=(trip q.sep)
|
2015-04-04 13:44:22 +03:00
|
|
|
?: p.sep
|
|
|
|
(weld ": " txt)
|
2015-04-02 22:27:02 +03:00
|
|
|
?: oug
|
|
|
|
(weld "@ " txt)
|
2015-04-07 22:05:21 +03:00
|
|
|
(weld " " txt)
|
2015-03-30 09:43:48 +03:00
|
|
|
==
|
|
|
|
--
|
2015-03-31 10:40:43 +03:00
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ peer
|
|
|
|
|= [ost=bone her=ship pax=path]
|
|
|
|
^- [(list move) _+>]
|
2015-03-30 09:43:48 +03:00
|
|
|
?: ?=([%sole *] pax)
|
|
|
|
?> =(our.hid her)
|
2015-03-31 10:40:43 +03:00
|
|
|
?< (~(has by shells) ost)
|
|
|
|
ra-abet:(~(ra-console ra ost ~) her t.pax)
|
2015-04-01 23:56:43 +03:00
|
|
|
:: ~& [%talk-peer-data ost her pax]
|
2014-12-18 05:34:40 +03:00
|
|
|
ra-abet:(~(ra-subscribe ra ost ~) her pax)
|
2014-07-04 05:47:51 +04:00
|
|
|
::
|
2015-04-01 23:56:43 +03:00
|
|
|
++ poke-talk-command
|
2014-12-18 05:34:40 +03:00
|
|
|
|= [ost=bone her=ship cod=command]
|
|
|
|
^- [(list move) _+>]
|
2015-04-01 23:56:43 +03:00
|
|
|
:: ~& [%talk-poke-command her cod]
|
2015-03-31 10:40:43 +03:00
|
|
|
ra-abet:(~(ra-apply ra ost ~) her cod)
|
2014-07-04 05:47:51 +04:00
|
|
|
::
|
2015-03-30 09:43:48 +03:00
|
|
|
++ poke-sole-action
|
|
|
|
|= [ost=bone her=ship act=sole-action]
|
2015-03-31 10:40:43 +03:00
|
|
|
ra-abet:(~(ra-sole ra ost [ost %give %nice ~]~) act)
|
2015-03-30 09:43:48 +03:00
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ pour
|
|
|
|
|= [ost=bone pax=path sih=*]
|
2014-07-03 02:08:02 +04:00
|
|
|
^- [(list move) _+>]
|
2014-12-18 05:34:40 +03:00
|
|
|
:: ~& sih=sih
|
|
|
|
=+ sih=((hard sign) sih)
|
2015-04-01 23:56:43 +03:00
|
|
|
:: ~& [%talk-pour ost pax sih]
|
|
|
|
?+ pax ~& [%talk-strange-path pax] !!
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
[%twitter *]
|
|
|
|
=- ra-abet:(~(ra-twitter ra ost ~) met sih)
|
|
|
|
^= met
|
2015-04-01 23:56:43 +03:00
|
|
|
?+ t.pax ~| [%talk-twitter-strange-path pax] !!
|
2015-01-27 07:30:22 +03:00
|
|
|
:: [%mine @ @ ~]
|
|
|
|
:: [i.t.pax i.t.t.t.pax]
|
2015-01-27 09:20:39 +03:00
|
|
|
[%stat @ @ ~]
|
|
|
|
[(slav %ud i.t.t.pax) i.t.t.t.pax]
|
2014-07-03 02:08:02 +04:00
|
|
|
==
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
[%friend *]
|
|
|
|
?> ?=([@ @ @ @ ~] t.pax)
|
|
|
|
?. =(%show i.t.pax)
|
2015-03-25 22:04:25 +03:00
|
|
|
:: ~& [%pour-friend-nuke-nuke pax]
|
2014-12-18 05:34:40 +03:00
|
|
|
[~ +>.$]
|
2015-01-27 11:19:18 +03:00
|
|
|
=+ man=i.t.t.pax
|
|
|
|
=+ ?: ?=(%twitter i.t.t.t.pax)
|
|
|
|
tay=[%| i.t.t.t.pax i.t.t.t.t.pax]
|
|
|
|
tay=[%& (slav %p i.t.t.t.pax) i.t.t.t.t.pax]
|
2015-01-27 04:55:01 +03:00
|
|
|
ra-abet:(~(ra-friend ra ost ~) man tay sih)
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
|
|
|
[%repeat *]
|
|
|
|
?> ?=([@ @ @ ~] t.pax)
|
|
|
|
=+ [num her man]=[(slav %ud i.t.pax) (slav %p i.t.t.pax) i.t.t.t.pax]
|
2015-01-27 09:20:39 +03:00
|
|
|
ra-abet:(~(ra-repeat ra ost ~) num [%& her man] sih)
|
2014-07-03 02:08:02 +04:00
|
|
|
==
|
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ pull
|
|
|
|
|= ost=bone
|
|
|
|
^- [(list move) _+>]
|
2015-04-01 23:56:43 +03:00
|
|
|
:: ~& [%talk-pull `*`ost]
|
2015-04-07 22:05:21 +03:00
|
|
|
=^ moz +>.$ ra-abet:ra-ever:~(ra-cancel ra ost ~)
|
|
|
|
[moz +>.$(shells (~(del by shells) ost))]
|
2014-12-18 05:34:40 +03:00
|
|
|
::
|
2014-12-19 02:28:26 +03:00
|
|
|
++ poke-bit
|
|
|
|
|= [ost=bone you=ship ~]
|
|
|
|
^- [(list move) _+>]
|
|
|
|
:_ +>.$
|
2015-04-01 23:56:43 +03:00
|
|
|
=+ paf=/(scot %p our.hid)/try/(scot %da lat.hid)/talk/backlog/jam
|
2014-12-19 02:28:26 +03:00
|
|
|
[ost %pass /jamfile %c %info our.hid (foal paf (jam +<+.+>.$))]~
|
|
|
|
::
|
2014-12-18 05:34:40 +03:00
|
|
|
++ prep
|
|
|
|
|= old=(unit (unit house-any))
|
|
|
|
^- [(list move) _+>]
|
|
|
|
?> ?=(^ old)
|
2015-01-23 01:01:39 +03:00
|
|
|
=| moz=(list move)
|
2015-01-01 23:43:50 +03:00
|
|
|
|-
|
2014-12-18 05:34:40 +03:00
|
|
|
?~ u.old
|
2015-04-01 23:56:43 +03:00
|
|
|
=+ paf=/(scot %p our.hid)/try/(scot %da lat.hid)/talk/backlog/jam
|
2014-12-19 02:28:26 +03:00
|
|
|
?. ?=([%0 %0 %0] [.^(%cy paf)])
|
2015-04-01 23:56:43 +03:00
|
|
|
~& %talk-prep-restore
|
2014-12-19 02:28:26 +03:00
|
|
|
$(u.old (some ((hard house-any) (cue ((hard ,@) .^(%cx paf))))))
|
2015-01-06 02:59:57 +03:00
|
|
|
ra-abet:~(ra-init ra 0 moz)
|
|
|
|
:- moz
|
2014-12-18 05:34:40 +03:00
|
|
|
|-
|
|
|
|
?- -.u.u.old
|
2014-12-19 02:28:26 +03:00
|
|
|
%1 %_(+>.^^$ +<+ u.u.old)
|
2014-12-18 05:34:40 +03:00
|
|
|
%0 $(u.u.old [%1 (house-0-to-house-1 +.u.u.old)])
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ house-0-to-house-1
|
|
|
|
|= vat=house-0
|
|
|
|
^- house-1
|
2015-01-01 23:43:50 +03:00
|
|
|
=- :* stories=-
|
2014-12-18 05:34:40 +03:00
|
|
|
general=~
|
|
|
|
outbox=[0 ~]
|
|
|
|
folks=~
|
2015-03-30 09:43:48 +03:00
|
|
|
shells=~
|
2014-12-18 05:34:40 +03:00
|
|
|
==
|
2015-01-01 23:43:50 +03:00
|
|
|
^- (map span story)
|
2014-12-18 05:34:40 +03:00
|
|
|
=- %- ~(run by -)
|
|
|
|
|= grams=(list telegram)
|
2015-01-01 23:43:50 +03:00
|
|
|
^- story
|
2014-12-18 05:34:40 +03:00
|
|
|
:* count=(lent grams)
|
|
|
|
grams=grams
|
|
|
|
locals=~
|
|
|
|
remotes=~
|
2015-04-06 22:57:23 +03:00
|
|
|
mirrors=~
|
2014-12-18 05:34:40 +03:00
|
|
|
sequence=~
|
2015-01-26 04:38:03 +03:00
|
|
|
shape=[.(cordon [%black ~])]:*config
|
2014-12-18 05:34:40 +03:00
|
|
|
^= known %- mo ^- (list ,[serial @]) =< +
|
|
|
|
(roll grams |=([telegram a=@ b=(list ,[serial @])] [+(a) [a p.q] b]))
|
|
|
|
guests=~
|
|
|
|
viewers=~
|
|
|
|
owners=~
|
|
|
|
==
|
2014-12-17 04:33:08 +03:00
|
|
|
^- (map span (list telegram))
|
2014-12-18 05:34:40 +03:00
|
|
|
%- mo %+ turn (~(tap by vat))
|
2014-12-17 04:33:08 +03:00
|
|
|
|= [a=path b=(list zong) c=(map ship ,?)]
|
2014-12-18 05:34:40 +03:00
|
|
|
=+ ^= par
|
|
|
|
?: =(/ a) 'hub'
|
|
|
|
=+ (turn a |=(d=span leaf/(trip d)))
|
|
|
|
(crip ~(ram re %rose ["_" ~ ~] -))
|
2014-12-17 04:33:08 +03:00
|
|
|
:- par
|
2015-01-26 04:38:03 +03:00
|
|
|
=+ aud=`audience`[[[%& our.hid par] *envelope %received] `~]
|
2014-12-17 04:33:08 +03:00
|
|
|
=+ ^= spe
|
|
|
|
|= r=_r:*zong ^- speech
|
|
|
|
?- -.r
|
2015-01-06 23:31:36 +03:00
|
|
|
%say [%lin %& p.r]
|
|
|
|
%do [%lin %| p.r]
|
|
|
|
%exp [%fat [%tank q.r ~] [%exp p.r]]
|
2014-12-17 04:33:08 +03:00
|
|
|
==
|
2014-12-18 05:34:40 +03:00
|
|
|
%+ turn b
|
2014-12-17 04:33:08 +03:00
|
|
|
|= d=zong ^- telegram
|
2015-01-26 04:38:03 +03:00
|
|
|
[q.d (sham eny.hid d) aud p.d ~ (spe r.d)]
|
2014-07-03 02:08:02 +04:00
|
|
|
--
|