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

[taffybar] Add stablename stuff to toggleable server

Browse Source
This commit is contained in:
Ivan Malison 2017-03-26 15:58:33 -07:00
parent ecf5b1e588
commit f8461d7a87
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
dotfiles/config/taffybar/lib/ToggleMonitor.hs
View File

@ -13,16 +13,21 @@ import qualified Data.Map as M
import Data.Maybe
import qualified Graphics.UI.Gtk as Gtk
import Graphics.UI.Gtk.Gdk.Screen
import System.Mem.StableName
import System.Taffybar
import Text.Read hiding (get, lift)
import Web.Scotty
import XMonad.Core ( whenJust )
toggleableMonitors :: MV.MVar (M.Map Int Bool) -> Int -> TaffybarConfig -> IO (Maybe TaffybarConfig)
toggleableMonitors enabledVar monNumber cfg = do
toggleableMonitors :: MV.MVar (M.Map Int Bool)
-> TaffybarConfigEQ -> IO (Int -> (Maybe TaffybarConfigEQ))
toggleableMonitors enabledVar cfg = do
numToEnabled <- MV.readMVar enabledVar
let enabled = fromMaybe True $ M.lookup monNumber numToEnabled
return $ if enabled then Just cfg else Nothing
let fn monNumber =
if fromMaybe True $ M.lookup monNumber numToEnabled
then Just cfg
else Nothing
return fn
getActiveScreenNumber :: MaybeT IO Int
getActiveScreenNumber = do