add paths to notes for documentation

This commit is contained in:
Philip Monk 2019-05-16 11:50:13 -07:00
parent e615814ba4
commit cba357f5ea
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
2 changed files with 39 additions and 38 deletions

View File

@ -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)

View File

@ -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