2020-09-08 07:18:21 +03:00
|
|
|
/- *post
|
|
|
|
|
|_ i=indexed-post
|
|
|
|
|
++ grow
|
|
|
|
|
|%
|
|
|
|
|
++ noun i
|
|
|
|
|
--
|
|
|
|
|
++ grab
|
|
|
|
|
|%
|
2020-09-15 08:51:46 +03:00
|
|
|
:: +noun: Validate publish post
|
|
|
|
|
::
|
2020-09-08 07:18:21 +03:00
|
|
|
++ noun
|
|
|
|
|
|= p=*
|
|
|
|
|
=/ ip ;;(indexed-post p)
|
2020-09-08 09:08:52 +03:00
|
|
|
?+ index.p.ip !!
|
2020-09-15 08:51:46 +03:00
|
|
|
:: container for revisions
|
|
|
|
|
::
|
|
|
|
|
[@ %1 ~]
|
|
|
|
|
?> ?=(~ contents.p.ip)
|
|
|
|
|
ip
|
|
|
|
|
:: specific revision
|
|
|
|
|
:: first content is the title
|
|
|
|
|
:: revisions are numbered by the revision count
|
|
|
|
|
:: starting at one
|
|
|
|
|
[@ %1 @ ~]
|
2020-10-29 02:35:43 +03:00
|
|
|
?> ?=([* * *] contents.p.ip)
|
2020-09-08 09:08:52 +03:00
|
|
|
?> ?=(%text -.i.contents.p.ip)
|
|
|
|
|
ip
|
2020-09-15 08:51:46 +03:00
|
|
|
:: container for comments
|
|
|
|
|
[@ %2 ~]
|
|
|
|
|
?> ?=(~ contents.p.ip)
|
|
|
|
|
ip
|
|
|
|
|
:: comment
|
2020-10-05 07:53:46 +03:00
|
|
|
[@ %2 @ ~]
|
2020-10-29 02:37:47 +03:00
|
|
|
?> ?=(^ contents.p.ip)
|
2020-10-05 07:53:46 +03:00
|
|
|
ip
|
2020-09-15 08:51:46 +03:00
|
|
|
:: top level post must have no content
|
|
|
|
|
[@ ~]
|
|
|
|
|
?> ?=(~ contents.p.ip)
|
|
|
|
|
ip
|
2020-09-08 09:08:52 +03:00
|
|
|
==
|
2020-09-08 07:18:21 +03:00
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
++ grad %noun
|
|
|
|
|
--
|
