dashboard: version

src/llar/apis/dashboard.clj

@@ -10,7 +10,8 @@
    [java-time :as time]
    [mount.core :as mount]
    [puget.printer :as puget]
-   [llar.apis.reader :refer [frontend-db] :as reader]
+   [llar.apis.reader :refer [frontend-db map-to-tree] :as reader]
+   [llar.appconfig :refer [appconfig-redact-secrets]]
    [llar.config :as config]
    [llar.human :as human]
    [llar.live :as live]
@@ -277,14 +278,21 @@
           [:td chime-times]
           [:td (pprint-html pred)]])]])))
 
+(defn config-tab []
+  (html
+   [:h2 "Home"]
+   [:div [:h3 "Application Config"]
+    (map-to-tree (appconfig-redact-secrets))]))
+
 (def tabs
   {:sources #'source-tab
    :memory #'memory-tab
    :database #'database-tab
    :schedules #'schedule-tab
    :state #'state-tab
    :metrics #'metrics-tab
-   :threads #'thread-tab})
+   :threads #'thread-tab
+   :config #'config-tab})
 
 (defn status-index []
   (wrap-body

src/llar/appconfig.clj

@@ -71,6 +71,11 @@
 (defstate appconfig
   :start (read-config))
 
+(defn appconfig-redact-secrets []
+  (-> appconfig
+      (assoc-in [:postgresql :frontend :password] "--secret removed--")
+      (assoc-in [:postgresql :backend :password] "--secret removed--")))
+
 (defn update-max-retry []
   (get appconfig :update-max-retry))
 

src/llar/config.clj

@@ -224,7 +224,6 @@
   (load-config (get-config-files)))
 
 (defn start-watcher []
-  ;; (log/info (get appconfig :runtime-config-dir) (mount/running-states))
   (beholder/watch handle-config-dir-change (get appconfig :runtime-config-dir)))
 
 (defstate change-watcher