从特定类的窗口中删除边框
问题描述:
我试图编写一个非常类似的布局修改器,它允许我根据窗口的类名称属性来删除边框。该代码主要基于XMonad.Layout.NoBorders,除了在X monad中执行的逻辑以允许基于className进行过滤之外。到目前为止,我已经得到的代码是:从特定类的窗口中删除边框
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE UndecidableInstances #-}
module XMonad.Layout.ExcludeBorders where
import Control.Monad
import Data.Monoid
import XMonad
import XMonad.Layout.LayoutModifier
import XMonad.StackSet hiding (filter)
setBorders :: [Window] -> Dimension -> X()
setBorders ws bw =
withDisplay $ \d -> mapM_ (\w -> io $ setWindowBorderWidth d w bw) ws
data ExcludeBorders p a =
ExcludeBorders p
[a]
deriving (Eq, Read, Show)
excludeBorders :: p -> l a -> ModifiedLayout (ExcludeBorders p) l a
excludeBorders qs = ModifiedLayout (ExcludeBorders qs [])
instance (Show p, Read (ExcludeBorders p Window), Excludes p) =>
LayoutModifier (ExcludeBorders p) Window where
unhook (ExcludeBorders _p s) = asks (borderWidth . config) >>= setBorders s
redoLayout (ExcludeBorders p _s) _ mst wrs = do
ws <- withWindowSet (\wset -> excludes p wset mst wrs)
setBorders ws 0
return (wrs, Just $ ExcludeBorders p ws)
class Excludes p where
excludes ::
p
-> WindowSet
-> Maybe (Stack Window)
-> [(Window, Rectangle)]
-> X [Window]
data ExcludeProp =
ExcludeClassName String
deriving (Eq, Read, Show)
instance Excludes [ExcludeProp] where
excludes qs _wset mst _wrs =
flip filterM (integrate' mst) $ \w ->
fmap (getAny . mconcat) .
sequenceA . map (fmap Any . flip runQuery w . toQuery) $
qs
toQuery :: ExcludeProp -> Query Bool
toQuery (ExcludeClassName s) = className =? s
可在布局挂钩可以使用如下:
excludeBorders [ExcludeClassName "Krunner", ExcludeClassName "plasmashell"]
不幸的是它并没有收到预期的效果,或者任何影响完全不熟悉写作布局修饰符我不确定我在做什么错误,也许我误解了redoLayout
函数应该如何工作。任何指针将不胜感激。
编辑:一些进一步的测试表明,这可能是KDE /等离子Windows和/或问题,我的配置不如说什么我的代码做一个特点。
答
原来的主逻辑很好,除非不考虑浮动窗口。更改Excludes
实例如下:
instance Excludes [ExcludeProp] where
excludes qs wset mst _wrs =
let ws = integrate' mst ++ [w | (w, _) <- Map.toList . floating $ wset]
in flip filterM ws $ \w ->
fmap (getAny . mconcat) .
sequenceA . map (fmap Any . flip runQuery w . toQuery) $
qs
使它适用于我的用例。