Change to Nord-based theme and fix ergonomics of epoch navigation

Significant refactor of all views, subs, events and styling. Probably a
breaking change for any code depending on internal namespace structure
or APIs. Some risk of uncaught regressions.

Co-Authored-By: Mike Thompson <[email protected]>

Author: superstructor

examples/todomvc/package-lock.json

@@ -5,7 +5,7 @@
     "karma-chrome-launcher": "3.1.0",
     "karma-cljs-test": "0.1.0",
     "karma-junit-reporter": "2.0.1",
-    "shadow-cljs": "2.12.0"
+    "shadow-cljs": "2.12.2"
   },
   "dependencies": {
     "highlight.js": "10.7.1",

examples/todomvc/package.json

@@ -7,7 +7,7 @@
   [zprint                               "1.0.1"]
   [superstructor/re-highlight           "0.0.1"]
   [secretary                            "1.2.3"]
-  [binaryage/devtools                   "1.0.2"]]
+  [binaryage/devtools                   "1.0.3"]]
 
  :source-paths ["src" "../../src" "../../gen-src"]
 
@@ -23,7 +23,8 @@
       :preloads [day8.re-frame-10x.preload]}}
     :dev
     {:compiler-options
-     {:closure-defines
+     {:infer-externs false
+      :closure-defines
       {re-frame.trace.trace-enabled? true
        day8.re-frame-10x.debug? true
        day8.re-frame.tracing.trace-enabled? true}
@@ -33,4 +34,4 @@
         [:formatters :hints]}}}}
     :devtools
     {:http-root "resources/public"
-     :http-port 8280}}}}
+     :http-port 8280}}}}

examples/todomvc/shadow-cljs.edn

@@ -6,6 +6,7 @@
   :min-lein-version "2.9.1"
 
   :dependencies [[org.clojure/clojure                  "1.10.3"   :scope "provided"]
+                 [org.clojure/clojurescript "1.10.773"]
                  [binaryage/devtools                   "1.0.2"]
                  [com.yahoo.platform.yui/yuicompressor "2.4.8"
                   :exclusions [rhino/js]]

project.clj

@@ -1,27 +1,23 @@
 (ns day8.re-frame-10x
-  (:require [day8.re-frame-10x.utils.re-com :as rc]
-            [day8.re-frame-10x.styles :as styles]
-            [day8.re-frame-10x.view.container :as container]
-            [day8.re-frame-10x.subs]
-            [day8.re-frame-10x.events]
-            [day8.re-frame-10x.db :as trace.db]
-            [day8.reagent.impl.component :refer [patch-wrap-funs patch-custom-wrapper]]
-            [day8.reagent.impl.batching :refer [patch-next-tick]]
-            [day8.re-frame-10x.inlined-deps.re-frame.v1v1v2.re-frame.core :as rf]
-            [day8.re-frame-10x.inlined-deps.reagent.v1v0v0.reagent.core :as r]
-            [day8.re-frame-10x.inlined-deps.reagent.v1v0v0.reagent.dom :as rdom]))
+  (:require
+    [day8.re-frame-10x.inlined-deps.reagent.v1v0v0.reagent.core   :as r]
+    [day8.re-frame-10x.inlined-deps.reagent.v1v0v0.reagent.dom    :as rdom]
+    [day8.re-frame-10x.inlined-deps.re-frame.v1v1v2.re-frame.core :as rf]
+    [day8.reagent.impl.batching                                   :refer [patch-next-tick]]
+    [day8.reagent.impl.component                                  :refer [patch-wrap-funs patch-custom-wrapper]]
+    [day8.re-frame-10x.events                                     :as events]
+    [day8.re-frame-10x.components.re-com                          :as rc]
+    [day8.re-frame-10x.navigation.views                           :as container]
+    [day8.re-frame-10x.panels.settings.subs                       :as settings.subs]
+    [day8.re-frame-10x.panels.settings.events                     :as settings.events]
+    [day8.re-frame-10x.styles                                     :as styles]))
 
 (goog-define debug? false)
 
 #_(defonce real-schedule reagent.impl.batching/schedule)
 #_(defonce do-after-render-trace-scheduled? (atom false))
 
-(defn init-tracing!
-  "Sets up any initial state that needs to be there for tracing. Does not enable tracing."
-  []
-  (patch-custom-wrapper)
-  (patch-wrap-funs)
-  (patch-next-tick))
+
 
 
 (defn resizer-style [draggable-area]
@@ -34,25 +30,25 @@
   ;; Add clear button
   ;; Filter out different trace types
   (let [position             (r/atom :right)
-        panel-width%         (rf/subscribe [:settings/panel-width%])
-        showing?             (rf/subscribe [:settings/show-panel?])
+        panel-width%         (rf/subscribe [::settings.subs/panel-width%])
+        showing?             (rf/subscribe [::settings.subs/show-panel?])
         dragging?            (r/atom false)
         pin-to-bottom?       (r/atom true)
-        selected-tab         (rf/subscribe [:settings/selected-tab])
+        selected-tab         (rf/subscribe [::settings.subs/selected-tab])
         window-width         (r/atom js/window.innerWidth)
-        handle-window-resize (do (rf/dispatch [:settings/window-width js/window.innerWidth]) ;; Set initial
+        handle-window-resize (do (rf/dispatch [::settings.events/window-width js/window.innerWidth]) ;; Set initial
                                  (fn [e]
                                    ;; N.B. I don't think this should be a perf bottleneck.
                                    (let [window-width-val js/window.innerWidth]
-                                     (rf/dispatch [:settings/window-width window-width-val])
+                                     (rf/dispatch [::settings.events/window-width window-width-val])
                                      (reset! window-width window-width-val))))
         handle-keys          (fn [e]
                                (let [tag-name        (.-tagName (.-target e))
                                      entering-input? (contains? #{"INPUT" "SELECT" "TEXTAREA"} tag-name)]
                                  (when (and (not entering-input?)
                                             (= (.-key e) "h")
                                             (.-ctrlKey e))
-                                   (rf/dispatch [:settings/user-toggle-panel])
+                                   (rf/dispatch [::settings.events/user-toggle-panel])
                                    (.preventDefault e))))
         handle-mousemove     (fn [e]
                                (when @dragging?
@@ -62,7 +58,7 @@
                                    (.preventDefault e)
                                    (let [width% (/ (- new-window-width x) new-window-width)]
                                      (when (<= width% 0.9)
-                                       (rf/dispatch [:settings/panel-width% width%])))
+                                       (rf/dispatch [::settings.events/panel-width% width%])))
                                    (reset! window-width new-window-width))))
         handle-mouse-up      (fn [e] (reset! dragging? false))]
     (r/create-class
@@ -115,25 +111,45 @@
       panel
       (let [new-panel (.createElement js/document "div")]
         (.setAttribute new-panel "id" id)
+        (.setAttribute new-panel "class" (str
+                                           #_(styles/unset) " "
+                                           (styles/normalize)))
         (.appendChild (.-body js/document) new-panel)
         (js/window.focus new-panel)
         new-panel))))
 
-(defn inject-devtools! []
-  (styles/inject-trace-styles js/document)
-  (rdom/render [devtools-outer {:panel-type :inline
-                                :debug?     debug?}] (panel-div)))
+
 
 (defn traced-result [trace-id fragment-id]
   ;; TODO: this is not terribly efficient, figure out how to get the index of the trace directly.
-  (let [trace (first (filter #(= trace-id (:id %)) (get-in @day8.re-frame-10x.inlined-deps.re-frame.v1v1v2.re-frame.db/app-db [:traces :all-traces])))]
+  (let [trace (first (filter #(= trace-id (:id %)) (get-in @day8.re-frame-10x.inlined-deps.re-frame.v1v1v2.re-frame.db/app-db [:traces :all])))]
     (get-in trace [:tags :code fragment-id :result])))
 
-(defn init-db! []
-  (trace.db/init-db debug?))
-
 (defn ^:export factory-reset! []
-  (rf/dispatch [:settings/factory-reset]))
+  (rf/dispatch [::settings.events/factory-reset]))
 
 (defn ^:export show-panel! [show-panel?]
-  (rf/dispatch [:settings/show-panel? show-panel?]))
+  (rf/dispatch [::settings.events/show-panel? show-panel?]))
+
+;; --- NEW ---
+
+(defn patch!
+  "Sets up any initial state that needs to be there for tracing. Does not enable tracing."
+  []
+  (patch-custom-wrapper)
+  (patch-wrap-funs)
+  (patch-next-tick))
+
+(defn inject!
+  []
+  (rf/clear-subscription-cache!)
+  (rdom/render
+    [devtools-outer
+     {:panel-type :inline
+      :debug?     debug?}] (panel-div)))
+
+(defn init!
+  []
+  (patch!)
+  (rf/dispatch-sync [::events/init {:debug? debug?}])
+  (inject!))