feat: basic journal workspace card on /journal page

Author: russmatney

src/pages/journal.cljs

@@ -5,8 +5,12 @@
    [components.garden :as components.garden]
    [doctor.ui.db :as ui.db]
    [doctor.ui.hooks.use-db :as hooks.use-db]
+   [doctor.ui.hooks.use-workspaces :as hooks.use-workspaces]
    [doctor.ui.hooks.plasma :refer [with-rpc]]
-   [doctor.ui.handlers :as handlers]))
+   [doctor.ui.handlers :as handlers]
+
+   [doctor.ui.views.workspaces :as views.workspaces]
+   ))
 
 (defn use-recent-garden-notes []
   (let [[notes set-notes] (uix/use-state nil)
@@ -22,12 +26,31 @@
     {:notes notes}))
 
 (defui page [opts]
-  (let [{:keys [notes]} (use-recent-garden-notes)]
+  (let [{:keys [notes]} (use-recent-garden-notes)
+
+        {:keys [active-workspaces
+                all-clients]}
+        (hooks.use-workspaces/use-workspaces)
+
+        journal-workspace (some->> active-workspaces
+                                   (filter #(#{"journal"} (:workspace/title %)))
+                                   first)
+        ]
     ($ :div
        (for [[i note] (map-indexed vector notes)]
          ($ :div
             {:key   i
              :class ["p-2"
                      "bg-slate-800"
                      "xl:mx-48" "mx-16" "mt-16"]}
-            ($ components.garden/org-file (assoc opts :item note)))))))
+
+            ($ components.garden/org-file (assoc opts :item note))))
+
+       ;; TODO add a workspace comp
+       ($ views.workspaces/workspace-card (assoc opts :workspace journal-workspace))
+
+
+       ;; TODO add an active-app lists
+
+
+       )))