From 3658c66a40d0e0f2e38adbea45a3be1db6f92914 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Markus=20V=C3=A4h=C3=A4kangas?=
 <markus.vahakangas@solita.fi>
Date: Fri, 15 Nov 2024 13:00:31 +0200
Subject: [PATCH 1/4] Poista zoomauksen esto mobiilissa HARJA-1007

---
 resources/public/laadunseuranta/cards.html | 2 +-
 src/clj/harja/palvelin/index.clj           | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/resources/public/laadunseuranta/cards.html b/resources/public/laadunseuranta/cards.html
index c6819b7b00a..f7e6a702150 100644
--- a/resources/public/laadunseuranta/cards.html
+++ b/resources/public/laadunseuranta/cards.html
@@ -2,7 +2,7 @@
 <html>
 	<head>
 		<meta charset="UTF-8">
-		<meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no">    
+		<meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1, user-scalable=on">
 		<link href="css/style.css" rel="stylesheet" type="text/css">
 		<script type="text/javascript" src="js/proj4.js"></script>
 		<script type="text/javascript">
diff --git a/src/clj/harja/palvelin/index.clj b/src/clj/harja/palvelin/index.clj
index 06a36047f18..00dfd99f6d0 100644
--- a/src/clj/harja/palvelin/index.clj
+++ b/src/clj/harja/palvelin/index.clj
@@ -46,7 +46,7 @@
       [:meta {:http-equiv "X-UA-Compatible" :content "IE=edge,chrome=1"}]
       ;; Edge yrittää muuttaa isot numerot puhelinnumerolinkeiksi. Ei haluta sitä käytöstä.
       [:meta {:name "format-detection" :content "telephone=no"}]
-      [:meta {:name "viewport" :content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no"}]
+      [:meta {:name "viewport" :content "width=device-width, initial-scale=1, minimum-scale=1, maximum-scale=5"}]
       [:meta {:name "apple-mobile-web-app-capable" :content "yes"}]
       [:meta {:name "mobile-web-app-capable" :content "yes"}]
       [:meta {:charset "utf-8"}]
@@ -87,7 +87,7 @@
        [:head
         [:title "HARJA Mobiili laadunseuranta"]
         [:meta {:charset "utf-8"}]
-        [:meta {:name "viewport" :content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no"}]
+        [:meta {:name "viewport" :content "width=device-width, initial-scale=1, minimum-scale=1, maximum-scale=5"}]
         [:meta {:name "apple-mobile-web-app-capable" :content "yes"}]
         [:meta {:name "mobile-web-app-capable" :content "yes"}]
         [:link {:href "//fonts.googleapis.com/css?family=Open+Sans:400,700" :rel "stylesheet" :type "text/css"}]

From bb74598423e3f9ce8608e65487a03a6db81e7926 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Markus=20V=C3=A4h=C3=A4kangas?=
 <markus.vahakangas@solita.fi>
Date: Fri, 15 Nov 2024 13:01:13 +0200
Subject: [PATCH 2/4] Korjaa taulukon poistonapit saavutettaviksi selaimella ja
 muutenkin

---
 dev-resources/less/grid.less                  |  3 +++
 dev-resources/less/napit.less                 | 13 ++++++++++++
 src/cljs/harja/ui/grid/muokkaus.cljs          | 20 +++++++++++--------
 src/cljs/harja/ui/grid/perus.cljs             | 13 ++++++++----
 src/cljs/harja/ui/napit.cljs                  |  7 +++++--
 .../harja/views/urakka/kulut/yhteiset.cljs    |  2 +-
 6 files changed, 43 insertions(+), 15 deletions(-)

diff --git a/dev-resources/less/grid.less b/dev-resources/less/grid.less
index 6dfc0ab624f..c93fd186915 100644
--- a/dev-resources/less/grid.less
+++ b/dev-resources/less/grid.less
@@ -316,6 +316,9 @@
       margin-left: 2px;
     }
   }
+  td.toiminnot span.rivilla-virheita {
+    margin-right: -6px;
+  }
 
   td.rivinumero {
     text-align: center;
diff --git a/dev-resources/less/napit.less b/dev-resources/less/napit.less
index e2b1f51deb6..48b11d5ba73 100644
--- a/dev-resources/less/napit.less
+++ b/dev-resources/less/napit.less
@@ -200,6 +200,19 @@
     &.tumma {
         color: @blue-dark;
     }
+  &.pelkka-ikoni {
+    color: @black-default;
+    padding: 0px;
+    outline: none;
+    border-style: none;
+    background-color: transparent;
+    border-color: transparent;
+    padding-top: 3px;
+    height: 24px;
+  }
+  &.pelkka-ikoni:focus {
+     border: 1px solid @blue-default;
+   }
 }
 
 .nappi-korkeus-36 {
diff --git a/src/cljs/harja/ui/grid/muokkaus.cljs b/src/cljs/harja/ui/grid/muokkaus.cljs
index c84b9162ebd..242545123d7 100644
--- a/src/cljs/harja/ui/grid/muokkaus.cljs
+++ b/src/cljs/harja/ui/grid/muokkaus.cljs
@@ -353,15 +353,19 @@
           (or (toimintonappi-fn rivi (partial muokkaa! muokatut-atom virheet varoitukset huomautukset skeema id) id)
               (when (and (not= false voi-muokata?)
                          (or (nil? voi-poistaa?) (voi-poistaa? rivi)))
-                [:span.klikattava {:on-click
-                                   #(do (.preventDefault %)
-                                        (muokkaa! muokatut-atom
-                                                  virheet varoitukset huomautukset skeema
-                                                  id assoc
-                                                  :poistettu true))}
-                 (ikonit/livicon-trash)]))
+                [napit/poista
+                 ""
+                 #(do (.preventDefault %)
+                    (muokkaa! muokatut-atom
+                      virheet varoitukset huomautukset skeema
+                      id assoc
+                      :poistettu true))
+                 {:teksti-nappi? false
+                  :vayla-tyyli? true
+                  :tooltip "Poista rivi"
+                  :luokka "napiton-nappi pelkka-ikoni"}]))
           (when (and nayta-virheikoni? (seq rivin-virheet))
-            [:span.rivilla-virheita
+            [:span.rivilla-virheita {:role "alert" :aria-label "Rivillä virheitä."}
              (ikonit/livicon-warning-sign)])]))]))
 
 (defn- kasketty-jarjestys [{:keys [virheet-ylos-fn jarjesta-kun-kasketaan muokatut muokatut-atom]}]
diff --git a/src/cljs/harja/ui/grid/perus.cljs b/src/cljs/harja/ui/grid/perus.cljs
index 59ccca1f1ea..bbb1bdb63f8 100644
--- a/src/cljs/harja/ui/grid/perus.cljs
+++ b/src/cljs/harja/ui/grid/perus.cljs
@@ -152,11 +152,15 @@
       (when (or (nil? voi-poistaa?) (voi-poistaa? rivi))
         (if (and esta-poistaminen? (esta-poistaminen? rivi))
           [:span (ui-ikonit/livicon-trash-disabled (esta-poistaminen-tooltip rivi))]
-          [:span.klikattava {:on-click #(do (.preventDefault %)
-                                            (muokkaa! id assoc :poistettu true))}
-           (ui-ikonit/livicon-trash)]))
+          [napit/poista ""
+           #(do (.preventDefault %)
+              (muokkaa! id assoc :poistettu true))
+           {:teksti-nappi? false
+            :vayla-tyyli? true
+            :tooltip "Poista rivi"
+            :luokka "napiton-nappi pelkka-ikoni"}]))
       (when-not (empty? rivin-virheet)
-        [:span.rivilla-virheita
+        [:span.rivilla-virheita {:role "alert" :aria-label "Rivillä virheitä."}
          (ui-ikonit/livicon-warning-sign)])])])
 
 (defn- rivin-infolaatikko* [sisalto rivi data]
@@ -524,6 +528,7 @@
                (if-not sarake-sort
                  [:div otsikko]
                  [:div.ilmoitukset-sort
+                  ;;TODO: Muuta span.klikattava buttoniksi jossakin vaiheessa.
                   [:span.klikattava {:on-click (:fn sarake-sort)}
                    otsikko " " (sort-ikoni (:suunta sarake-sort)) " "]]))]) skeema)
         (when (or nayta-toimintosarake?
diff --git a/src/cljs/harja/ui/napit.cljs b/src/cljs/harja/ui/napit.cljs
index 165c951da62..ce3f5a753ca 100644
--- a/src/cljs/harja/ui/napit.cljs
+++ b/src/cljs/harja/ui/napit.cljs
@@ -397,13 +397,16 @@
   ([teksti toiminto {:keys [luokka vayla-tyyli? teksti-nappi?] :as optiot}]
    [nappi teksti toiminto (merge
                             optiot
-                            {:luokka (str (cond
+                            {:aria-label "Poista"
+                             :alt "Poista"
+                             :tooltip (or (:tooltip optiot) "Poista rivi")
+                             :luokka (str (cond
                                             (and
                                               vayla-tyyli?
                                               teksti-nappi?) "button-negative-text"
                                             vayla-tyyli? "button-negative-default"
                                             :else "nappi-kielteinen") " " luokka)
-                             :ikoni  (ikonit/livicon-trash)})]))
+                             :ikoni (ikonit/livicon-trash)})]))
 
 (defn tarkasta
   ([teksti toiminto] (tarkasta teksti toiminto {}))
diff --git a/src/cljs/harja/views/urakka/kulut/yhteiset.cljs b/src/cljs/harja/views/urakka/kulut/yhteiset.cljs
index 7eba37b14ea..026546837c2 100644
--- a/src/cljs/harja/views/urakka/kulut/yhteiset.cljs
+++ b/src/cljs/harja/views/urakka/kulut/yhteiset.cljs
@@ -212,7 +212,7 @@
                             [napit/poista ""
                              #(do
                                 (poista-oikaisu-fn rivi id))
-                             {:luokka "napiton-nappi"}]))
+                             {:luokka "napiton-nappi pelkka-ikoni"}]))
       :voi-lisata? false ;; Piilotetaan default lisää rivi -nappi. Se on korvattu custom-toiminnolla
       :validoi-uusi-rivi? false
       :on-rivi-blur (fn [oikaisu i]

From 06e0261d13e5f2e88bf4df3c0e99e213faedacc8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Markus=20V=C3=A4h=C3=A4kangas?=
 <markus.vahakangas@solita.fi>
Date: Fri, 15 Nov 2024 13:23:12 +0200
Subject: [PATCH 3/4] =?UTF-8?q?P=C3=A4ivit=C3=A4=20testit=20vastaamaan=20m?=
 =?UTF-8?q?uuttunutta=20toteutusta.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Poisat -elementti oli ennen span ja nyt kun se on button, niin buttonien määrä on kasvanut taulukossa.
---
 test/cljs/harja/views/urakka/yleiset_test.cljs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/cljs/harja/views/urakka/yleiset_test.cljs b/test/cljs/harja/views/urakka/yleiset_test.cljs
index 55881273699..115f704cef8 100644
--- a/test/cljs/harja/views/urakka/yleiset_test.cljs
+++ b/test/cljs/harja/views/urakka/yleiset_test.cljs
@@ -66,6 +66,6 @@
       (u/click :button.nappi-ensisijainen)
       --
       "Muokkaustoimintojen nappien määrä kun toiminnot avattu"
-      (is (= 7 (count (u/sel [:button]))))
+      (is (= 10 (count (u/sel [:button]))))
       (is (= 4 (count (u/sel [:.muokkaustoiminnot :button]))))
       (is (= 3 (count (u/sel [:.livi-alasveto :button])))))))

From 880aab85ea5abc725ac201d05be6c82bcc35f869 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Markus=20V=C3=A4h=C3=A4kangas?=
 <markus.vahakangas@solita.fi>
Date: Mon, 18 Nov 2024 07:14:14 +0200
Subject: [PATCH 4/4] Poista alt -teksti

---
 src/cljs/harja/ui/napit.cljs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/cljs/harja/ui/napit.cljs b/src/cljs/harja/ui/napit.cljs
index ce3f5a753ca..2536560712b 100644
--- a/src/cljs/harja/ui/napit.cljs
+++ b/src/cljs/harja/ui/napit.cljs
@@ -398,7 +398,6 @@
    [nappi teksti toiminto (merge
                             optiot
                             {:aria-label "Poista"
-                             :alt "Poista"
                              :tooltip (or (:tooltip optiot) "Poista rivi")
                              :luokka (str (cond
                                             (and
