fix group creation in the case of notebook import
[%app %publish %notebooks @ %publish-info ~]
=/ book-name i.t.t.t.pax
=/ delta=notebook-delta [%del-book our.bol book-name]
- (handle-notebook-delta delta sty)
+ =^ cards sty (handle-notebook-delta delta sty)
+ [(weld cards cad) sty]
::
[%app %publish %notebooks @ @ %udon ~]
=/ book-name i.t.t.t.pax
[~ sty]
=. notes.u.book (~(del by notes.u.book) note-name)
=/ delta=notebook-delta [%del-note our.bol book-name note-name]
- (handle-notebook-delta delta sty)
+ =^ cards sty (handle-notebook-delta delta sty)
+ [(weld cards cad) sty]
::
[%app %publish %notebooks @ @ @ %publish-comment ~]
=/ book-name i.t.t.t.pax
[~ sty]
=/ delta=notebook-delta
[%del-comment our.bol book-name note-name u.comment-date]
- (handle-notebook-delta delta sty)
+ =^ cards sty (handle-notebook-delta delta sty)
+ [(weld cards cad) sty]
==
::
++ add-paths
now.bol
~ ~ ~
==
+ =+ ^- [grp-car=(list card) writers-path=path subscribers-path=path]
+ (make-groups book-name [%new ~ ~ %journal])
+ =. writers.new-book writers-path
+ =. subscribers.new-book subscribers-path
=+ ^- [read-cards=(list card) notes=(map @tas note)]
(watch-notes /app/publish/notebooks/[book-name])
=. notes.new-book notes
=^ update-cards sty (handle-notebook-delta delta sty)
:_ sty
;: weld
+ grp-car
[%pass (welp /read/info pax) %arvo %c %warp our.bol rif]~
read-cards
update-cards
+ cad
==
::
[%app %publish %notebooks @ @ %udon ~]
[%pass (welp /read/note pax) %arvo %c %warp our.bol rif]~
read-cards
update-cards
+ cad
==
::
[%app %publish %notebooks @ @ @ %publish-comment ~]
;: weld
[%pass (welp /read/comment pax) %arvo %c %warp our.bol rif]~
update-cards
+ cad
==
==
::
