🚧 Printouts page: QR code only

Why:
- Continuing the migration from SPA to SSR.

src/territory_bro/ui/printout_templates.clj

@@ -43,6 +43,13 @@
       [:div {:class (:content styles)}
        content]])))
 
+(defn territory-qr-code [territory]
+  (h/html
+   [:div {:hx-target "this"
+          :hx-swap "outerHTML"
+          :hx-trigger "load"
+          :hx-get (str html/*page-path* "/qr-code/" (:id territory))}]))
+
 
 (defn territory-card [{:keys [territory congregation-boundary enclosing-region enclosing-minimap-viewport map-raster print-date]}]
   (let [styles (:TerritoryCard (css/modules))]
@@ -70,11 +77,7 @@
                           :printout true}])]
 
        [:div {:class (:addresses styles)}
-        [:div {:class (:qrCode styles)}
-         [:div {:hx-target "this"
-                :hx-swap "outerHTML"
-                :hx-trigger "load"
-                :hx-get (str html/*page-path* "/qr-code/" (:id territory))}]]
+        [:div {:class (:qrCode styles)} (territory-qr-code territory)]
         (:addresses territory)]
 
        [:div {:class (:footer styles)} (i18n/t "TerritoryCard.footer")]]))))
@@ -105,11 +108,7 @@
                           :map-raster map-raster
                           :printout true}])]
 
-       [:div {:class (:qrCode styles)}
-        [:div {:hx-target "this"
-               :hx-swap "outerHTML"
-               :hx-trigger "load"
-               :hx-get (str html/*page-path* "/qr-code/" (:id territory))}]]
+       [:div {:class (:qrCode styles)} (territory-qr-code territory)]
 
        [:div {:class (:footer styles)} (i18n/t "TerritoryCard.footer")]]))))
 
@@ -139,11 +138,15 @@
                           :map-raster map-raster
                           :printout true}])]
 
-       [:div {:class (:qrCode styles)}
-        [:div {:hx-target "this"
-               :hx-swap "outerHTML"
-               :hx-trigger "load"
-               :hx-get (str html/*page-path* "/qr-code/" (:id territory))}]]]))))
+       [:div {:class (:qrCode styles)} (territory-qr-code territory)]]))))
+
+(defn qr-code-only [{:keys [territory]}]
+  (let [styles (:QrCodeOnly (css/modules))]
+    (h/html
+     [:div {:class (:cropArea styles)}
+      [:div {:class (:root styles)}
+       [:div {:class (:number styles)} (:number territory)]
+       [:div {:class (:qrCode styles)} (territory-qr-code territory)]]])))
 
 (defn neighborhood-card [{:keys [territory map-raster]}]
   (let [styles (:NeighborhoodCard (css/modules))]

src/territory_bro/ui/printouts_page.clj

@@ -38,6 +38,7 @@
     :fn printout-templates/rural-territory-card
     :type :territory}
    {:id "QrCodeOnly"
+    :fn printout-templates/qr-code-only
     :type :territory}
    {:id "RegionPrintout"
     :fn printout-templates/region-printout

test/territory_bro/ui/printout_templates_test.clj

@@ -128,6 +128,16 @@
       (is (str/includes? html "territory-location=\"MULTIPOLYGON(territory)\""))
       (is (str/includes? html "map-raster=\"osmhd\"")))))
 
+(deftest qr-code-only-test
+  (testing "no data"
+    (is (= "" (-> (printout-templates/qr-code-only nil)
+                  html/visible-text))))
+
+  (testing "full data"
+    (let [html (printout-templates/qr-code-only territory-printout-model)]
+      (is (= "123" (html/visible-text html)))
+      (is (str/includes? html "hx-get=\"page-url/qr-code/00000000-0000-0000-0000-000000000001\"")))))
+
 (deftest region-printout-test
   (testing "no data"
     (is (= "Printed with TerritoryBro.com"