urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-02 01:25:55 +03:00
Code Issues Packages Projects Releases Wiki Activity

publish: fix bug in publish comment mark

Browse Source
This commit is contained in:
Isaac Visintainer 2020-05-12 17:49:03 -06:00
parent 00e1ba4d93
commit ac9890c2a9
2 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkg/arvo/app/publish.hoon
View File

@ -614,7 +614,11 @@
[~ state]
=/ book-name i.t.t.t.pax
=/ note-name i.t.t.t.t.pax
=/ new-comment !<(comment q.r.u.rot)
=/ com-2-3 !<(?(comment-2 comment-3) q.r.u.rot)
=/ new-comment=comment-3
?: ?=(comment-2 com-2-3)
[author.com-2-3 date-created.com-2-3 content.com-2-3 %.n]
com-2-3
=/ rif=riff:clay [q.byk.bol `[%next %x [%da now.bol] pax]]
=/ delta=notebook-delta
[%edit-comment our.bol book-name note-name u.comment-date new-comment]
@ -749,7 +753,11 @@
=/ comment-name (slaw %da i.t.t.t.t.t.pax)
?~ comment-name
[~ sty]
=/ new-com .^(comment %cx (welp our-beak pax))
=/ com-2-3 .^(?(comment-2 comment-3) %cx (welp our-beak pax))
=/ new-com=comment-3
?: ?=(comment-2 com-2-3)
[author.com-2-3 date-created.com-2-3 content.com-2-3 %.n]
com-2-3
=/ rif=riff:clay [q.byk.bol `[%next %x [%da now.bol] pax]]
::
=/ delta=notebook-delta

9
pkg/arvo/mar/publish/comment.hoon
View File

@ -1,5 +1,5 @@
/- *publish
|_ com=comment
|_ com=?(comment-2 comment-3)
::
::
++ grow
@ -9,6 +9,13 @@
(as-octs:mimes:html (of-wain:format txt))
++ txt
^- wain
?: ?=(comment-2 com)
:* (cat 3 'author: ' (scot %p author.com))
(cat 3 'date-created: ' (scot %da date-created.com))
'-----'
(to-wain:format content.com)
==
?> ?=(comment-3 com)
:* (cat 3 'author: ' (scot %p author.com))
(cat 3 'date-created: ' (scot %da date-created.com))
'-----'