blob: d12e10f7628a2a9b2104faa32bcfd8e79d97ffd2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
(ns distractionless.core
(:require ["package:flutter/material.dart" :as m]
[cljd.flutter :as f]
["package:path_provider/path_provider.dart" :as path-provider]
[distractionless.config :as dconfig]
["dart:io" :as io]
[clojure.string :as cstr]
[distractionless.ui.constants :as duconstants]
[distractionless.ui.apps :as duapps]))
(defn ^dynamic main []
(f/run
(m/MaterialApp
.theme (m/ThemeData .primarySwatch m.Colors/pink))
.home
(m/Scaffold .backgroundColor duconstants/background-color)
.body
:context ctx
:watch [apps (atom '()) :as *apps
query (atom "") :as *query
data-dir (await (path-provider/getApplicationDocumentsDirectory))
_ (atom 0) :as reloader
show-all-apps? (atom false) :as *show-all-apps?]
:managed [_ (duapps/load-installed-apps! *apps) ; loads apps on app startup
config-file (io/File. (str (.-path data-dir) "/config.edn"))
_ (dconfig/init-config! config-file nil) ; Init config on app startup
search-bar-controller (m/TextEditingController.)
_ (m/AppLifecycleListener .onShow #(do (dconfig/init-config! config-file nil)
(duapps/load-installed-apps! *apps)
(reset! *query "")
(.clear search-bar-controller)))]
:let [favourites (get (dconfig/read-from-file config-file) "favourites")]
(m/Container
.padding (m/EdgeInsets.only
.top 50)
.child (m/Column
.children [(m/SearchBar
.onChanged (fn [new-val]
(reset! *query new-val)
nil)
.hintText "Suche"
.controller search-bar-controller
.backgroundColor (#/(.resolveWith m/Color?) m/MaterialStateProperty (fn [^Set _states] duconstants/background-color))
.trailing (when-not (cstr/blank? query)
[(m/IconButton .icon (m/Icon m/Icons.clear_rounded)
.color duconstants/text-color
.onPressed #(do (reset! *query "")
(.clear search-bar-controller))
.iconSize 30.0)]))
(m/CheckboxListTile
.title (m/Text "Alle Apps anzeigen"
.style duconstants/text-style)
.value show-all-apps?
.onChanged #(reset! *show-all-apps? %)
.activeColor duconstants/checkbox-active-color)
(m/Expanded
.child (duapps/apps-list (filter (cond
(not (cstr/blank? query)) #(cstr/includes?
(cstr/lower-case (.-name %))
(cstr/lower-case query))
show-all-apps? (fn [_] true)
:else #(.contains favourites (.-packageName %))) apps)
config-file ctx reloader))]))))
|
