feat: clawe.cli namespace and sketch of helpers

These work but are not parseable yet. Tho maybe you's pass to `bb -o`
and do edn -> json via jet from there?

Author: russmatney

src/blog/config.clj

@@ -35,7 +35,9 @@
 
 (def blog-edn (blog-content-config))
 
-(defn ->config [] (aero/read-config blog-edn))
+(defn ->config []
+  nil
+  #_(aero/read-config blog-edn))
 
 (defsys ^:dynamic *config* :start
   (log/log! :info "[BLOG-CONFIG]: Restarting *config*")

src/clawe/cli.clj

@@ -0,0 +1,39 @@
+(ns clawe.cli
+  (:require
+   [clojure.string :as string]
+   [clawe.config :as clawe.config]))
+
+;; TODO support ops like these with smth like -j
+;; take jq insight, read bb-cli for parsing/output inspo
+;; use to support scripts like *-in-wsp details
+;; first-file, wsp-directory, wsp-git-status
+;; related common apps and urls
+;; cheatsheets and relevant keybindings
+
+(defn workspace-def [{:as _opts :keys [title]}]
+  (clawe.config/workspace-def title))
+
+(defn workspace-dir [opts]
+  (-> opts workspace-def :workspace/directory))
+
+(defn preferred-index [opts]
+  (-> opts workspace-def :workspace/preferred-index))
+
+(defn git-status [opts]
+  (-> opts workspace-def :git/status))
+
+(defn repo-dirs [opts]
+  (->>
+    (clawe.config/workspace-defs)
+    (map (fn [[k def]] [k (:workspace/directory def)]))))
+
+(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 {})
+    ))

src/clawe/config.clj

@@ -155,16 +155,21 @@
 ;; workspace-defs
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defn workspace-defs []
-  (sys/start! `*config*)
-  (:workspace/defs @*config* {}))
+(defn workspace-defs
+  ([] (workspace-defs nil))
+  ([_opts]
+   (sys/start! `*config*)
+   (let [defs (:workspace/defs @*config* {})]
+     defs)))
 
-(defn workspace-defs-with-titles []
-  (sys/start! `*config*)
-  (->> (:workspace/defs @*config* {})
-       (map (fn [[k def]]
-              [k (assoc def :workspace/title k)]))
-       (into {})))
+(defn workspace-defs-with-titles
+  ([] (workspace-defs-with-titles nil))
+  ([_opts]
+   (sys/start! `*config*)
+   (->> (:workspace/defs @*config* {})
+        (map (fn [[k def]]
+               [k (assoc def :workspace/title k)]))
+        (into {}))))
 
 (defn workspace-def [workspace-title]
   ((workspace-defs) workspace-title))

src/clawe/mx.clj

@@ -278,8 +278,9 @@ hi there
 (defn open-new-wsp-with-emacs [w]
   (workspace.open/open-new-workspace w)
 
-  (client.create/create-client "emacs" {:current-workspace w})
-  (client.create/create-client "terminal" {:current-workspace w}))
+  ;; (client.create/create-client "emacs" {:current-workspace w})
+  (client.create/create-client "terminal" {:current-workspace w})
+  )
 
 (defn test-fn [key]
   (if-let [wm (wm/key->workspace key)]