(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]

            [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]
   :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
             _ (m/AppLifecycleListener .onShow #(do (dconfig/init-config! config-file nil)
                                                    (duapps/load-installed-apps! *apps)
                                                    (reset! *query "")))
             page-controller (m/PageController.)]
   :let [root-container-padding (m/EdgeInsets.only
                                 .top 50)]
   (m/PageView.
    .controller page-controller
    .onPageChanged (fn [_] (reset! *query ""))
    .children [(let [favourites (get (dconfig/read-from-file config-file) "favourites")]
                 (m/Container
                  .padding root-container-padding
                  .child (m/Column
                          .children [(m/Expanded
                                      .child (duapps/apps-list (filter #(.contains favourites (.-packageName %)) apps) nil config-file ctx reloader))
                                     (m/Text "Wische nach links, um alle Apps anzuzeigen"
                                             .style duconstants/text-style)])))
               (m/Container
                .padding root-container-padding
                .child (m/Column
                        .children [(m/Text "Alle Apps"
                                           .style duconstants/title-style)
                                   (m/SearchBar
                                    .onChanged (fn [new-val]
                                                 (reset! *query new-val)
                                                 nil)
                                    .hintText "Suche"
                                    .backgroundColor (#/(.resolveWith m/Color?) m/MaterialStateProperty (fn [^Set _states] duconstants/search-bar-color)))
                                   (m/Expanded
                                    .child (duapps/apps-list apps query config-file ctx reloader))]))])))