Sort clients

This commit is contained in:
Daniel O'Connell 2021-05-01 21:35:42 +02:00
parent a7a38b35d1
commit 50ab098410
2 changed files with 2 additions and 2 deletions

View File

@ -84,7 +84,6 @@
(input :day-names "Nazwy dni tygodnia"
{:default (clojure.string/join ", " (settings :day-names))
:parser #(clojure.string/split % #"\s*,\s*")})
(input :calendar-heading "Pokaż nagłówek z dniami tygodnia" {:type :checkbox})
[:h3 "Ustawienia wyglądu poszczególnych dni"]
(input :date-format "Format daty. %D wstawia nazwę dnia, %d dzień a %m miesiąc" {})

View File

@ -2,6 +2,7 @@
(:require
[re-frame.core :as re-frame]
[reagent.core :as reagent]
[clojure.string :as str]
[chicken-master.products :as prod]
[chicken-master.subs :as subs]
[chicken-master.html :as html]
@ -69,7 +70,7 @@
vals
(group-by #(get-in % [:who :id])))]
(doall
(for [{:keys [name id] :as who} @(re-frame/subscribe [::subs/available-customers])]
(for [{:keys [name id] :as who} (sort-by #(some-> % :name str/lower-case) @(re-frame/subscribe [::subs/available-customers]))]
[:details {:class :client :key (gensym)}
[:summary [:span name [:button {:on-click #(re-frame/dispatch
[::event/confirm-action