diff options
Diffstat (limited to 'src/distractionless/ui/apps/settings.cljd')
| -rw-r--r-- | src/distractionless/ui/apps/settings.cljd | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/src/distractionless/ui/apps/settings.cljd b/src/distractionless/ui/apps/settings.cljd index c6d1c67..8fa57ce 100644 --- a/src/distractionless/ui/apps/settings.cljd +++ b/src/distractionless/ui/apps/settings.cljd @@ -31,6 +31,21 @@ reloader))) .activeColor duconstants/checkbox-active-color)) +(defn- countdown-setting [app config-file reloader] + (m/Row + .children [(m/Text "Countdown, bevor App öffnet (in Sekunden): " + .style duconstants/text-style) + (m/Expanded + .child (m/TextFormField + .keyboardType m/TextInputType.number + .initialValue (str (get-in (dconfig/read-from-file config-file) + ["countdowns" (.-packageName app)] 0)) + .onChanged (fn [new-val] + (dconfig/update-config! config-file + #(update % "countdowns" + conj [(.-packageName app) (or (int/tryParse new-val) 0)]) + reloader))))])) + (defn open [app config-file ctx reloader] (m/showDialog .context ctx @@ -39,4 +54,5 @@ .backgroundColor duconstants/background-color .child (m/Column .children (list (header app ctx) - (favourite-setting app config-file reloader))))))) + (favourite-setting app config-file reloader) + (countdown-setting app config-file reloader))))))) |