facility

ENVIRONMENT-VARS.md

@@ -19,3 +19,9 @@
 * Valid values: `9009`, `55555`, ...
 * Set Example: `export DEVHUB_IP=55555`
 * Default value: `9009`
+
+## `"DEVHUB_FACILITY"`
+
+* Valid values: any string
+* Set Example: `export DEVHUB_FACILITY="SE3"`
+* Default value: none

resources/conf.edn

@@ -1,4 +1,4 @@
-{
+{:log-context {:app-name "devhub"} 
  :mulog {:type :multi
          ;; send events to the stdout
          :console {:type :console

src/devhub/config.clj

@@ -20,6 +20,11 @@
               [:mulog :publishers]
               (if (= e :off) [] [(get-in conf [:mulog e] d)]))))
 
+(defn log-context [ conf]
+  (if-let [s (System/getenv "DEVHUB_FACILITY")] 
+    (assoc-in conf [:log-context :facility] s)
+    conf))
+
 (defn ip [conf]
   (if-let [e (System/getenv "DEVHUB_IP")]
     (assoc-in conf [:server :ip] e)
@@ -36,4 +41,4 @@
 
 (defn stub-mode [conf] (get-in conf [:stub :mode]))
 
-(defn config []  (-> (get-conf)  log-type ip port ))
+(defn config [] (-> (get-conf) log-type log-context ip port ))

src/devhub/server.clj

@@ -4,6 +4,7 @@
   (:require [compojure.route          :as route]
             [devhub.config            :as c]
             [devhub.utils             :as u]
+            [clojure.pprint           :as pprint]
             [devhub.pp                :as pp]
             [devhub.pp-js             :as js]
             [devhub.pp-py             :as py]
@@ -132,9 +133,8 @@
       middleware/wrap-json-response))
 
 (defn init-log!
-  [{conf :mulog }]
-  (mu/set-global-context!
-   {:app-name "devhub" :version (:version (u/version))})
+  [{conf :mulog ctx :log-context}]
+  (mu/set-global-context! ctx)
   (mu/start-publisher! conf))
 
 (def server (atom nil))
@@ -157,6 +157,6 @@
    (reset! server (run-server #'app (:server conf)))))
 
 (defn -main [& args]
-  (println (c/config))
+  (pprint/pprint (c/config))
   (u/ascii-logo)
   (start))