colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

taffybar: change default log level from INFO to WARNING

Browse Source 
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
Ivan Malison
2026-02-08 20:16:16 -08:00
parent a8cb334938
commit ddaf752a68
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/config/taffybar/taffybar.hs
View File

@@ -15,7 +15,7 @@ import qualified GI.GdkPixbuf.Objects.Pixbuf as Gdk
import qualified GI.Gtk as Gtk import qualified GI.Gtk as Gtk
import Network.HostName (getHostName) import Network.HostName (getHostName)
import System.Environment.XDG.BaseDir (getUserConfigFile) import System.Environment.XDG.BaseDir (getUserConfigFile)
import System.Log.Logger (Priority (..), getLogger, logM, rootLoggerName, saveGlobalLogger, setLevel, updateGlobalLogger) import System.Log.Logger (Priority (..), getLogger, rootLoggerName, saveGlobalLogger, setLevel, updateGlobalLogger)
import System.Taffybar (startTaffybar) import System.Taffybar (startTaffybar)
import System.Taffybar.Context (Backend (BackendWayland, BackendX11), TaffyIO, detectBackend) import System.Taffybar.Context (Backend (BackendWayland, BackendX11), TaffyIO, detectBackend)
import System.Taffybar.DBus import System.Taffybar.DBus
@@ -371,12 +371,11 @@ mkSimpleTaffyConfig hostName backend cssFiles =
main :: IO () main :: IO ()
main = do main = do
updateGlobalLogger rootLoggerName (setLevel INFO) updateGlobalLogger rootLoggerName (setLevel WARNING)
enableLogger "Graphics.UI.GIGtkStrut" DEBUG enableLogger "Graphics.UI.GIGtkStrut" DEBUG
hostName <- getHostName hostName <- getHostName
backend <- detectBackend backend <- detectBackend
logM "Main" INFO $ "Selected backend: " ++ show backend
cssFiles <- mapM (getUserConfigFile "taffybar") (cssFilesForHost hostName) cssFiles <- mapM (getUserConfigFile "taffybar") (cssFilesForHost hostName)
let simpleTaffyConfig = mkSimpleTaffyConfig hostName backend cssFiles let simpleTaffyConfig = mkSimpleTaffyConfig hostName backend cssFiles