mirror of
https://github.com/urbit/shrub.git
synced 2025-01-04 18:43:46 +03:00
add paths to notes for documentation
This commit is contained in:
parent
e615814ba4
commit
cba357f5ea
@ -317,7 +317,7 @@
|
|||||||
++ clad-output-raw
|
++ clad-output-raw
|
||||||
|* a=mold
|
|* a=mold
|
||||||
$~ [~ ~ %done *a]
|
$~ [~ ~ %done *a]
|
||||||
$: notes=(list note)
|
$: notes=(list [path note])
|
||||||
effects=(list move)
|
effects=(list move)
|
||||||
$= next
|
$= next
|
||||||
$% [%wait ~]
|
$% [%wait ~]
|
||||||
@ -435,11 +435,11 @@
|
|||||||
:: Just send a note.
|
:: Just send a note.
|
||||||
::
|
::
|
||||||
++ just-do
|
++ just-do
|
||||||
|= note=note
|
|= [=path =note]
|
||||||
=/ m (clad ,~)
|
=/ m (clad ,~)
|
||||||
^- form:m
|
^- form:m
|
||||||
|= clad-input
|
|= clad-input
|
||||||
[[note]~ ~ %done ~]
|
[[path note]~ ~ %done ~]
|
||||||
::
|
::
|
||||||
:: Wait for ford to respond
|
:: Wait for ford to respond
|
||||||
::
|
::
|
||||||
@ -669,7 +669,7 @@
|
|||||||
=/ m (clad (list (pair path cage)))
|
=/ m (clad (list (pair path cage)))
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /inserts
|
||||||
:* %f %build live=%.n %pin wen %list
|
:* %f %build live=%.n %pin wen %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ turn ins
|
%+ turn ins
|
||||||
@ -698,7 +698,7 @@
|
|||||||
=/ m (clad (list (trel path lobe cage)))
|
=/ m (clad (list (trel path lobe cage)))
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /diffs
|
||||||
:* %f %build live=%.n %pin wen %list
|
:* %f %build live=%.n %pin wen %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ turn dif
|
%+ turn dif
|
||||||
@ -733,7 +733,7 @@
|
|||||||
=/ m (clad (list (trel path lobe cage)))
|
=/ m (clad (list (trel path lobe cage)))
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /casts
|
||||||
:* %f %build live=%.n %pin wen %list
|
:* %f %build live=%.n %pin wen %list
|
||||||
::~ [her syd %da wen] %tabl
|
::~ [her syd %da wen] %tabl
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
@ -761,9 +761,10 @@
|
|||||||
%+ turn cat
|
%+ turn cat
|
||||||
|= {pax/path cay/cage}
|
|= {pax/path cay/cage}
|
||||||
[pax (page-to-lobe:sutil [p q.q]:cay)]
|
[pax (page-to-lobe:sutil [p q.q]:cay)]
|
||||||
^- (list note)
|
^- (list [path note])
|
||||||
:_ ~
|
:_ ~
|
||||||
:* %f %build live=%.n %pin wen %list
|
:* /mutates
|
||||||
|
%f %build live=%.n %pin wen %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ turn cat
|
%+ turn cat
|
||||||
|= {pax/path cay/cage}
|
|= {pax/path cay/cage}
|
||||||
@ -826,7 +827,7 @@
|
|||||||
=/ m (clad ,_this-cor)
|
=/ m (clad ,_this-cor)
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /checkout
|
||||||
=/ new-yaki (aeon-to-yaki:sutil let.dom)
|
=/ new-yaki (aeon-to-yaki:sutil let.dom)
|
||||||
:* %f %build live=%.n %list
|
:* %f %build live=%.n %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
@ -868,7 +869,7 @@
|
|||||||
(~(uni in acc) pak)
|
(~(uni in acc) pak)
|
||||||
=/ changes (malt suba)
|
=/ changes (malt suba)
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /ergo
|
||||||
:* %f %build live=%.n %list
|
:* %f %build live=%.n %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ turn ~(tap in all-paths)
|
%+ turn ~(tap in all-paths)
|
||||||
@ -1057,7 +1058,7 @@
|
|||||||
=/ m (clad ,[ali=yaki e=_this-cor])
|
=/ m (clad ,[ali=yaki e=_this-cor])
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /fetch-ali
|
||||||
[%c %warp p.ali-disc q.ali-disc `[%sing %v cas /]]
|
[%c %warp p.ali-disc q.ali-disc `[%sing %v cas /]]
|
||||||
;< [rot=riot r=rang] bind:m (expect-clay ran)
|
;< [rot=riot r=rang] bind:m (expect-clay ran)
|
||||||
=. ran r
|
=. ran r
|
||||||
@ -1281,7 +1282,7 @@
|
|||||||
=/ m (clad ,cane)
|
=/ m (clad ,cane)
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /diff-bas
|
||||||
:* %f %build live=%.n %pin wen
|
:* %f %build live=%.n %pin wen
|
||||||
%list
|
%list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
@ -1348,7 +1349,7 @@
|
|||||||
=/ m (clad ,bof=(map path (unit cage)))
|
=/ m (clad ,bof=(map path (unit cage)))
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /merge-conflicts
|
||||||
:* %f %build live=%.n %list
|
:* %f %build live=%.n %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ turn
|
%+ turn
|
||||||
@ -1398,7 +1399,7 @@
|
|||||||
==
|
==
|
||||||
^- form:m
|
^- form:m
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /build
|
||||||
:* %f %build live=%.n %list
|
:* %f %build live=%.n %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ murn ~(tap by bof)
|
%+ murn ~(tap by bof)
|
||||||
@ -1537,7 +1538,7 @@
|
|||||||
?: ?=($init gem)
|
?: ?=($init gem)
|
||||||
[p.ali-disc q.ali-disc cas]
|
[p.ali-disc q.ali-disc cas]
|
||||||
[p.bob-disc q.bob-disc da+wen]
|
[p.bob-disc q.bob-disc da+wen]
|
||||||
%- just-do
|
%+ just-do /checkout
|
||||||
:* %f %build live=%.n %pin wen %list
|
:* %f %build live=%.n %pin wen %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ murn ~(tap by q.new)
|
%+ murn ~(tap by q.new)
|
||||||
@ -1584,7 +1585,7 @@
|
|||||||
[p.ali-disc q.ali-disc cas]
|
[p.ali-disc q.ali-disc cas]
|
||||||
[p.bob-disc q.bob-disc da+wen]
|
[p.bob-disc q.bob-disc da+wen]
|
||||||
;< ~ bind:m
|
;< ~ bind:m
|
||||||
%- just-do
|
%+ just-do /ergo
|
||||||
:* %f %build live=%.n %pin wen %list
|
:* %f %build live=%.n %pin wen %list
|
||||||
^- (list schematic:ford)
|
^- (list schematic:ford)
|
||||||
%+ turn ~(tap in sum)
|
%+ turn ~(tap in sum)
|
||||||
@ -2750,8 +2751,8 @@
|
|||||||
=< ?>(?=([~ * * * %commit *] act) .) :: TMI
|
=< ?>(?=([~ * * * %commit *] act) .) :: TMI
|
||||||
%- emil
|
%- emil
|
||||||
%+ turn notes.c-res
|
%+ turn notes.c-res
|
||||||
|= =note
|
|= [=path =note]
|
||||||
[hen %pass /commit/[syd] note]
|
[hen %pass (weld /commit/[syd] path) note]
|
||||||
=. mos.u.act
|
=. mos.u.act
|
||||||
(weld mos.u.act effects.c-res)
|
(weld mos.u.act effects.c-res)
|
||||||
?- -.next.c-res
|
?- -.next.c-res
|
||||||
@ -2803,8 +2804,8 @@
|
|||||||
=< ?>(?=([~ * * * %merge *] act) .) :: TMI
|
=< ?>(?=([~ * * * %merge *] act) .) :: TMI
|
||||||
%- emil
|
%- emil
|
||||||
%+ turn notes.c-res
|
%+ turn notes.c-res
|
||||||
|= =note
|
|= [=path =note]
|
||||||
[hen %pass /merge/[syd] note]
|
[hen %pass (weld /merge/[syd] path) note]
|
||||||
=. mos.u.act
|
=. mos.u.act
|
||||||
(weld mos.u.act effects.c-res)
|
(weld mos.u.act effects.c-res)
|
||||||
?- -.next.c-res
|
?- -.next.c-res
|
||||||
@ -4137,13 +4138,13 @@
|
|||||||
=> |%
|
=> |%
|
||||||
+$ axle [%1 ruf-1=raft]
|
+$ axle [%1 ruf-1=raft]
|
||||||
--
|
--
|
||||||
:: |= *
|
|= *
|
||||||
:: ..^$
|
..^$
|
||||||
:: XX switch back
|
:: XX switch back
|
||||||
|= old=axle
|
:: |= old=axle
|
||||||
^+ ..^$
|
:: ^+ ..^$
|
||||||
?> ?=(%1 -.old)
|
:: ?> ?=(%1 -.old)
|
||||||
%_(..^$ ruf ruf-1.old)
|
:: %_(..^$ ruf ruf-1.old)
|
||||||
::
|
::
|
||||||
++ scry :: inspect
|
++ scry :: inspect
|
||||||
|= {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path}
|
|= {fur/(unit (set monk)) ren/@tas why/shop syd/desk lot/coin tyl/path}
|
||||||
@ -4177,13 +4178,13 @@
|
|||||||
++ take :: accept response
|
++ take :: accept response
|
||||||
|= {tea/wire hen/duct hin/(hypo sign)}
|
|= {tea/wire hen/duct hin/(hypo sign)}
|
||||||
^+ [*(list move) ..^$]
|
^+ [*(list move) ..^$]
|
||||||
?: ?=({$commit @ ~} tea)
|
?: ?=({$commit @ *} tea)
|
||||||
=* syd i.t.tea
|
=* syd i.t.tea
|
||||||
=^ mos ruf
|
=^ mos ruf
|
||||||
=/ den ((de our now ski hen ruf) our syd)
|
=/ den ((de our now ski hen ruf) our syd)
|
||||||
abet:(take-commit:den q.hin)
|
abet:(take-commit:den q.hin)
|
||||||
[mos ..^$]
|
[mos ..^$]
|
||||||
?: ?=({$merge @ ~} tea)
|
?: ?=({$merge @ *} tea)
|
||||||
=* syd i.t.tea
|
=* syd i.t.tea
|
||||||
=^ mos ruf
|
=^ mos ruf
|
||||||
=/ den ((de our now ski hen ruf) our syd)
|
=/ den ((de our now ski hen ruf) our syd)
|
||||||
|
@ -59,7 +59,7 @@
|
|||||||
=/ =wire p.card
|
=/ =wire p.card
|
||||||
::
|
::
|
||||||
%+ weld
|
%+ weld
|
||||||
(expect-eq !>(/commit/home) !>(wire))
|
(expect-eq !>(/commit/home/inserts) !>(wire))
|
||||||
::
|
::
|
||||||
=/ note=note:clay-gate q.card
|
=/ note=note:clay-gate q.card
|
||||||
::
|
::
|
||||||
@ -92,7 +92,7 @@
|
|||||||
now=~1111.1.1
|
now=~1111.1.1
|
||||||
scry=*sley
|
scry=*sley
|
||||||
^= take-args
|
^= take-args
|
||||||
:* wire=/commit/home
|
:* wire=/commit/home/inserts
|
||||||
duct=~[/info]
|
duct=~[/info]
|
||||||
-:!>(*sign:clay-gate)
|
-:!>(*sign:clay-gate)
|
||||||
^- sign:clay-gate
|
^- sign:clay-gate
|
||||||
@ -117,7 +117,7 @@
|
|||||||
!> ^- move:clay-gate
|
!> ^- move:clay-gate
|
||||||
:- duct=~[/info]
|
:- duct=~[/info]
|
||||||
^- (wind note:clay-gate gift:able:clay)
|
^- (wind note:clay-gate gift:able:clay)
|
||||||
:+ %pass /commit/home
|
:+ %pass /commit/home/diffs
|
||||||
^- note:clay-gate
|
^- note:clay-gate
|
||||||
:- %f
|
:- %f
|
||||||
[%build live=%.n [%pin ~1111.1.1 [%list ~]]]
|
[%build live=%.n [%pin ~1111.1.1 [%list ~]]]
|
||||||
@ -132,7 +132,7 @@
|
|||||||
now=~1111.1.1
|
now=~1111.1.1
|
||||||
scry=*sley
|
scry=*sley
|
||||||
^= take-args
|
^= take-args
|
||||||
:* wire=/commit/home
|
:* wire=/commit/home/diffs
|
||||||
duct=~[/info]
|
duct=~[/info]
|
||||||
-:!>(*sign:clay-gate)
|
-:!>(*sign:clay-gate)
|
||||||
^- sign:clay-gate
|
^- sign:clay-gate
|
||||||
@ -149,7 +149,7 @@
|
|||||||
!> ^- move:clay-gate
|
!> ^- move:clay-gate
|
||||||
:- duct=~[/info]
|
:- duct=~[/info]
|
||||||
^- (wind note:clay-gate gift:able:clay)
|
^- (wind note:clay-gate gift:able:clay)
|
||||||
:+ %pass /commit/home
|
:+ %pass /commit/home/casts
|
||||||
^- note:clay-gate
|
^- note:clay-gate
|
||||||
:- %f
|
:- %f
|
||||||
[%build live=%.n [%pin ~1111.1.1 [%list ~]]]
|
[%build live=%.n [%pin ~1111.1.1 [%list ~]]]
|
||||||
@ -164,7 +164,7 @@
|
|||||||
now=~1111.1.1
|
now=~1111.1.1
|
||||||
scry=*sley
|
scry=*sley
|
||||||
^= take-args
|
^= take-args
|
||||||
:* wire=/commit/home
|
:* wire=/commit/home/casts
|
||||||
duct=~[/info]
|
duct=~[/info]
|
||||||
-:!>(*sign:clay-gate)
|
-:!>(*sign:clay-gate)
|
||||||
^- sign:clay-gate
|
^- sign:clay-gate
|
||||||
@ -190,7 +190,7 @@
|
|||||||
=/ =wire p.card
|
=/ =wire p.card
|
||||||
::
|
::
|
||||||
%+ weld
|
%+ weld
|
||||||
(expect-eq !>(/commit/home) !>(wire))
|
(expect-eq !>(/commit/home/mutates) !>(wire))
|
||||||
::
|
::
|
||||||
=/ note=note:clay-gate q.card
|
=/ note=note:clay-gate q.card
|
||||||
::
|
::
|
||||||
@ -214,7 +214,7 @@
|
|||||||
now=~1111.1.1
|
now=~1111.1.1
|
||||||
scry=*sley
|
scry=*sley
|
||||||
^= take-args
|
^= take-args
|
||||||
:* wire=/commit/home
|
:* wire=/commit/home/mutates
|
||||||
duct=~[/info]
|
duct=~[/info]
|
||||||
-:!>(*sign:clay-gate)
|
-:!>(*sign:clay-gate)
|
||||||
^- sign:clay-gate
|
^- sign:clay-gate
|
||||||
@ -240,7 +240,7 @@
|
|||||||
=/ =wire p.card
|
=/ =wire p.card
|
||||||
::
|
::
|
||||||
%+ weld
|
%+ weld
|
||||||
(expect-eq !>(/commit/home) !>(wire))
|
(expect-eq !>(/commit/home/checkout) !>(wire))
|
||||||
::
|
::
|
||||||
=/ note=note:clay-gate q.card
|
=/ note=note:clay-gate q.card
|
||||||
::
|
::
|
||||||
@ -276,7 +276,7 @@
|
|||||||
now=~1111.1.1
|
now=~1111.1.1
|
||||||
scry=*sley
|
scry=*sley
|
||||||
^= take-args
|
^= take-args
|
||||||
:* wire=/commit/home
|
:* wire=/commit/home/checkout
|
||||||
duct=~[/info]
|
duct=~[/info]
|
||||||
-:!>(*sign:clay-gate)
|
-:!>(*sign:clay-gate)
|
||||||
^- sign:clay-gate
|
^- sign:clay-gate
|
||||||
|
Loading…
Reference in New Issue
Block a user