Move runQBar to Server.hs, so it is easier to change the configuration

It is now much easier to write a custom Main.hs that generates a custom
bar configuration or that changes the argument parser.

app/Main.hs

 module Main where
 
 import QBar.Cli
-import QBar.ControlSocket
 import QBar.DefaultConfig
-import QBar.Filter
 import QBar.Server
 
 main :: IO ()
-main = parseOptions >>= runQBar
-
+main = parseOptions >>= (runQBar generateDefaultBarConfig)
\ No newline at end of file
-runQBar :: MainOptions -> IO ()
-runQBar options@MainOptions{barCommand} = runCommand barCommand
-  where
-    runCommand BarServer = runBarConfiguration generateDefaultBarConfig options
-    runCommand NoFilter = sendIpc options $ SetFilter $ StaticFilter None
-    runCommand RainbowFilter = sendIpc options $ SetFilter $ AnimatedFilter Rainbow
\ No newline at end of file

src/QBar/Core.hs

@@ -78,6 +78,9 @@ data BarUpdateChannel = BarUpdateChannel (IO ())
 type BarUpdateEvent = Event.Event
 
 
+type BarConfiguration = BarUpdateChannel -> Producer CachedBlock IO ()
+
+
 defaultColor :: T.Text
 defaultColor = "#969896"
 

src/QBar/Server.hs

@@ -211,4 +211,12 @@ runBarConfiguration generateBarConfig options = do
   renderLoop options handle barUpdateEvent initialOutput newBlockProducers
 
 createCommandChan :: IO CommandChan
-createCommandChan = newTChanIO
+createCommandChan = newTChanIO
\ No newline at end of file
+
+-- |Entry point.
+runQBar :: BarConfiguration -> MainOptions -> IO ()
+runQBar barConfiguration options@MainOptions{barCommand} = runCommand barCommand
+  where
+    runCommand BarServer = runBarConfiguration barConfiguration options
+    runCommand NoFilter = sendIpc options $ SetFilter $ StaticFilter None
+    runCommand RainbowFilter = sendIpc options $ SetFilter $ AnimatedFilter Rainbow
\ No newline at end of file