Hyperfiddle

nil
stage:
$ (default)
querypullstatic
[:where ; Navigation is a tree of nav-items
 [?e :hyperblog.post/title] ; any titled entity
 (not [?e :hyperblog.post/tag :blog])
 (not [_ :hyperblog.nav/children ?e]) ; that is not already inside one or more lists
 (not [_ :hyperblog.post/related ?e]) ; this is wrong, can relate a post in the nav imo

 :find ; Table of contents has <ol> semantics, except a tree
 [(pull ?e [:hyperblog.post/sort-index1 ; the list is sorted, not the content ?            
            :hyperblog.post/title
            :hyperblog.post/published ; the content is published, not the list
            :hyperblog.post/hidden ; legacy?
            :fiddle/ident
            {:hyperblog.nav/children 1} ; Each nav-item has optional children (sub links)
            ;{:hyperblog.post/related 1}
            :db/id
            ]) 
  ...]]
stage:
$ (default)