加入收藏 | 设为首页 | 会员中心 | 我要投稿 济源站长网 (https://www.0391zz.cn/)- 数据工具、数据仓库、行业智能、CDN、运营!
当前位置: 首页 > 服务器 > 搭建环境 > Windows > 正文

haskell – 仅从全屏浮动窗口中移除边框(XMonad配置)

发布时间:2021-01-01 00:34:58 所属栏目:Windows 来源:网络整理
导读:我想要 从覆盖全屏的浮动窗口(如mplayer)中删除边框(仅) 在工作区中只有一个窗口时,使用不同的边框颜色(normalBorderColor). 目前,我正在使用XMonad.Layout.NoBorders中的smartBorders从mplayer中删除边框,并在该窗口是工作区中唯一的窗口时删除窗口的边框.

我想要

>从覆盖全屏的浮动窗口(如mplayer)中删除边框(仅)
>在工作区中只有一个窗口时,使用不同的边框颜色(normalBorderColor).

目前,我正在使用XMonad.Layout.NoBorders中的smartBorders从mplayer中删除边框,并在该窗口是工作区中唯一的窗口时删除窗口的边框.然而,当我在两个工作空间之间切换时,它们都有一个非浮动窗口(不管模式(高/镜像/满)),然后我看到窗口(在工作区我正在改变)“跳”一点,因为它的边框被绘制,然后在此之后删除一个短暂的时刻(如果将borderWidth设置为大数字,效果将更加明显).

我的?/ .xmonad / xmonad.hs的相关部分如下.

import XMonad.Hooks.ManageDocks
import XMonad.Layout.NoBorders
myLayout = tiled ||| Mirror tiled ||| Full
  where
    tiled   = Tall 1 (3/100) (3/5)                                 
main = xmonad $defaultConfig 
                 { layoutHook = avoidStruts $smartBorders $myLayout,borderWidth = 4,normalBorderColor  = "#000000" -- black,focusedBorderColor = "#ff3f3f" -- reddish
                 }

你是否知道我如何达到这个效果? (是第2部分,甚至可能吗?)建议和指向扩展和/或现有的配置,实现类似的效果非常感谢.

我解决了pt. 1使用来自XMonad.Layout.NoBorders的名为OnlyFloat的Ambiguity构造函数.
import XMonad.Hooks.ManageDocks
import XMonad.Layout.NoBorders
myLayout = tiled ||| Mirror tiled ||| Full
  where
    tiled   = Tall 1 (3/100) (3/5)                                 
main = xmonad $defaultConfig 
                 { layoutHook = lessBorders OnlyFloat $avoidStruts $myLayout,focusedBorderColor = "#ff3f3f" -- reddish
                 }

我没有处理此外,当我切换到工作空间时,聚焦窗口的边框颜色“闪烁”,因为最初窗口没有被聚焦(因此它的边框根据normalBorderColor被着色),之后窗口被聚??焦(因此它的边框得到颜色focusBorderColor).

(编辑:济源站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读