Skip to content
Snippets Groups Projects
Commit 2eec2e41 authored by Jens Nolte's avatar Jens Nolte
Browse files

Remove legacy configuration preset

Configuration is now possible via cli arguments, so it is no longer
necessary to include my personal configuration.
parent 5c8ef1e1
No related branches found
No related tags found
No related merge requests found
...@@ -77,8 +77,7 @@ blockParser = ...@@ -77,8 +77,7 @@ blockParser =
subparser ( subparser (
commandGroup "Available presets:" <> commandGroup "Available presets:" <>
metavar "CONFIG..." <> metavar "CONFIG..." <>
command "default" (info (pure defaultBarConfig) (progDesc "Load default set of blocks.")) <> command "default" (info (pure defaultBarConfig) (progDesc "Load default set of blocks."))
command "legacy" (info (pure legacyBarConfig) (progDesc "Load the legacy configuration. Requires some custom block scripts."))
) )
<|> <|>
subparser ( subparser (
......
module QBar.DefaultConfig where module QBar.DefaultConfig where
import QBar.Blocks import QBar.Blocks
import QBar.BlockOutput
import QBar.Core import QBar.Core
import Pipes
defaultBarConfig :: BarIO () defaultBarConfig :: BarIO ()
defaultBarConfig = do defaultBarConfig = do
-- TODO: commented-out blocks should be added as soon as they are implemented in qbar -- TODO: commented-out blocks should be added as soon as they are implemented in qbar
...@@ -18,19 +15,3 @@ defaultBarConfig = do ...@@ -18,19 +15,3 @@ defaultBarConfig = do
--addBlock cpuTemperatureBlock --addBlock cpuTemperatureBlock
addBlock networkManagerBlock addBlock networkManagerBlock
legacyBarConfig :: BarIO ()
legacyBarConfig = do
let ram = pollScriptBlock (blockLocation "memory") >-> modify (addIcon "🐏\xFE0E") >-> autoPadding
let temperature = (pollScriptBlock $ blockLocation "temperature") >-> autoPadding
let volumeBlock = scriptBlock $ blockLocation "volume-pulseaudio -S -F3"
addBlock dateBlock
addBlock batteryBlock
addBlock volumeBlock
addBlock $ cpuUsageBlock 1
addBlock ram
addBlock temperature
addBlock networkManagerBlock
where
blockLocation :: String -> FilePath
blockLocation name = "~/.config/qbar/blocks/" <> name
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment