test

src/cljs/auto_ap/core.cljs

@@ -27,6 +27,20 @@
 (defn ^:export init []
   (dev-setup)
   
+  (.addEventListener (.-body js/document)
+                     "htmx:configRequest"
+                     (fn [event]
+                       (aset (.-headers (.-detail event))
+                             "Authorization"
+                             (some->> (.getItem js/localStorage "jwt")
+                                     (str "Token ")))))
+
+  
+  ;; document.body.addEventListener('htmx:configRequest', function(evt) {
+    ;;                                                                   evt.detail.parameters['auth_token'] = getAuthToken(); // add a new parameter into the request
+      ;;;;                                                                  evt.detail.headers['Authentication-Token'] = getAuthToken(); // add a new header into the request
+          ;;                                                             });
+  
   (if-let [jwt (.get (js/URLSearchParams. (.-search (.-location js/window))) "jwt")]
     (do
       (.setItem js/localStorage "jwt" jwt)

src/cljs/auto_ap/views/components/admin/side_bar.cljs

@@ -45,6 +45,10 @@
         [:a {:href (bidi/path-for routes/routes :admin-rules), :class (str "item" (active-when ap = :admin-rules))}
          [:span {:class "icon icon-cog-play-1" :style {:font-size "25px"}}]
          [:span {:class "name"} "Rules"]]]
+       [:li.menu-item
+        [:a {:href "/admin/history", :class (str "item" (active-when ap = :admin-history))}
+         [:span {:class "icon icon-cog-play-1" :style {:font-size "25px"}}]
+         [:span {:class "name"} "History"]]]
        [:ul ]]
       [:p.menu-label "Import"]
       [:ul.menu-list

src/cljs/auto_ap/views/main.cljs

@@ -12,6 +12,7 @@
    [auto-ap.views.pages.error :refer [error-page]]
    [auto-ap.views.pages.ledger.balance-sheet :refer [balance-sheet-page]]
    [auto-ap.views.pages.admin.jobs :refer [jobs-page]]
+   [auto-ap.views.pages.admin.history :refer [history-page]]
    [auto-ap.views.pages.ledger.external-import :refer [external-import-page]]
    [auto-ap.views.pages.ledger.external-ledger :refer [external-ledger-page]]
    [auto-ap.views.pages.ledger.profit-and-loss :refer [profit-and-loss-page]]
@@ -153,6 +154,10 @@
 (defmethod page :admin-excel-import [_]
   [admin-excel-import-page])
 
+
+(defmethod page :admin-history [_]
+  [history-page])
+
 (defmethod page :initial-error [_]
   [error-page])