show messages on build

Author: tiye

calcit.cirru

@@ -26,7 +26,8 @@
   },
   "devDependencies": {
     "feather-icons": "^4.28.0",
-    "shadow-cljs": "^2.9.0",
+    "node-notifier": "^7.0.0",
+    "shadow-cljs": "^2.9.2",
     "source-map-support": "^0.5.19",
     "url-parse": "^1.4.7"
   }

package.json

@@ -16,7 +16,7 @@
     [cirru/bisection-key "0.1.5"]
     [cirru/favored-edn "0.1.3"]
     [medley "1.3.0"]
-    [appliedscience/js-interop "0.2.5"]
+    [applied-science/js-interop "0.2.5"]
     [org.clojure/core.incubator "0.1.4"]
   ]
   :open-file-command [
@@ -36,7 +36,7 @@
     }
     :server {
       :target :node-script, :output-to "target/server.js", :main app.server/main!
-      :devtools {:after-load app.server/reload!}
+      :devtools {:after-load app.server/reload!, :build-notify app.build-info/on-build!}
       :release {:output-to "dist/server.js"}
     }
     :page {

shadow-cljs.edn

@@ -0,0 +1,39 @@
+
+(ns app.build-info (:require ["node-notifier" :as notifier] [clojure.string :as string]))
+
+(defn on-build! [status warning]
+  (case (:type status)
+    :build-start (do)
+    :build-init (do)
+    :build-failure
+      (.notify
+       notifier
+       (clj->js
+        {:title "Failure",
+         :message (:report status),
+         :type "error",
+         :sound true,
+         :time 10000}))
+    :build-complete
+      (let [warnings (->> status
+                          :info
+                          :sources
+                          (map :warnings)
+                          (filter (fn [xs] (not (empty? xs)))))]
+        (if (> (count warnings) 0)
+          (.notify
+           notifier
+           (clj->js
+            {:title "Build",
+             :message (->> warnings
+                           (apply concat)
+                           (map
+                            (fn [warning] (str (:resource-name warning) " " (:msg warning))))
+                           (string/join "\n")),
+             :sound true,
+             :type "warn"}))
+          (.notify
+           notifier
+           (clj->js
+            {:title (pr-str (:build-id status)), :message "OK", :time 400, :type "info"}))))
+    (do (println "Unknown:" (:type status)))))

src/app/build_info.cljs

@@ -13,7 +13,8 @@
             [recollect.diff :refer [diff-twig]]
             [recollect.twig :refer [render-twig]]
             [ws-edn.server :refer [wss-serve! wss-send! wss-each!]]
-            [favored-edn.core :refer [write-edn]])
+            [favored-edn.core :refer [write-edn]]
+            [app.build-info :as build-info])
   (:require-macros [clojure.core.strint :refer [<<]]))
 
 (defonce *client-caches (atom {}))