Hlavní navigace

Dlaždice trochu jinak: konfigurace správce oken XMonad

Jaromír Vojtaj 4. 9. 2014

Pracovní prostředí nemusí být navzdory zažitému standardu tvořeno jen plovoucími okny. Docela dobře je možné pracovat i s rozložením dlaždic, které je mnohem starší než okýnka. Dnes se budeme věnovat pokročilejší konfiguraci správce XMonad hlavně s důrazem na instalaci stavového panelu a jeho konfiguraci.

Budeme tedy pokračovat ve změnách v našem minule vytvořeném konfiguračním souboru, který si před dalšími akcemi trochu zjednodušíme:

import XMonad

main = do
xmonad $ defaultConfig
  { borderWidth         = 2
  , terminal            = "sakura"
  , normalBorderColor   = "#cccccc"
  , focusedBorderColor  = "#cd8b00"
  , modMask             = mod4Mask
}

Změn bylo málo, ale přesto je zde uvedu (je dobré po každém kroku provést jedním ze známých příkazů kontrolu správnosti konfiguračního souboru):

  • byl vynechán import pro uživatelské klávesové zkratky
  • začátek konfigurace byl rozložen do dvou příkazů
  • terminál byl nastaven na aplikaci Sakura
  • modifikátor byl nastaven na klávesu Win
  • byly vynechány uživatelské klávesové zkratky
  • bylo vynecháno spuštění terminálu při startu WM

Tímto máme konfigurační soubor připravený pro další akce a úpravy. První z nich bude doplnění importů o tyto řádky:

import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import System.IO

Pak přidáme dva příkazy, které mění výchozí nastavení tak, aby bylo možné využívat stavový panel a dock:

manageHook = manageDocks <+> manageHook defaultConfig
, layoutHook = avoidStruts  $  layoutHook defaultConfig

Konfigurační soubor připravený pro zobrazení panelu XMobar pak vypadá následovně:

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import System.IO

main = do
xmonad $ defaultConfig
{ manageHook = manageDocks <+> manageHook defaultConfig
, layoutHook = avoidStruts  $  layoutHook defaultConfig
, borderWidth         = 2
, terminal            = "sakura"
, normalBorderColor   = "#cccccc"
, focusedBorderColor  = "#cd8b00"
, modMask             = mod4Mask
}

Tím jsou přípravy u konce a můžeme se pustit do instalace a nastavení panelu XMobar. Jak již bylo uvedeno, jedná se o minimalistický, převážně textový stavový panel. Původně byl vyvinut pro využití v XMonad, ale je celkem dobře využitelný i v jiných WM. Jeho vzorem byl I3 Status Bar. Dnes je nedílnou součástí platformy Haskell. Více je možné najít na webu projects.haskell.org/xmobar/.

Pro instalaci se nabízí více možností (viz popis na webu), ale my zvolíme tu nejjednodušší a budeme instalovat balíček přímo z Debianu, kde je aktuální verze 0.21:

# ~$ aptitude search xmobar
p   xmobar - lightweight status bar for X11 window managers

Instalují se dva soubory a celková velikost je po instalaci cca 10 MB. Aby bylo možné XMobar používat, je nutné jej konfigurovat. Ukázková základní konfigurace je po instalaci umístěna v /usr/share/doc/xmobar/exam­ples/xmobar.config. Pro umístění uživatelského konfiguračního souboru jsou použitelné dvě varianty: $HOME/.config/xmobar/xmobarrc nebo $HOME/.xmobarrc.

Použijeme tedy dva příkazy pro vytvoření základní konfigurace:

# ~$ mkdir .config/xmobar
cp /usr/share/doc/xmobar/examples/xmobar.config $HOME/.config/xmobar/xmobarrc

S konfigurací zatím nebudeme nic dělat a zkusíme XMobar spustit. Zavřeme všechna okna a pomocí dmenu spustíme příkaz xmobar. Výsledek je vidět na obrázku:

Nyní se podíváme blíže na konfiguraci XMobar. Jak je ze souboru patrné, není zde nijak moc údajů a celý soubor má pouze 24 řádků. Provedeme tedy pár změn:

  • ř. 1: změna velikosti fontu na 12
  • ř. 6: přesun panelu ke spodnímu okraji
  • ř.11: vynecháme zobrazení počasí
  • ř.12: vynecháme LAN kartu eth1
  • ř.20: vynecháme položky eth1 a EGPF

Změny uložíme, znovu spustíme XMobar a výsledek vidíme na obrázku:

Dalo by se samozřejmě dál pokračovat ve změnách, ale není to nutné a pro prvotní přiblížení nám konfigurace bude stačit. Pokud by se někdo chtěl na konfiguraci dále realizovat, dostatečné množství informací a příkladů najde na výše uvedené stránce 1projektu. My se nyní ale pustíme do následujícího kroku, kdy se XMobar spustí při startu WM. Za tímto účelem se opět musíme vrátit ke konfiguraci XMonad a přidat několik příkazů. Nebudu je zde zbytečně popisovat a uvedu rovnou celý obsah konfiguračního souboru:

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import System.IO

main = do
xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig
{ manageHook = manageDocks <+> manageHook defaultConfig
, layoutHook = avoidStruts  $  layoutHook defaultConfig
, logHook = dynamicLogWithPP xmobarPP
      { ppOutput = hPutStrLn xmproc
          , ppTitle = xmobarColor "green" "" . shorten 50
          }
, borderWidth         = 2
, terminal            = "sakura"
, normalBorderColor   = "#cccccc"
, focusedBorderColor  = "#cd8b00"
, modMask             = mod4Mask
}

Klasicky vyzkoušíme správnost konfigurace, zavřeme WM a znovu ho spustíme a výsledek vidíme na obrázku:

Z předchozích obrázků jsou na první pohled patrné tři věci:

  • otevření XMobar při startu se podařilo v nastavené konfiguraci
  • velikost fontu se nezměnila, i když jsme v konfiguraci provedli změnu.
  • neobjevilo se zobrazení virtuálních ploch

Co se týká velikosti fontu, bude tedy asi jistější zvolit některý z XFT fontů, které jsou v Debianu obvykle nainstalované a na první řádek vložit příkaz:

font = "xft:Bitstream Vera Sans Mono:size=9:bold:antialias=true"

Pak už obrázek vypadá přeci jenom trochu jinak:

Zobrazení virtuálních ploch se také zdá jednoduché. Je možné upravit konfiguraci XMonad (ve výchozím stavu je definováno devět ploch) a přidat jeden řádek, např. takto:

workspaces         = ["1", "2", "3", "4"]

Po načtení nové konfigurace se ale nic nestane a plochy v panelu viditelné nejsou. Pro jejich zobrazení je třeba upravit konfiguraci jak XMonad, tak XMobar. Při úpravách jsem také zjistil, že nefunguje přepínání ploch kombinací kláves Win+1..9. Po několika pokusech si myslím, že je to nějaký problém s numerickými klávesami ve virtuálním stroji. Proto se pokusíme vyřešit oba tyto problémy najednou a ještě přinést další funkčnost do WM. V konfiguraci XMonad provedeme tyto změny:

  • do importů přidáme tři položky – jednu pro uživatelské klávesové zkratky a dvě pro manipulace s virtuálními plochami a obrazovkami
  • přidáme funkci pro správné zobrazení aplikace Gimp
  • přidáme tuto funkci do konfigurace
  • přidáme nastavení vzhledu panelu, resp. ploch
  • přidáme uživatelské zkratky pro přesun mezi plochami a přenos vybraného okna aplikace na další/předchozí plochu
  • přidáme uživatelské zkratky pro přesun na vybranou plochu a přenos vybraného okna aplikace na vybranou plochu

Končená konfigurace XMonad vypadá následovně:

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Actions.CycleWS
import qualified XMonad.StackSet as W
import System.IO

myManageHook = composeAll
    [ className =? "Gimp"       -->doFloat ]

main = do
xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig
  { manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
  , layoutHook = avoidStruts $ layoutHook defaultConfig
  , logHook = dynamicLogWithPP xmobarPP
        { ppOutput = hPutStrLn xmproc
        , ppCurrent = xmobarColor "yellow" "" . wrap "[" "]"
        , ppHiddenNoWindows = xmobarColor "grey" ""
        , ppTitle = xmobarColor "green" "" . shorten 40
        , ppVisible = wrap "(" ")"
        , ppUrgent = xmobarColor "red" "yellow"
        }
  , borderWidth         = 2
  , terminal            = "sakura"
  , normalBorderColor   = "#cccccc"
  , focusedBorderColor  = "#cd8b00"
  , modMask             = mod4Mask
  , workspaces          = ["1","2","3","4"]
  } `additionalKeys`
  [ ((mod4Mask, xK_Right), nextWS)
  , ((mod4Mask, xK_Left), prevWS)
  , ((mod4Mask .|. shiftMask, xK_Right), shiftToNext >> nextWS)
  , ((mod4Mask .|. shiftMask, xK_Left), shiftToPrev >> prevWS)
  , ((mod4Mask, xK_F1), windows $ W.greedyView "1")
  , ((mod4Mask, xK_F2), windows $ W.greedyView "2")
  , ((mod4Mask, xK_F3), windows $ W.greedyView "3")
  , ((mod4Mask, xK_F4), windows $ W.greedyView "4")
  , ((mod4Mask .|. shiftMask, xK_F1), windows $ W.shift "1")
  , ((mod4Mask .|. shiftMask, xK_F2), windows $ W.shift "2")
  , ((mod4Mask .|. shiftMask, xK_F3), windows $ W.shift "3")
  , ((mod4Mask .|. shiftMask, xK_F4), windows $ W.shift "4")
  ]

To ale ještě není všechno, musíme totiž také trochu pozměnit i konfiguraci XMobar a přidat do ní dvě položky: start a template pluginu pro zobrazení textu do standardního vstupu. Konfigurační soubor pak vypadá následovně:

Config { font = "xft:Bitstream Vera Sans Mono:size=10:bold:antialias=true"
       , borderColor = "black"
       , border = TopB
       , bgColor = "black"
       , fgColor = "grey"
       , position = Bottom
       , lowerOnStart = True
       , pickBroadest = False
       , persistent = False
       , hideOnStart = False
       , commands = [ Run Network "eth0" ["-L","0","-H","32","--normal","green","--high","red"] 10
                    , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
                    , Run Memory ["-t","Mem: %"] 10
                    , Run Swap [] 10
                    , Run Com "uname" ["-s","-r"] "" 36000
                    , Run Date "%a %b %_d %Y %H:%M" "date" 10
                    , Run UnsafeStdinReader
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%UnsafeStdinReader% }{%cpu% | %memory% * %swap% | %eth0%  %date%"
       }

Tímto krokem považuji dnešní díl za dostatečně rozsáhlý a proto budeme v konfiguraci XMonad WM pokračovat příště. Zaměříme se hlavně na možnosti instalace a nastavení stavového panelu Dzen2 a systémového panelu Trayer, popř. Stalonetray.

Našli jste v článku chybu?

5. 9. 2014 19:37

čavo (neregistrovaný)

Ohľadom GIMP som si dakedy dávno nastavil podľa nejakého návodu rozloženie toolboxy na kraje a vstrede si môžem prepípnať rozloženie okien na kreslenie.

gimpLayout = named "GIMP"
$ reflectHoriz
$ withIM (0.11) (Or (Role "gimp-dock") (Role "toolbox_window") )
$ reflectHoriz
$ withIM (0.13) (Role "gimp-toolbox") (standardLayouts)

Dal som si to na piatu obrazovku a gimp automaticky tlačím na ňu.





Podnikatel.cz: Přehledná titulka, průvodci, responzivita

Přehledná titulka, průvodci, responzivita

Vitalia.cz: Jak koupit Mikuláše a nenaletět

Jak koupit Mikuláše a nenaletět

Podnikatel.cz: Platební brány a EET? Stále s otazníkem

Platební brány a EET? Stále s otazníkem

Vitalia.cz: I církev dnes vyrábí potraviny

I církev dnes vyrábí potraviny

Lupa.cz: E-shopy: jen sleva už nestačí

E-shopy: jen sleva už nestačí

Lupa.cz: Google měl výpadek, nejel Gmail ani YouTube

Google měl výpadek, nejel Gmail ani YouTube

Vitalia.cz: Tesco: Chudá rodina si koupí levné polské kuře

Tesco: Chudá rodina si koupí levné polské kuře

Lupa.cz: UX přestává pro firmy být magie

UX přestává pro firmy být magie

Vitalia.cz: 9 největších mýtů o mase

9 největších mýtů o mase

Lupa.cz: Propustili je z Avastu, už po nich sahá ESET

Propustili je z Avastu, už po nich sahá ESET

Vitalia.cz: To není kašel! Správná diagnóza zachrání život

To není kašel! Správná diagnóza zachrání život

Vitalia.cz: Baletky propagují zdravotní superpostel

Baletky propagují zdravotní superpostel

Podnikatel.cz: 1. den EET? Problémy s pokladnami

1. den EET? Problémy s pokladnami

Vitalia.cz: Vláknina: Rozpustná, nebo nerozpustná?

Vláknina: Rozpustná, nebo nerozpustná?

Měšec.cz: Kdy vám stát dá na stěhování 50 000 Kč?

Kdy vám stát dá na stěhování 50 000 Kč?

Podnikatel.cz: Na poslední chvíli šokuje vyjímkami v EET

Na poslední chvíli šokuje vyjímkami v EET

Vitalia.cz: Paštiky plné masa ho zatím neuživí

Paštiky plné masa ho zatím neuživí

Lupa.cz: Proč firmy málo chrání data? Chovají se logicky

Proč firmy málo chrání data? Chovají se logicky

Podnikatel.cz: Dárky v podnikání. Jak je uplatnit v daních?

Dárky v podnikání. Jak je uplatnit v daních?

Měšec.cz: Zdravotní a sociální pojištění 2017: Připlatíte

Zdravotní a sociální pojištění 2017: Připlatíte