generate correct urls on /fora-posts notifications
=+ sap=(sh-pare lix)
?: =(sap passive.she)
+>.$
+ :: XX exclude autogenerated forum stations
+ ?: %+ lien (~(tap in passive.she))
+ |=(a/partner ?=({$& ship ?($post $comments)} a))
+ +>.$
sh-prod(passive.she sap)
::
++ sh-pest :: report listen
==
=+ man=%posts
?: (~(has by stories) man)
- (ra-consume-fora-post man pax sup hed txt)
- =; new (ra-consume-fora-post:new man pax sup hed txt)
+ (ra-consume-fora-post man pax hed txt)
+ =; new (ra-consume-fora-post:new man pax hed txt)
=. ..ra-apply
%+ ra-apply our.hid
:+ %design man
[~ %app %tree 'receiving forum posts, ;join %posts for details']
::
++ ra-consume-fora-post
- |= {man/knot pax/path sup/spur hed/@t txt/@t} ^+ +>
- =+ nam=?~(sup "" (trip i.sup)) :: file name
- =+ fra=(crip (time-to-id now.hid)) :: url fragment
- %^ ra-consume &
+ |= {man/knot pax/path hed/@t txt/@t} ^+ +>
+ =. pax (welp pax /posts/(crip "{<now.hid>}~"))
+ %^ ra-consume |
src.hid
:* (shaf %comt eny.hid)
(my [[%& our.hid man] *envelope %pending] ~)
now.hid
(sy /fora-post eyre+pax ~)
:- %mor :~
- [%fat text+(lore txt) [%url [ra-base-hart `pax ~] `fra]]
+ [%fat text+(lore txt) [%url [ra-base-hart `pax ~] ~]]
[%app %tree (crip "forum post: '{(trip hed)}'")]
==
==
|= {man/knot pax/path sup/spur txt/@t} ^+ +>
=+ nam=?~(sup "" (trip i.sup)) :: file name
=+ fra=(crip (time-to-id now.hid)) :: url fragment
- %^ ra-consume &
+ %^ ra-consume |
src.hid
:* (shaf %comt eny.hid)
(my [[%& our.hid man] *envelope %pending] ~)
