diff options
| author | Tim <contact@bytim.eu> | 2025-02-22 13:20:51 +0100 |
|---|---|---|
| committer | Tim <contact@bytim.eu> | 2025-02-22 13:20:51 +0100 |
| commit | cd72067f63b1419c8cb87541cbc08e3a25d3a507 (patch) | |
| tree | 86e2fe0257624f348165887ca228c78affbed641 /src/distractionless/ui | |
| parent | 7b042467886db9729ac092c87ce47a88297577e0 (diff) | |
| download | distractionless-cd72067f63b1419c8cb87541cbc08e3a25d3a507.tar.xz distractionless-cd72067f63b1419c8cb87541cbc08e3a25d3a507.zip | |
Add setting for countdown before app opens
(Countdown functionality is not ready yet)
Diffstat (limited to 'src/distractionless/ui')
| -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))))))) |