Commit 698897f5e15f2a60953b8312dceebdcc800eb261
Parent: 1a77d57f9a71273222e4e2c9712835551b2d4bdf
Author: mcol <mcol@posteo.net>
Date: 2021-11-02 12:54:01 +0000
Committer: mcol <mcol@posteo.net>
Committed: 2021-11-02 12:54:01 +0000

Use dark theme by default

src/Window.hs Modified

@@ -44,6 +44,8 @@
 addCSS :: Gtk.ApplicationWindow -> IO ()
 addCSS win = do
     screen <- Gtk.windowGetScreen win
+    settings <- Gtk.settingsGetForScreen screen
+    Gtk.setSettingsGtkApplicationPreferDarkTheme settings True
     cssProvider <- Gtk.cssProviderNew
     Gtk.cssProviderLoadFromData cssProvider "* { background-color: transparent; }"
     Gtk.styleContextAddProviderForScreen screen cssProvider 800