wip: printing workspaces as json

Had to remove some logging and use print - this is to get some jq-able
data out via babashka in my current hyprland config.

Author: russmatney

src/clawe/cli.clj

@@ -1,6 +1,7 @@
 (ns clawe.cli
   (:require
    [clojure.string :as string]
+   [cheshire.core :as json]
    [clawe.config :as clawe.config]))
 
 ;; TODO support ops like these with smth like -j
@@ -13,27 +14,39 @@
 (defn workspace-def [{:as _opts :keys [title]}]
   (clawe.config/workspace-def title))
 
+(defn workspace-def-j [opts]
+  (->>
+    (workspace-def opts)
+    (json/generate-string)
+    println))
+
 (defn workspace-dir [opts]
-  (-> opts workspace-def :workspace/directory))
+  (-> opts workspace-def :workspace/directory
+      println))
 
 (defn preferred-index [opts]
-  (-> opts workspace-def :workspace/preferred-index))
+  (-> opts workspace-def :workspace/preferred-index
+      println))
 
 (defn git-status [opts]
-  (-> opts workspace-def :git/status))
+  (-> opts workspace-def :git/status
+      println))
 
 (defn repo-dirs [opts]
   (->>
     (clawe.config/workspace-defs)
-    (map (fn [[k def]] [k (:workspace/directory def)]))))
+    (map (fn [[k def]] [k (:workspace/directory def)]))
+    println))
 
 (defn my-repo-dirs [opts]
   (->>
     (clawe.config/workspace-defs)
     (filter (comp :workspace/directory second))
     (filter (fn [[_ def]] (string/includes? (:workspace/directory def) "russmatney")))
     (map (fn [[k def]] [k (:workspace/directory def)]))
-    (map str)
-    (string/join "\n")
-    ;; (into {})
+    ;; (map str)
+    ;; (string/join "\n")
+    (into {})
+    (json/generate-string)
+    println
     ))

src/clawe/config.clj

@@ -12,7 +12,7 @@
    [timer :as timer]))
 
 
-(timer/print-since "clawe.config ns loading")
+;; (timer/print-since "clawe.config ns loading")
 
 
 (def clawe-config-path ".config/clawe/clawe.edn")
@@ -36,12 +36,12 @@
                (assoc :home-dir (str (fs/home)))
                (->> ;; local should overwrite global
                  (merge (read-config clawe-local-config-path))))]
-    (timer/print-since "parsed and returning clawe config")
+    ;; (timer/print-since "parsed and returning clawe config")
     conf))
 
 (defsys ^:dynamic *config*
   :start
-  (timer/print-since "starting clawe.config system")
+  ;; (timer/print-since "starting clawe.config system")
   (atom (->config)))
 
 (declare write-config)

src/timer.clj

@@ -11,4 +11,4 @@
      (reset! last-t now)
      (println "|" (when old-last (- now old-last)) "\t|" (- now @start-t) "\t|" line))))
 
-(print-since "timer ns loaded")
+;; (print-since "timer ns loaded")