Início / unix / Perguntas / 413095
Accepted
Avaq
Asked: 2017-12-27 03:04:59 +0800 CST

Renderizando a borda da janela em um lado específico no XMonad

  • 772

O XMobar permite configurar a posição da borda, bem como a largura:

{ border = BottomB
, borderColor = "#4F5B66"
, borderWidth = 1 }

Espero fazer o mesmo no XMonad, mas parece que as bordas só são configuráveis ​​por meio das seguintes propriedades:

{ borderWidth = 1
, normalBorderColor = "#4F5B66"
, focusedBorderColor = "#96B5B4" }

Mesmo com XMonad.Layout.NoBorders, parece que essa não é uma opção (ou não é direta).

No final, gostaria de ter uma borda inferior de um pixel que sempre é desenhada e muda de cor dependendo do foco. Isso é atualmente possível e como eu faria para configurá-lo assim?

xmonad haskell

1 respostas

  1. Best Answer

    Esta questão foi suficientemente respondida no problema do GitHub que abri depois que esta questão recebeu muito pouca atenção.

    O problema com isso é que o xmonad não desenha suas próprias bordas; apenas diz a X a espessura que devem ter e de que cor.

    [É] possível dizer a X para usar certos padrões [com] o border_pixmapelemento na XSetWindowAttributesestrutura.

    Se você assumir que todas as advertências [descritas] em [ https://tronche.com/gui/x/xlib/window/attributes/border.html] não estão realmente lá ou não significam nada, então você pode concluir que [...] pode-se definir uma borda somente inferior especificando um pixmap muito grande que envolve toda a janela.

    [Do jeito que está,] os criadores de drivers gráficos quebram constantemente as fronteiras do lado do servidor, porque apenas o xmonad e o dwm os usam atualmente. E nenhum deles usa borderPixmap, então provavelmente há muitos bugs escondidos lá.

    A conclusão aqui é que, embora seja possível usar atributos de janela para isso em teoria, não é uma boa ideia. Existe uma abordagem alternativa que pode ser melhor:

    Para obter esse resultado no xmonad, você precisa ter bordas com largura 0 e, em seguida, implementar decorações de janela colocando uma barra colorida onde deseja a 'borda'.

    Na verdade, é muito fácil escrever uma instância da classe DecorationStyle que colocará uma decoração semelhante a uma borda em um lado da janela. Se esse lado for o superior ou o inferior, a barra será larga o suficiente e o texto do título da janela será renderizado nela, mas isso pode ser feito sem problema definindo o texto com a mesma cor da barra ou fornecendo um espaço vazio Fonte.

    {-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-}

import qualified XMonad.StackSet as W
import XMonad.Layout.Decoration
import XMonad.Util.Types

data SideDecoration a = SideDecoration Direction2D
  deriving (Show, Read)

instance Eq a => DecorationStyle SideDecoration a where

  shrink b (Rectangle _ _ dw dh) (Rectangle x y w h)
    | SideDecoration U <- b = Rectangle x (y + fi dh) w (h - dh)
    | SideDecoration R <- b = Rectangle x y (w - dw) h
    | SideDecoration D <- b = Rectangle x y w (h - dh)
    | SideDecoration L <- b = Rectangle (x + fi dw) y (w - dw) h

  pureDecoration b dw dh _ st _ (win, Rectangle x y w h)
    | win `elem` W.integrate st && dw < w && dh < h = Just $ case b of
      SideDecoration U -> Rectangle x y w dh
      SideDecoration R -> Rectangle (x + fi (w - dw)) y dw h
      SideDecoration D -> Rectangle x (y + fi (h - dh)) w dh
      SideDecoration L -> Rectangle x y dw h
    | otherwise = Nothing
    • 1

relate perguntas