Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Harja-907, Saavutettavuus,sivupaneelin nappaimistokaytto #3689

Open
wants to merge 2 commits into
base: develop
Choose a base branch
from
Open

Harja-907, Saavutettavuus,sivupaneelin nappaimistokaytto #3689

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d68434d
HARJA-907, Korjaa paikkauskohteiden sivupaneelit ja modaalit
marikork Oct 23, 2024
763eca4
HARJA-907 Korjaa paikkauskohteen nimen näkyminen viestissä käyttäjälle
marikork Nov 7, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
56 changes: 30 additions & 26 deletions src/cljs/harja/tiedot/urakka/yllapitokohteet/paikkaukset/paikkaukset_paikkauskohteet.cljs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -91,16 +91,16 @@
(defrecord TallennaPaikkauskohde [paikkauskohde])
(defrecord TallennaPaikkauskohdeOnnistui [paikkauskohde muokattu])
(defrecord TallennaPaikkauskohdeEpaonnistui [paikkauskohde muokattu])
(defrecord TilaaPaikkauskohdeOnnistui [vastaus])
(defrecord TilaaPaikkauskohdeEpaonnistui [vastaus])
(defrecord TilaaPaikkauskohdeOnnistui [paikkauskohde])
(defrecord TilaaPaikkauskohdeEpaonnistui [paikkauskohde])
(defrecord HylkaaPaikkauskohdeOnnistui [paikkauskohde])
(defrecord HylkaaPaikkauskohdeEpaonnistui [paikkauskohde])
(defrecord PoistaPaikkauskohde [paikkauskohde])
(defrecord PoistaPaikkauskohdeOnnistui [paikkauskohde])
(defrecord PoistaPaikkauskohdeEpaonnistui [paikkauskohde])
(defrecord PeruPaikkauskohteenTilausOnnistui [vastaus])
(defrecord PeruPaikkauskohteenTilausEpaonnistui [vastaus])
(defrecord PeruPaikkauskohteenHylkaysOnnistui [vastaus])
(defrecord PeruPaikkauskohteenTilausOnnistui [paikkauskohde])
(defrecord PeruPaikkauskohteenTilausEpaonnistui [paikkauskohde])
(defrecord PeruPaikkauskohteenHylkaysOnnistui [paikkauskohde])
(defrecord PeruPaikkauskohteenHylkaysEpaonnistui [paikkauskohde])
(defrecord LaskePituusOnnistui [vastaus lomakeavain])
(defrecord LaskePituusEpaonnistui [vastaus])
Expand Down Expand Up @@ -354,14 +354,14 @@
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast!
(str "Paikkauskohde " (paikkauskohde-id->nimi app (:paikkauskohde-id vastaus)) " merkitty valmiiksi"))
(str "Paikkauskohde " (:nimi vastaus) " merkitty valmiiksi"))
(dissoc app :lomake :tiemerkintalomake)))

MerkitsePaikkauskohdeValmiiksiEpaonnistui
(process-event [{vastaus :vastaus} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohteen " (paikkauskohde-id->nimi app (:paikkauskohde-id vastaus)) " valmiiksi merkitsemisessä tapahtui virhe!")
(viesti/nayta-toast! (str "Kohteen " (:nimi vastaus) " valmiiksi merkitsemisessä tapahtui virhe!")
:varoitus viesti/viestin-nayttoaika-aareton)
(dissoc app :lomake :tiemerkintalomake)))

Expand Down Expand Up @@ -579,7 +579,7 @@
(viesti/nayta-toast!
(if muokattu
"Muutokset tallennettu"
(str "Kohde " (paikkauskohde-id->nimi app (:id paikkauskohde)) " lisätty")))
(str "Kohde " (:nimi paikkauskohde) " lisätty")))
(dissoc app :lomake)))

TallennaPaikkauskohdeEpaonnistui
Expand Down Expand Up @@ -636,32 +636,32 @@
app)))

TilaaPaikkauskohdeOnnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohde " (paikkauskohde-id->nimi app (:id vastaus)) " tilattu"))
(viesti/nayta-toast! (str "Kohde " (:nimi paikkauskohde) " tilattu"))
(dissoc app :lomake)))

TilaaPaikkauskohdeEpaonnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohteen " (paikkauskohde-id->nimi app (:id vastaus)) " tilaamisessa tapahtui virhe!")
(viesti/nayta-toast! (str "Kohteen " (:nimi paikkauskohde) " tilaamisessa tapahtui virhe!")
:varoitus viesti/viestin-nayttoaika-aareton)
(dissoc app :lomake)))

HylkaaPaikkauskohdeOnnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohde " (paikkauskohde-id->nimi app (:id vastaus)) " hylätty"))
(viesti/nayta-toast! (str "Kohde " (:nimi paikkauskohde) " hylätty"))
(dissoc app :lomake)))

HylkaaPaikkauskohdeEpaonnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohteen " (paikkauskohde-id->nimi app (:id vastaus)) " hylkäämisessä tapahtui virhe!")
(viesti/nayta-toast! (str "Kohteen " (:nimi paikkauskohde) " hylkäämisessä tapahtui virhe!")
:varoitus viesti/viestin-nayttoaika-aareton)
(dissoc app :lomake)))

Expand Down Expand Up @@ -691,32 +691,32 @@
(dissoc app :lomake)))

PeruPaikkauskohteenTilausOnnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohteen " (paikkauskohde-id->nimi app (:id vastaus)) " tilaus peruttu"))
(viesti/nayta-toast! (str "Kohteen " (:nimi paikkauskohde) " tilaus peruttu"))
(dissoc app :lomake)))

PeruPaikkauskohteenTilausEpaonnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohteen " (paikkauskohde-id->nimi app (:id vastaus)) " tilauksen perumisessa tapahtui virhe!")
(viesti/nayta-toast! (str "Kohteen " (:nimi paikkauskohde) " tilauksen perumisessa tapahtui virhe!")
:varoitus viesti/viestin-nayttoaika-aareton)
(dissoc app :lomake)))

PeruPaikkauskohteenHylkaysOnnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohteen " (paikkauskohde-id->nimi app (:id vastaus)) " hylkäys peruttu"))
(viesti/nayta-toast! (str "Kohteen " (:nimi paikkauskohde) " hylkäys peruttu"))
(dissoc app :lomake)))

PeruPaikkauskohteenHylkaysEpaonnistui
(process-event [{vastaus :vastaus} app]
(process-event [{paikkauskohde :paikkauskohde} app]
(let [app (hae-paikkauskohteet (-> @tila/yleiset :urakka :id) app)
_ (modal/piilota!)]
(viesti/nayta-toast! (str "Kohteen " (paikkauskohde-id->nimi app (:id vastaus)) " hylkäyksen perumisessa tapahtui virhe!")
(viesti/nayta-toast! (str "Kohteen " (:nimi paikkauskohde) " hylkäyksen perumisessa tapahtui virhe!")
:varoitus viesti/viestin-nayttoaika-aareton)
(dissoc app :lomake)))

Expand Down Expand Up @@ -774,10 +774,14 @@
true
:else false)))

(def edellinen-elementti (atom nil))

(defn nayta-modal [otsikko viesti ok-nappi peruuta-nappi]
(fn [] (modal/nayta!
(fn [] (reset! edellinen-elementti (.-activeElement js/document))
(modal/nayta!
{:modal-luokka "harja-modal-keskitetty"
:luokka "modal-dialog-keskitetty"}
:luokka "modal-dialog-keskitetty"
:modaalin-fokus-elementti :last}
[:div
{:style
{:display :flex
Expand Down
14 changes: 14 additions & 0 deletions src/cljs/harja/ui/dom.cljs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -189,6 +189,20 @@
leveys (.-width r)]
leveys))

(defn hae-nakyman-elementit [nakyma]
(->> (.querySelectorAll nakyma "button, [href], input, select, textarea")
array-seq
(filter #(not (.-disabled %)))
(filter #(not (.-hidden %)))))

(defn siirra-fokus-nakymaan [nakyma siirra-fokus-elementtiin]
(let [focusable-elementit (hae-nakyman-elementit nakyma)]
(when focusable-elementit
(cond
(= siirra-fokus-elementtiin :last) (.focus (last focusable-elementit))
(= siirra-fokus-elementtiin :second) (.focus (second focusable-elementit))
:else (.focus (first focusable-elementit))))))

(defn lataus-komponentille
"Jos komponentin luominen kestää pitkää, tämän voi wrapata komponentin ympärille, jolloinka
näytetään lataus gif sen aikaa, että react on kerennyt mountata komponentin."
Expand Down
Loading
Loading