mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-09-02 04:03:47 -07:00
4feb4fb058
While calling paintAndWrite for flash window, the background color from config should also be passed on as window background in addition to as text background color. Otherwise the window color gets set to the default black which shows up when text cannot span whole of the window. This issue becomes visible when the font size is considerably large or even in small size with truetype fonts.
105 lines
3.8 KiB
Haskell
105 lines
3.8 KiB
Haskell
{-# LANGUAGE PatternGuards, FlexibleInstances, MultiParamTypeClasses #-}
|
|
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Layout.ShowWName
|
|
-- Copyright : (c) Andrea Rossato 2007
|
|
-- License : BSD-style (see xmonad/LICENSE)
|
|
--
|
|
-- Maintainer : andrea.rossato@unibz.it
|
|
-- Stability : unstable
|
|
-- Portability : unportable
|
|
--
|
|
-- This is a layout modifier that will show the workspace name
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Layout.ShowWName
|
|
( -- * Usage
|
|
-- $usage
|
|
showWName
|
|
, showWName'
|
|
, defaultSWNConfig
|
|
, SWNConfig(..)
|
|
, ShowWName
|
|
) where
|
|
|
|
import XMonad
|
|
import qualified XMonad.StackSet as S
|
|
import XMonad.Layout.LayoutModifier
|
|
import XMonad.Util.Font
|
|
import XMonad.Util.Timer
|
|
import XMonad.Util.XUtils
|
|
|
|
-- $usage
|
|
-- You can use this module with the following in your
|
|
-- @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad.Layout.ShowWName
|
|
-- > myLayout = layoutHook defaultConfig
|
|
-- > main = xmonad defaultConfig { layoutHook = showWName myLayout }
|
|
--
|
|
-- For more detailed instructions on editing the layoutHook see:
|
|
--
|
|
-- "XMonad.Doc.Extending#Editing_the_layout_hook"
|
|
|
|
-- | A layout modifier to show the workspace name when switching
|
|
showWName :: l a -> ModifiedLayout ShowWName l a
|
|
showWName = ModifiedLayout (SWN True defaultSWNConfig Nothing)
|
|
|
|
-- | A layout modifier to show the workspace name when switching. It
|
|
-- is possible to provide a custom configuration.
|
|
showWName' :: SWNConfig -> l a -> ModifiedLayout ShowWName l a
|
|
showWName' c = ModifiedLayout (SWN True c Nothing)
|
|
|
|
type ShowWNState = Maybe (TimerId, Window)
|
|
data ShowWName a = SWN Bool SWNConfig ShowWNState deriving (Read, Show)
|
|
|
|
data SWNConfig =
|
|
SWNC { swn_font :: String -- ^ Font name
|
|
, swn_bgcolor :: String -- ^ Background color
|
|
, swn_color :: String -- ^ String color
|
|
, swn_fade :: Rational -- ^ Time in seconds of the name visibility
|
|
} deriving (Read, Show)
|
|
|
|
defaultSWNConfig :: SWNConfig
|
|
defaultSWNConfig =
|
|
SWNC { swn_font = "-misc-fixed-*-*-*-*-20-*-*-*-*-*-*-*"
|
|
, swn_bgcolor = "black"
|
|
, swn_color = "white"
|
|
, swn_fade = 1
|
|
}
|
|
|
|
instance LayoutModifier ShowWName a where
|
|
redoLayout sn r _ wrs = doShow sn r wrs
|
|
|
|
handleMess (SWN _ c (Just (i,w))) m
|
|
| Just e <- fromMessage m = handleTimer i e (deleteWindow w >> return Nothing)
|
|
| Just Hide <- fromMessage m = do deleteWindow w
|
|
return . Just $ SWN True c Nothing
|
|
|
|
handleMess (SWN _ c s) m
|
|
| Just Hide <- fromMessage m = return . Just $ SWN True c s
|
|
| otherwise = return Nothing
|
|
|
|
doShow :: ShowWName a -> Rectangle -> [(a,Rectangle)] -> X ([(a, Rectangle)], Maybe (ShowWName a))
|
|
doShow (SWN True c (Just (_,w))) r wrs = deleteWindow w >> flashName c r wrs
|
|
doShow (SWN True c Nothing ) r wrs = flashName c r wrs
|
|
doShow (SWN False _ _ ) _ wrs = return (wrs, Nothing)
|
|
|
|
flashName :: SWNConfig -> Rectangle -> [(a, Rectangle)] -> X ([(a, Rectangle)], Maybe (ShowWName a))
|
|
flashName c (Rectangle sx sy wh ht) wrs = do
|
|
d <- asks display
|
|
n <- withWindowSet (return . S.currentTag)
|
|
f <- initXMF (swn_font c)
|
|
width <- fmap (\w -> w + w `div` length n) $ textWidthXMF d f n
|
|
(as,ds) <- textExtentsXMF f n
|
|
let hight = as + ds
|
|
y = fi sy + (fi ht - hight + 2) `div` 2
|
|
x = fi sx + (fi wh - width + 2) `div` 2
|
|
w <- createNewWindow (Rectangle (fi x) (fi y) (fi width) (fi hight)) Nothing "" True
|
|
showWindow w
|
|
paintAndWrite w f (fi width) (fi hight) 0 (swn_bgcolor c) "" (swn_color c) (swn_bgcolor c) [AlignCenter] [n]
|
|
releaseXMF f
|
|
io $ sync d False
|
|
i <- startTimer (swn_fade c)
|
|
return (wrs, Just $ SWN False c $ Just (i,w))
|