test

src/cljs/auto_ap/views/pages/admin/history.cljs

@@ -0,0 +1,40 @@
+(ns auto-ap.views.pages.admin.history
+  (:require
+   [auto-ap.status :as status]
+   [auto-ap.subs :as subs]
+   [auto-ap.views.components.admin.side-bar :refer [admin-side-bar]]
+   [auto-ap.views.components.layouts :refer [side-bar-layout]]
+   [auto-ap.views.pages.admin.jobs.table :as table]
+   [auto-ap.views.components.modal :as modal]
+   [auto-ap.views.components :as com]
+   [auto-ap.views.pages.data-page :as data-page]
+   [auto-ap.views.utils :refer [dispatch-event with-user]]
+   [clojure.set :as set]
+   [re-frame.core :as re-frame]
+   [vimsical.re-frame.fx.track :as track]
+   [auto-ap.forms.builder :as form-builder]
+   [vimsical.re-frame.cofx.inject :as inject]
+   [auto-ap.forms :as forms]
+   [clojure.string :as str]
+   ["htmx.org" :as htmx]
+   ))
+
+;; VIEWS
+(def history-content
+  (let [c (atom nil)]
+    (with-meta
+      (fn []
+        (println "bothered?")
+        [:div {"hx-get" (.-pathname (.-location js/document))
+               "hx-trigger" "load"
+               "hx-swap" "outerHTML"
+               :ref (fn [i] (reset! c i))}
+         "test"])
+      {:should-component-update (fn [] false)
+       :component-did-mount (fn []
+                              (.process htmx @c))})))
+
+(defn history-page []
+  [side-bar-layout {:side-bar [admin-side-bar {}]
+                    :main     [history-content]}])
+