diff --git a/src/QBar/DefaultConfig.hs b/src/QBar/DefaultConfig.hs index 1b6603ee30c3f8ae2782231db22f882a9bbf8a63..1d43b5de7015b9bec0c3602ea5c21249df6a37de 100644 --- a/src/QBar/DefaultConfig.hs +++ b/src/QBar/DefaultConfig.hs @@ -14,14 +14,14 @@ generateDefaultBarConfig = do (systemInfoInterval, systemInfoIntervalTask) <- sharedInterval 10 lift $ link systemInfoIntervalTask - let todo = (systemInfoInterval $ blockScript $ blockLocation "todo") - let wifi = (systemInfoInterval $ blockScript $ blockLocation "wifi2 wlan") >-> modify (addIcon "📡") - let networkEnvironment = (systemInfoInterval $ blockScript $ blockLocation "network-environment") - let cpu = (systemInfoInterval $ blockScript $ blockLocation "cpu_usage") >-> modify (setBlockName "cpu" . addIcon "💻") >-> autoPadding - let ram = (systemInfoInterval $ blockScript $ blockLocation "memory") >-> modify (addIcon "ðŸ") >-> autoPadding - let temperature = (systemInfoInterval $ blockScript $ blockLocation "temperature") >-> autoPadding + let todo = systemInfoInterval (blockScript $ blockLocation "todo") + let wifi = systemInfoInterval (blockScript $ blockLocation "wifi2 wlan") >-> modify (addIcon "📡") + let networkEnvironment = systemInfoInterval (blockScript $ blockLocation "network-environment") + let cpu = systemInfoInterval (blockScript $ blockLocation "cpu_usage") >-> modify (setBlockName "cpu" . addIcon "💻") >-> autoPadding + let ram = systemInfoInterval (blockScript $ blockLocation "memory") >-> modify (addIcon "ðŸ") >-> autoPadding + let temperature = systemInfoInterval (blockScript $ blockLocation "temperature") >-> autoPadding let volumeBlock = startPersistentBlockScript $ blockLocation "volume-pulseaudio -S -F3" - let battery = (systemInfoInterval $ blockScript $ blockLocation "battery2") + let battery = systemInfoInterval $ blockScript $ blockLocation "battery2" addBlock dateBlock addBlock battery