From f605f3ad04399e5955a107c218b71f9258508257 Mon Sep 17 00:00:00 2001 From: Jens Nolte <jens@nightmarestudio.de> Date: Wed, 18 Mar 2020 02:41:28 +0100 Subject: [PATCH] Remove personal blocks from legacy config --- src/QBar/DefaultConfig.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/src/QBar/DefaultConfig.hs b/src/QBar/DefaultConfig.hs index ff9fa26..7891a7c 100644 --- a/src/QBar/DefaultConfig.hs +++ b/src/QBar/DefaultConfig.hs @@ -14,13 +14,12 @@ defaultBarConfig = do --addBlock volumeBlock addBlock $ cpuUsageBlock 1 --addBlock ramUsageBlock + --addBlock freeDiskSpaceBlock --addBlock cpuTemperatureBlock addBlock networkManagerBlock legacyBarConfig :: BarIO () legacyBarConfig = do - let todo = pollScriptBlock $ blockLocation "todo" - let networkEnvironment = pollScriptBlock $ blockLocation "network-environment" let ram = pollScriptBlock (blockLocation "memory") >-> modify (addIcon "ðŸ\xFE0E") >-> autoPadding let temperature = (pollScriptBlock $ blockLocation "temperature") >-> autoPadding let volumeBlock = scriptBlock $ blockLocation "volume-pulseaudio -S -F3" @@ -28,12 +27,10 @@ legacyBarConfig = do addBlock dateBlock addBlock batteryBlock addBlock volumeBlock - addBlock temperature - addBlock ram addBlock $ cpuUsageBlock 1 - addBlock networkEnvironment + addBlock ram + addBlock temperature addBlock networkManagerBlock - addBlock todo where blockLocation :: String -> FilePath blockLocation name = "~/.config/qbar/blocks/" <> name -- GitLab