query-table:: false
#+BEGIN_QUERY
{
:title [“supports ->”]
:query [
:find ?result-page
:in $ ?current-page ?function
:where
[?page :block/name ?current-page]
[?referring-blocks :block/refs ?page]
[?child :block/parent ?referring-blocks]
[?child :block/refs ?child-refs]
[?grandchild :block/parent ?child]
[?child :block/content ?child-content]
[(clojure.string/includes? ?child-content “->”)]
(page-ref ?child ?function)
[?grandchild :block/refs ?grandchild-page]
[?grandchild-page :block/name ?result-page]
]
:inputs [:current-page, “relationship/supports”]
:view (fn [result]
[:div.flex.flex-col
(for [page result]
[:a {:href (str “#/page/” page)} (clojure.string/capitalize page)])])}
}
#+END_QUERY