From 7d6e83479719e04b77a8230a7ecf03e971cd5fc6 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 21 Nov 2022 20:20:46 -0700 Subject: Update to xmobar --- src/Rahm/Desktop/XMobarLog.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/Rahm/Desktop/XMobarLog.hs') diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs index d1d131c..286c74b 100644 --- a/src/Rahm/Desktop/XMobarLog.hs +++ b/src/Rahm/Desktop/XMobarLog.hs @@ -1,7 +1,7 @@ module Rahm.Desktop.XMobarLog (XMobarLog, spawnXMobar, xMobarLogHook) where import Control.Arrow (second) -import Control.Monad (forM_) +import Control.Monad (forM_, unless) import Control.Monad.Writer (execWriter, tell) import Data.Char (isAsciiLower, isAsciiUpper, isDigit) import Data.List (sortBy) @@ -19,7 +19,7 @@ import qualified XMonad as X import XMonad.Util.NamedWindows (getName) import XMonad.Util.Run (spawnPipe) -data XMobarLog = XMobarLog Handle +newtype XMobarLog = XMobarLog Handle -- The log hook for XMobar. This is a custom log hook that does not use any -- of the Xmonad dynamic log libraries. @@ -64,9 +64,8 @@ xMobarLogHook (XMobarLog xmproc) = do tell " " _ -> return () - if not (null theaters) - then tell "| " - else return () + unless (null theaters) $ + tell "| " forM_ wss $ \(t, ws) -> do case t of -- cgit