Add config file on ~/.config/rsi-break/settings.ini

Also update logic.

default.nix

@@ -1,5 +1,5 @@
-{ mkDerivation, async, base, config-ini, lens, lib, monomer
-, process, text, text-show, time, xdg-basedir
+{ mkDerivation, async, base, config-ini, directory, filepath, lens
+, lib, monomer, process, text, text-show, time
 }:
 mkDerivation {
   pname = "rsi-break";
@@ -9,8 +9,8 @@ mkDerivation {
   isExecutable = true;
   enableSeparateDataOutput = true;
   libraryHaskellDepends = [
-    async base config-ini lens monomer process text text-show time
-    xdg-basedir
+    async base config-ini directory filepath lens monomer process text
+    text-show time
   ];
   executableHaskellDepends = [ base monomer process ];
   testHaskellDepends = [ base ];

rsi-break.cabal

@@ -35,9 +35,12 @@ library
                       RsiBreak.Widget.Timer
                       RsiBreak.Widget.Clockdown
                       RsiBreak.Model.Minutes
+                      RsiBreak.Model.Settings
+                      RsiBreak.Actions
     other-modules:    Paths_rsi_break
     default-extensions: StrictData
                         OverloadedStrings
+                        ImportQualifiedPost
     -- other-extensions:
     build-depends:    base >= 4.16.4.0 && < 4.18,
                       monomer,
@@ -48,7 +51,8 @@ library
                       time,
                       process,
                       config-ini,
-                      xdg-basedir
+                      directory,
+                      filepath
     hs-source-dirs:   src
     default-language: Haskell2010
 

src/RsiBreak/Actions.hs

@@ -0,0 +1,41 @@
+module RsiBreak.Actions (getOrCreateConfigFile, storeSettingsOnConfigFile) where
+
+import Control.Monad (unless)
+import Data.Ini.Config.Bidir
+import Data.Text.IO qualified as TIO (readFile, writeFile)
+import RsiBreak.Model.Settings
+import System.Directory
+import System.FilePath ((</>))
+
+getOrCreateConfigFile :: IO TimerSetting
+getOrCreateConfigFile = do
+    dir <- getXdgDirectory XdgConfig "rsi-break"
+    let file = dir </> "settings.ini"
+    settingsFileExist <- doesFileExist file
+    unless settingsFileExist $
+        createNewInitialSettings dir file
+    settingFileContent <- TIO.readFile file
+    let eIniSettings = parseIni settingFileContent defaultIni
+    case eIniSettings of
+        Left _err -> do
+            removeDirectoryRecursive dir
+            createNewInitialSettings dir file
+            pure defSetting
+        Right ini' -> pure (getIniValue ini')
+  where
+    createNewInitialSettings dir file = do
+        createDirectory dir
+        TIO.writeFile file (serializeIni defaultIni)
+
+defaultIni :: Ini TimerSetting
+defaultIni =
+    setIniUpdatePolicy
+        (defaultUpdatePolicy{updateGeneratedCommentPolicy = CommentPolicyAddFieldComment})
+        (ini defSetting timerSettingSpec)
+
+storeSettingsOnConfigFile :: TimerSetting -> IO ()
+storeSettingsOnConfigFile updatedSettings = do
+    let updatedIni = updateIni updatedSettings defaultIni
+    dir <- getXdgDirectory XdgConfig "rsi-break"
+    let file = dir </> "settings.ini"
+    TIO.writeFile file (serializeIni updatedIni)

src/RsiBreak/Model/Settings.hs

@@ -0,0 +1,28 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module RsiBreak.Model.Settings where
+
+import Control.Lens (makeLenses)
+import Data.Ini.Config.Bidir
+import RsiBreak.Model.Minutes (Minutes)
+
+data TimerSetting = TimerSetting
+    { _workInterval :: Minutes
+    , _restInterval :: Minutes
+    }
+    deriving (Eq, Show)
+
+$(makeLenses 'TimerSetting)
+
+defSetting :: TimerSetting
+defSetting = TimerSetting 20 10
+
+timerSettingSpec :: IniSpec TimerSetting ()
+timerSettingSpec =
+    section "TimerSetting" $ do
+        workInterval
+            .= field "workInterval" number
+            & comment ["The desired work interval in minutes"]
+        restInterval
+            .= field "restInterval" number
+            & comment ["The desired rest interval in minutes"]

src/RsiBreak/RealMain.hs

@@ -5,12 +5,14 @@ module RsiBreak.RealMain (realMain) where
 import Data.String (IsString (..))
 import Monomer
 import Paths_rsi_break
-import qualified RsiBreak.Widget.Clockdown as Clockdown
-import qualified RsiBreak.Widget.Settings as Settings
-import qualified RsiBreak.Widget.Timer as Timer
+import RsiBreak.Actions (getOrCreateConfigFile)
+import RsiBreak.Widget.Clockdown qualified as Clockdown
+import RsiBreak.Widget.Timer qualified as Timer
 
 realMain :: IO ()
 realMain = do
+    timerSettings <- getOrCreateConfigFile
+    let model = Clockdown.ClockModel "0:00" Timer.TimerNoWait timerSettings
     windowIconPath <- fromString <$> getDataFileName "assets/images/icon.png"
     robotoRegularFont <- fromString <$> getDataFileName "assets/fonts/Roboto-Regular.ttf"
     let cfg = config windowIconPath robotoRegularFont
@@ -22,4 +24,3 @@ realMain = do
         , appTheme darkTheme
         , appFontDef "Regular" roboto
         ]
-    model = Clockdown.ClockModel "0:00" Timer.TimerNoWait (Settings.TimerSetting 20 10)

src/RsiBreak/Widget/Settings.hs

@@ -1,32 +1,28 @@
-{-# LANGUAGE TemplateHaskell #-}
-
 module RsiBreak.Widget.Settings (
     TimerSetting (..),
     handleEvent,
     buildUI,
 ) where
 
-import Control.Lens (makeLenses, set)
+import Control.Applicative (Alternative (empty))
+import Control.Lens (set)
 import Monomer
+import RsiBreak.Actions (storeSettingsOnConfigFile)
 import RsiBreak.Model.Minutes (Minutes)
-
-data TimerSetting = TimerSetting
-    { _workInterval :: Minutes
-    , _restInterval :: Minutes
-    }
-    deriving (Eq, Show)
-
-$(makeLenses 'TimerSetting)
+import RsiBreak.Model.Settings
 
 data TimerSettingEvent = TSENewWorkTime Minutes | TSENewRestTime Minutes
     deriving (Eq, Show)
 
 handleEvent :: ep -> EventHandler TimerSetting TimerSettingEvent sp ep
 handleEvent onChangeEvent _wenv _node model evt =
-    let changeModel = case evt of
-            TSENewWorkTime newm -> Model (set workInterval newm model)
-            TSENewRestTime newm -> Model (set restInterval newm model)
-     in [changeModel, Report onChangeEvent]
+    let newModel = case evt of
+            TSENewWorkTime newm -> set workInterval newm model
+            TSENewRestTime newm -> set restInterval newm model
+     in [ Model newModel
+        , Report onChangeEvent
+        , Task (storeSettingsOnConfigFile newModel *> empty)
+        ]
 
 buildUI :: UIBuilder TimerSetting TimerSettingEvent
 buildUI _wenv _model =

src/RsiBreak/Widget/Timer.hs

@@ -79,7 +79,7 @@ waitTime totalTime handle = getCurrentTime >>= go
         let timeDiff = diffUTCTime currentTime startTime
         if timeDiff <= totalTime
             then do
-                handle (TimerReport (totalTime - timeDiff))
+                handle $! (TimerReport (totalTime - timeDiff))
                 threadDelay 500_000
                 go startTime
             else handle (TimerReport 0)