structure for comments written to %c

This commit is contained in:
Galen Wolfe-Pauly 2016-03-03 16:36:39 -08:00
parent 3730bc82c9
commit 0f4507a31b

View File

@ -44,7 +44,11 @@
++ poke-comment ++ poke-comment
|= {pax/path him/ship txt/@t} ^+ abet |= {pax/path him/ship txt/@t} ^+ abet
=. pax [%web (welp pax /comments/(scot %da now))] =. pax [%web (welp pax /comments/(scot %da now))]
=. txt (rap 3 (scot %p him) ': ' txt ~) =. txt
%+ rap 3 :~
'## `' (scot %p him) '`'
'\0a' txt
==
(poke--data [`%md pax] %mime / (taco txt)) (poke--data [`%md pax] %mime / (taco txt))
:: ::
++ poke-sec-atom ++ poke-sec-atom