tombarys · October 5, 2023 01:18 · Christian-Klaperek · Oct 5, 2023
diff --git a/children-block-count.clj b/children-block-count.clj
 ;; Instructions for including the Clojure script (this) into your Roam can be found in my article 
 ;; here: https://lifehacky.net/how-to-list-namespaces-and-find-more-in-roam-research-5c25d9f24556
 ;; Search for section "How to make it work in your Roam?" and think of "better-search" as of "children-block-count"

 (ns reddit.8-7-2022-reagent
  (:require [roam.datascript :as rd]
            [reagent.core :as r]
            [roam.datascript.reactive :as rdr]))

 (defn show-num [uid]
  (r/with-let [*kids (rdr/q '[:find (count ?b) .  
                        :in $ ?uid 
                        :where 
                          [?a :block/uid ?uid] 
                          [?b :block/parents ?a]] uid)]
  [:span @*kids]))

 (defn main [{:keys [block-uid]}]
  (show-num block-uid))
	;; Instructions for including the Clojure script (this) into your Roam can be found in my article
	;; here: https://lifehacky.net/how-to-list-namespaces-and-find-more-in-roam-research-5c25d9f24556
	;; Search for section "How to make it work in your Roam?" and think of "better-search" as of "children-block-count"

	(ns reddit.8-7-2022-reagent
	(:require [roam.datascript :as rd]
	[reagent.core :as r]
	[roam.datascript.reactive :as rdr]))

	(defn show-num [uid]
	(r/with-let [*kids (rdr/q '[:find (count ?b) .
	:in $ ?uid
	:where
	[?a :block/uid ?uid]
	[?b :block/parents ?a]] uid)]
	[:span @*kids]))

	(defn main [{:keys [block-uid]}]
	(show-num block-uid))