wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[taffybar] Finish Toggleable support

Browse Source
This commit is contained in:
Ivan Malison 2017-03-14 13:00:47 -07:00
parent ded6287003
commit 05311714c9
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
2 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,10 +8,16 @@ import Control.Concurrent
import qualified Control.Concurrent.MVar as MV
import Control.Monad
import Control.Monad.Trans
import Control.Monad.Trans.Maybe
import qualified Data.Map as M
import Data.Maybe
import Data.String
import qualified Data.Text.Internal.Lazy as T
import qualified Graphics.UI.Gtk as Gtk
import Graphics.UI.Gtk.Gdk.DrawWindow
import Graphics.UI.Gtk.Gdk.Screen
import System.Taffybar
import Text.Read hiding (get)
import Text.Read hiding (get, lift)
import Web.Scotty
import XMonad.Core ( whenJust )
@ -19,29 +25,41 @@ toggleableMonitors :: MV.MVar (M.Map Int Bool) -> Int -> TaffybarConfig -> IO (M
toggleableMonitors enabledVar monNumber cfg = do
numToEnabled <- MV.readMVar enabledVar
let enabled = fromMaybe True $ M.lookup monNumber numToEnabled
return $ if enabled then Nothing else Just cfg
return $ if enabled then Just cfg else Nothing
getActiveScreenNumber :: MaybeT IO Int
getActiveScreenNumber = do
screen <- MaybeT screenGetDefault
window <- MaybeT $ screenGetActiveWindow screen
lift $ screenGetMonitorAtWindow screen window
handleToggleRequests :: MV.MVar (M.Map Int Bool) -> IO () -> IO ()
handleToggleRequests enabledVar refreshTaffyWindows = do
let toggleTaffyOnMon fn mon = do
MV.modifyMVar_ enabledVar $ \numToEnabled -> do
let current = fromMaybe False $ M.lookup mon numToEnabled
let current = fromMaybe True $ M.lookup mon numToEnabled
return $ M.insert mon (fn current) numToEnabled
refreshTaffyWindows
toggleTaffy = do
num <- liftIO $ runMaybeT getActiveScreenNumber
let monitorNumber = fromMaybe 0 num
liftIO $ toggleTaffyOnMon not $ monitorNumber
runScotty =
scotty 3000 $ do
get "/toggle/:monNum" $ do
num <- param "monNum"
liftIO $
whenJust (readMaybe num :: Maybe Int) $ toggleTaffyOnMon not
get "on/:monNum" $ do
get "/on/:monNum" $ do
num <- param "monNum"
liftIO $
whenJust (readMaybe num :: Maybe Int) $
toggleTaffyOnMon $ const True
get "off/:monNum" $ do
get "/off/:monNum" $ do
num <- param "monNum"
liftIO $
whenJust (readMaybe num :: Maybe Int) $
toggleTaffyOnMon $ const False
get "/toggleCurrent" $ do
liftIO $ Gtk.postGUIAsync toggleTaffy
void $ forkIO runScotty

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

@ -129,7 +129,7 @@ main = do
, barPosition = Top
, barHeight = 50
, widgetSpacing = 5
, startRefresher = Nothing -- Just $ handleToggleRequests enabledVar
, startRefresher = Just $ handleToggleRequests enabledVar
, getMonitorConfig = Just $ toggleableMonitors enabledVar
}