Merge branch 'master' into staging

.envrc

@@ -1 +1,2 @@
 export OPENROUTER_API_KEY=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
+export AWS_PROFILE=integreat

opencode.json

@@ -1,5 +1,11 @@
 {
   "$schema": "https://opencode.ai/config.json",
+  "agent": {
+	  "clojure-author": {
+		  "prompt": "You are an expert Clojure developer. Follow these rules:\n\nStructural Editing: Use the clojure-mcp tools for all code changes. When editing clojure, you may only use clojure_edit, clojure_edit_replace_sexp, file_edit, file_write, for modifications from the clojure mcp server. You should also prefer to use read_file from the clojure mcp server. Never use\n sed, Write, or raw text replacement for Clojure files. Use clj-repair-parens (via clojure_mcp_paren_repair) whenever a file has unbalanced delimiters\n before making other edits.\n Code Style: Write pure functions by default. Avoid side effects, mutable state, and overly clever code. Favor let bindings over nested calls. Keep\n functions small and composable.\nKnowledge: When you need to verify a library API, standard library behavior, or Clojure semantics, consult context7 first. Use web search as a\n fallback when context7 lacks coverage.\n Evaluation: Use clojure_mcp_clojure_eval to test expressions and verify behavior before suggesting code changes.",
+		  "permission": {"edit": "deny", "bash": "deny"}
+	  }
+  },
   "command": {
     "resolve_pr_parallel": {
       "description": "Resolve all PR comments using parallel processing",
@@ -108,7 +114,11 @@
       "url": "https://mcp.context7.com/mcp",
       "enabled": true
     },
-  
+   "clojure-mcp": {
+      "type": "local",
+      "command": ["clojure", "-Tmcp", "start", ":config-profile", ":cli-assist"],
+      "enabled": true
+    } 
   },
   "permission": {
     "read": "allow",

src/clj/auto_ap/server.clj

@@ -63,7 +63,7 @@
     (.setHandler server stats-handler))
   (.setStopAtShutdown server true))
 
-(mount/defstate port :start (Integer/parseInt (or (env :port) "3000")))
+(mount/defstate port :start (Integer/parseInt (str (or (env :port) "3000"))))
 
 (mount/defstate jetty
   :start (run-jetty app {:port port

src/clj/auto_ap/ssr/components/buttons.clj

@@ -148,10 +148,12 @@
     [:div.htmx-indicator-hidden.inline-flex.gap-2.items-center.justify-center (into [:div.h-4.w-4] children)]]))
 
 (defn a-icon-button- [params & children]
-  (into
-   [:a (-> params (update :class str  " inline-flex items-center justify-center bg-white dark:bg-gray-600 items-center p-3 text-sm font-medium border border-gray-300 dark:border-gray-700 text-center text-gray-500 hover:text-gray-800 rounded-lg dark:text-gray-400 dark:hover:text-gray-100")
-           (update :href #(or % "")))
-    [:div.h-4.w-4 children]]))
+  (let [class-str (:class params "")
+        has-padding? (re-find #"\bp[x y]?-\d+(\.\d+)?\b" class-str)]
+    (into
+     [:a (-> params (update :class str (if has-padding? "" " p-3") " inline-flex items-center justify-center bg-white dark:bg-gray-600 items-center text-sm font-medium border border-gray-300 dark:border-gray-700 text-center text-gray-500 hover:text-gray-800 rounded-lg dark:text-gray-400 dark:hover:text-gray-100")
+             (update :href #(or % "")))
+      [:div.h-4.w-4 children]])))
 
 (defn save-button- [params & children]
   [:button {:class "text-white bg-green-500 hover:bg-green-700 focus:ring-4 focus:ring-blue-300 font-medium rounded-lg text-sm px-5 py-2.5 text-center mr-2 dark:bg-green-600 dark:hover:bg-green-700 dark:focus:ring-green-800 inline-flex items-center hover:scale-105 transition duration-300"}

src/clj/auto_ap/ssr/pos/sales_summaries.clj

@@ -721,7 +721,8 @@
                          :current-account-id current-account-id}))))
 
 (defn save-item-account [request]
-  (let [{:keys [field-name-prefix client-id]} (:query-params request)
+  (let [field-name-prefix (get-in request [:params "field-name-prefix"])
+        client-id (get-in request [:params "client-id"])
         account-input-name (str field-name-prefix "[ledger-mapped/account]")
         account-id-str (get-in request [:form-params account-input-name])
         account-id (when (and account-id-str (not= account-id-str ""))