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

[taffybar] Set a default monitor

Browse Source
This commit is contained in:
Ivan Malison
2017-03-04 12:03:10 -08:00
parent 6d48eb51cf
commit 88beaa9ad5
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,7 +1,7 @@
module Main where module Main where
import Control.Exception.Base
import Data.Char (toLower) import Data.Char (toLower)
import Data.List import Data.List
import Data.Maybe import Data.Maybe
import qualified Graphics.UI.Gtk as Gtk import qualified Graphics.UI.Gtk as Gtk
@@ -59,8 +59,12 @@ myGetIconInfo =
windowTitleClassIconGetter False fallbackIcons windowTitleClassIconGetter False fallbackIcons
main = do main = do
monString <- getEnv "TAFFYBAR_MONITOR" monEither <- (try $ getEnv "TAFFYBAR_MONITOR") :: IO (Either SomeException String)
let monitorNumber = fromMaybe 1 $ readMaybe monString let monNumber =
case monEither of
Left _ -> 0
Right monString -> fromMaybe 0 $ readMaybe monString
let memCfg = let memCfg =
defaultGraphConfig defaultGraphConfig
{graphDataColors = [(1, 0, 0, 1)], graphLabel = Just "mem"} {graphDataColors = [(1, 0, 0, 1)], graphLabel = Just "mem"}
@@ -99,7 +103,7 @@ main = do
defaultTaffybarConfig defaultTaffybarConfig
{ startWidgets = [hud] { startWidgets = [hud]
, endWidgets = [underlineWidget tray "tray", underlineWidget clock "clock", mem, cpu, mpris] , endWidgets = [underlineWidget tray "tray", underlineWidget clock "clock", mem, cpu, mpris]
, monitorNumber = monitorNumber , monitorNumber = monNumber
, monitorFilter = allMonitors , monitorFilter = allMonitors
, barPosition = Top , barPosition = Top
, barHeight = 40 , barHeight = 40