mirror of
https://github.com/urbit/shrub.git
synced 2024-11-30 11:42:21 +03:00
further disqualification
This commit is contained in:
Anton Dyudin
parent
7ca85f7989
commit
6c4a0b0288
@ -3,6 +3,7 @@
|
||||
:: :: ::
|
||||
/? 314 :: zuse version
|
||||
/+ sole, talk, helm, kiln, drum :: libraries
|
||||
[. helm kiln drum]
|
||||
:: :: ::
|
||||
:::: :: ::
|
||||
!: :: ::
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
!:
|
||||
::::
|
||||
::
|
||||
[work .]
|
||||
[. work]
|
||||
|%
|
||||
++ move (pair bone card) :: all actions
|
||||
++ card :: general card
|
||||
@ -41,7 +41,6 @@
|
||||
::
|
||||
++ send-audience
|
||||
|= [to=(set station:talk) action=duty:work-stuff:talk]
|
||||
^+ +>
|
||||
%_ +>.$
|
||||
eny (sham eny action)
|
||||
moves
|
||||
@ -51,14 +50,14 @@
|
||||
/sending/(scot %uv id.tax)/(scot %ud version.tax)
|
||||
[our %talk]
|
||||
%talk-command
|
||||
^- command:talk
|
||||
=> [. talk] ^- command:talk
|
||||
:- %publish
|
||||
|- ^- (list thought)
|
||||
:_ ~
|
||||
:+ (shaf %task eny)
|
||||
%- mo ^- (list ,[partner envelope delivery]:talk)
|
||||
%- mo ^- (list ,[partner envelope delivery])
|
||||
%+ turn (~(tap in to))
|
||||
|=(sat=station:talk [[%& sat] [*envelope %pending]])
|
||||
|=(sat=station [[%& sat] [*envelope %pending]])
|
||||
[now *bouquet [%tax action]]
|
||||
==
|
||||
==
|
||||
@ -74,7 +73,7 @@
|
||||
++ send-create (send %create tax)
|
||||
++ send-change |* *
|
||||
%+ send-audience
|
||||
[[creator.tax (main creator.tax)] ~ ~]
|
||||
[[creator.tax (main:talk creator.tax)] ~ ~]
|
||||
[%change id.tax +<]
|
||||
++ send-update |*(* (send %update id.tax +<))
|
||||
++ process-update
|
||||
@ -123,7 +122,7 @@
|
||||
?: connected
|
||||
[~ .]
|
||||
:_ .(connected %&) :_ ~
|
||||
[ost %peer /peering [our %talk] /f/(main our)/0]
|
||||
[ost %peer /peering [our %talk] /f/(main:talk our)/0]
|
||||
::
|
||||
++ process-duty
|
||||
|= [when=@da her=ship from=(set station:talk) action=duty:work-stuff:talk]
|
||||
@ -319,8 +318,9 @@
|
||||
=+ ^- from=(set station:talk)
|
||||
%- sa ^- (list station:talk)
|
||||
%+ murn (~(tap by q.q.i.q.rep))
|
||||
=> talk
|
||||
|= [par=partner *]
|
||||
`(unit station:talk)`?.(?=(%& -.par) ~ `p.par)
|
||||
`(unit station)`?.(?=(%& -.par) ~ `p.par)
|
||||
?. ?=(%tax -.said)
|
||||
$(p.rep +(p.rep), q.rep t.q.rep)
|
||||
=^ mos +>.^$ (process-duty when her from +.said)
|
||||
|
||||
@ -4,4 +4,4 @@
|
||||
::::
|
||||
::
|
||||
^- (map path marl)
|
||||
[[/ ((getall /h1/h2/h3/h4/h5/h6) -.-)] ~ ~]
|
||||
[[/ ((getall:tree /h1/h2/h3/h4/h5/h6) -.-)] ~ ~]
|
||||
|
||||
@ -2,7 +2,9 @@
|
||||
:::: /hoon/drum/lib :: ::
|
||||
:: :: ::
|
||||
/? 310 :: version
|
||||
/- sole
|
||||
/+ sole
|
||||
[. ^sole]
|
||||
!: :: ::
|
||||
:::: :: ::
|
||||
:: :: ::
|
||||
@ -487,7 +489,7 @@
|
||||
++ se-talk
|
||||
|= tac=(list tank)
|
||||
^+ +>
|
||||
(se-emit 0 %poke /drum/talk [our %talk] (said our %drum now eny tac))
|
||||
(se-emit 0 %poke /drum/talk [our %talk] (said:talk our %drum now eny tac))
|
||||
::
|
||||
++ se-text :: return text
|
||||
|= txt=tape
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
:: :: ::
|
||||
:::: :::::: semantics
|
||||
!: :: ::
|
||||
[oct3 .]
|
||||
[. ^oct3]
|
||||
|% ::
|
||||
++ icon |=(? ?:(+< 'X' 'O')) :: display at
|
||||
++ bo :: per board
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
:: :: ::
|
||||
:::: :: :: semantics
|
||||
!: :: ::
|
||||
[oct4 .]
|
||||
[. ^oct4]
|
||||
|%
|
||||
++ icon |=(? ?:(+< 'X' 'O')) :: display at
|
||||
++ bo :: per board
|
||||
|
||||
@ -3,7 +3,7 @@
|
||||
::
|
||||
/? 310
|
||||
/- sole
|
||||
[. sole]
|
||||
[. ^sole]
|
||||
!:
|
||||
::::
|
||||
::
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
!:
|
||||
::::
|
||||
::
|
||||
[. talk]
|
||||
[. ^talk]
|
||||
|%
|
||||
++ main :: main story
|
||||
|= our=ship ^- cord
|
||||
|
||||
@ -3,8 +3,10 @@
|
||||
::
|
||||
/? 314
|
||||
/+ tree,react
|
||||
[. tree react]
|
||||
!:
|
||||
::::
|
||||
::
|
||||
|_ all=(map path marl)
|
||||
::
|
||||
++ grow :: convert to
|
||||
|
||||
@ -4,10 +4,10 @@
|
||||
/? 310 :: arvo
|
||||
/- oct3 :: structures
|
||||
/+ oct3 :: libraries
|
||||
[. oct3 ^oct3]
|
||||
!: :: ::
|
||||
:::: :: :: protocol
|
||||
:: :: ::
|
||||
[oct3 .]
|
||||
|_ play :: game
|
||||
++ grab :: convert from
|
||||
|%
|
||||
|
||||
@ -7,7 +7,7 @@
|
||||
!: :: ::
|
||||
:::: :: :: protocol
|
||||
:: :: ::
|
||||
[oct4 .]
|
||||
[oct4 ^oct4 .]
|
||||
|_ play :: game
|
||||
++ grab :: convert from
|
||||
|%
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
!:
|
||||
::::
|
||||
::
|
||||
[react .]
|
||||
[. react]
|
||||
|_ [hed=marl tal=marl]
|
||||
::
|
||||
++ grow :: convert to
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
!:
|
||||
::::
|
||||
::
|
||||
[react .]
|
||||
[. react]
|
||||
|_ own=manx
|
||||
::
|
||||
++ grow :: convert to
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
/= sect /: /=== /% /index/
|
||||
!:
|
||||
^- tree-include
|
||||
=+ rj=react-to-json
|
||||
=+ rj=react-to-json:react
|
||||
=+ fj=|=(atr=(map span span) [%o (~(run by atr) |=(a=span s/a))])
|
||||
=+ ij=(map-to-json |=(a=path (crip (spud a))) |=(a=marl [%a (turn a rj)]))
|
||||
=+ ij=(map-to-json:tree |=(a=path (crip (spud a))) |=(a=marl [%a (turn a rj)]))
|
||||
[(rj body) (rj /h1 hed.snip) (rj /div tal.snip) (fj meta) (ij sect)]
|
||||
|
||||
@ -66,6 +66,7 @@
|
||||
!:
|
||||
::::
|
||||
::
|
||||
[tree .]
|
||||
^- json
|
||||
=+ ^= schem
|
||||
=+ seh=(fall (~(get by qix.gas) 'q') 'body.r')
|
||||
|
||||
Loading…
Reference in New Issue
Block a user