msyds/net-deertopia
1
0
Fork 0
Code Issues 13 Pull Requests Actions Packages Projects Releases Wiki Activity

fix: bad UUIDs

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-04-18 17:26:59 -06:00
parent 694136b643
commit d967188e18
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/net/deertopia/doerg/roam.clj
View File

@@ -133,11 +133,11 @@
elisp/read-alist))) elisp/read-alist)))
(defn public? [node] (defn public? [node]
(-> node properties (get "DEERTOPIAVISIBILITY") (= "public"))) (some-> (properties node) (get "DEERTOPIAVISIBILITY") (= "public")))
(defn graph-visible? [node] (defn graph-visible? [node]
(#{"public" "graphonly"} (#{"public" "graphonly"}
(-> node properties (get "DEERTOPIAVISIBILITY")))) (some-> (properties node) (get "DEERTOPIAVISIBILITY"))))
(defn backlinks (defn backlinks
"Returns a collection of nodes linking to `node`." "Returns a collection of nodes linking to `node`."
@@ -149,7 +149,8 @@
where links.dest = ?" where links.dest = ?"
(elisp/print (str (:id node)))]) (elisp/print (str (:id node)))])
:let [id' (elisp/read-string id)] :let [id' (elisp/read-string id)]
:when (-> id' parse-uuid get-node public?)] :when (some-> (-> id' parse-uuid get-node)
public?)]
(make-node id' {:title (elisp/read-string title)}))) (make-node id' {:title (elisp/read-string title)})))