xmonad, xmobar, friends

cyber_lyric

Зависимости

cd ~/dev
wget http://hackage.haskell.org/packages/archive/Cabal/1.2.3.0/Cabal-1.2.3.0.tar.gz
tar xfv Cabal-1.2.3.0.tar.gz
rm -f Cabal-1.2.3.0.tar.gz
cd Cabal-1.2.3.0
runhaskell Setup.lhs configure --user --prefix=$HOME
runhaskell Setup.lhs build
runhaskell Setup.lhs install --user

XMonad, XMonadContrib, xmobar

wget http://hackage.haskell.org/packages/archive/xmonad/0.5/xmonad-0.5.tar.gz
tar xfv xmonad-0.5.tar.gz
rm -f xmonad-0.5.tar.gz
cd xmonad-0.5
runhaskell Setup.lhs configure --user --prefix=$HOME
runhaskell Setup.lhs build
runhaskell Setup.lhs install --user

Склеиваем вместе

import XMonad
import System.Exit
import qualified XMonad.StackSet as W
import qualified Data.Map        as M

-- Расширения
import XMonad.Actions.CycleWS
import qualified XMonad.Actions.FlexibleResize as Flex
import XMonad.Actions.SinkAll
import XMonad.Hooks.DynamicLog
import XMonad.Layout.Circle
import XMonad.Layout.NoBorders
import XMonad.Layout.Tabbed
import XMonad.Prompt
import XMonad.Prompt.Man
import XMonad.Prompt.Shell
import XMonad.Prompt.Ssh

-- Мой любимый эмулятор терминала
myTerminal = "urxvtc"

-- Мой шрифт для разных надписей
myFont = "-xos4-terminus-medium-r-normal--12-120-72-72-c-60-*-*"

-- Мои любимые цвета
myNormalBorderColor = "#333"
myFocusedBorderColor = "#fedb73"

-- Устанавливаем функциональной кнопкой "windows key".
myModMask = mod4Mask

-- Отступ от краёв экрана для показывания всяческих сайдбаров
-- У меня это 14 пикселов сверху
myDefaultGaps = [(14,0,0,0)]

-- Мои воркспейсы
myWorkspaces = ["1:im", "2:web", "3:music", "4:emacs"]
               ++ map show [5 .. 9]

-- Кейбиндинги
myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
    -- Запуск терминала
    [ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
    -- Блокировка экрана
    , ((modMask,               xK_Pause ), spawn "slock")
    -- Скриншот
    , ((modMask,               xK_Print ), spawn "import -window root ~/tmp/screenshot-`date +%s`.png")
    -- Громкость +/-
    , ((modMask .|. shiftMask, xK_Up    ), spawn "amixer -q set Master 1+")
    , ((modMask .|. shiftMask, xK_Down    ), spawn "amixer -q set Master 1-")
    -- Убийства окна в фокусе
    , ((modMask .|. shiftMask, xK_c     ), kill)

    -- Схемы расположения окон
    -- Переключиться на следующую доступную
    , ((modMask,               xK_space ), sendMessage NextLayout)
     -- Сменить на стандартную
    , ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)

    -- Изменить размер видимых окон до корректного
    , ((modMask,               xK_n     ), refresh)

    -- Перемещение фокуса
    -- На следующее окно
    , ((modMask,               xK_Tab   ), windows W.focusDown)
    , ((modMask,               xK_j     ), windows W.focusDown)
    -- На предыдущее окно
    , ((modMask,               xK_k     ), windows W.focusUp  )
    -- Переместить фокус на мастер-окно
    , ((modMask,               xK_m     ), windows W.focusMaster  )

    -- Изменение расположения окон
    -- Поменять местами окно в фокусе и мастер-окно
    , ((modMask,               xK_Return), windows W.swapMaster)
    -- Поменять местами окно в фокусе со следующим
    , ((modMask .|. shiftMask, xK_j     ), windows W.swapDown  )
    -- Поменять местами окно в фокусе с предыдущим
    , ((modMask .|. shiftMask, xK_k     ), windows W.swapUp    )
    -- Уменьшить master area
    , ((modMask,               xK_h     ), sendMessage Shrink)
    -- Увеличить master area
    , ((modMask,               xK_l     ), sendMessage Expand)
    -- Вернуть окно в tiled-режим
    , ((modMask,               xK_t     ), withFocused $ windows . W.sink)
    -- Увеличить кол-во окон в master area
    , ((modMask              , xK_comma ), sendMessage (IncMasterN 1))
    -- Уменьшить кол-во окон в master area
    , ((modMask              , xK_period), sendMessage (IncMasterN (-1)))

    -- Переключить показ всяческих сайдбаров
    , ((modMask              , xK_b     ), modifyGap (\i n -> let x = (XMonad.defaultGaps conf ++ repeat (0,0,0,0)) !! i in if n == x then (0,0,0,0) else x))

    -- Выйти из WM
    , ((modMask .|. shiftMask, xK_q     ), io (exitWith ExitSuccess))

    -- Перезагрузить WM
    , ((modMask              , xK_q     ), broadcastMessage ReleaseResources >> restart (Just "xmonad") True)

    -- Кейбиндинги для расширений
    -- Вернуть все окна на воркспейсе в tiled-режим
    , ((modMask .|. shiftMask, xK_t     ), sinkAll)
    -- Переключение/перенос окна на следующий/предыдущий воркспейс
    , ((modMask,               xK_Right), nextWS)
    , ((modMask,               xK_Left),  prevWS)
    , ((modMask .|. shiftMask, xK_Right), shiftToNext >> nextWS)
    , ((modMask .|. shiftMask, xK_Left),  shiftToPrev >> prevWS)

    -- Просмотр man-ов
    , ((modMask,               xK_F1), manPrompt myXPConfig)
    -- Запуск какого-нибудь приложения
    , ((modMask,               xK_p), shellPrompt myXPConfig)
    -- Запуск какого-нибудь приложения в эмуляторе терминала
    , ((modMask .|. shiftMask, xK_p), prompt ("urxvtc" ++ " -e") myXPConfig)
    -- Подключение к какому-нибудь хосту по SSH
    , ((modMask,               xK_s), sshPrompt myXPConfig)

    ]
    ++

    -- mod-[1..9] -- переключение на воркспейс #N
    -- mod-shift-[1..9] -- перемещение окна на воркспейс #N
    [((m .|. modMask, k), windows $ f i)
        | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]

-- Биндинги для мышки
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
    -- Переключение окна в floating-режим и перемещение курсором
    [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
    -- Перемещение окна на верх "стопки"
    , ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
    -- Переключение окна в floating-режим и улучшенное изменение размера
    , ((modMask, button3), (\w -> focus w >> Flex.mouseResizeWindow w))
    ]

-- Схемы расположения окон
-- Обычный tiled, ion3-like tabbed, полноэкранный без окантовки, круговой
myLayout = tiled ||| tabbed shrinkText myTabConfig ||| noBorders Full ||| Circle
  where
     -- В обычном tiled экран разделяется на две панели
     tiled   = Tall nmaster delta ratio
     -- В основном панели по умолчанию одно окно
     nmaster = 1
     -- Стандартная пропорция разделения экрана на панели
     ratio   = 1/2
     -- Шаг изменения пропорции
     delta   = 3/100

-- Правила для отдельных окон
-- Используем xprop | grep WM_CLASS для познания идентификатора окна
myManageHook = composeAll
    [ className =? "MPlayer"        --> doFloat
    , className =? "Gimp"           --> doFloat
    , className =? "psi"            --> doF (W.shift "1:im")
    , className =? "Firefox-bin"    --> doF (W.shift "2:web")
    , className =? "Opera"          --> doF (W.shift "2:web")
    , className =? "Amarokapp"      --> doF (W.shift "3:music")
    , className =? "Emacs"          --> doF (W.shift "4:emacs")]

-- Настройки логирования
myPP = defaultPP { ppCurrent = xmobarColor "yellow" "" . wrap "[" "]"
                 , ppTitle   = xmobarColor "green"  "" . shorten 40
                 , ppVisible = wrap "(" ")"
                 }

-- Настройки для схемы tabbed
myTabConfig = defaultTConf { activeColor         = myFocusedBorderColor
                           , inactiveColor       = myNormalBorderColor
                           , activeBorderColor   = myNormalBorderColor
                           , inactiveBorderColor = myFocusedBorderColor
                           , activeTextColor     = myNormalBorderColor
                           , inactiveTextColor   = myFocusedBorderColor
                           , fontName            = myFont
                           , tabSize             = 14
                           }

-- Настройки для промптов
myXPConfig = XPC { font              = myFont
                 , bgColor           = myNormalBorderColor
                 , fgColor           = myFocusedBorderColor
                 , fgHLight          = "#000000"
                 , bgHLight          = "#BBBBBB"
                 , borderColor       = myFocusedBorderColor
                 , promptBorderWidth = 1
                 , position          = Bottom
                 , height            = 14
                 , historySize       = 256
                 }

------------------------------------------------------------------------
-- Запускаем xmonad с настройками, что мы тут прописывали
main = xmonad defaults

defaults = defaultConfig {
      -- простые штуки
        terminal           = myTerminal,
        normalBorderColor  = myNormalBorderColor,
        focusedBorderColor = myFocusedBorderColor,
        modMask            = myModMask,
        defaultGaps        = myDefaultGaps,
        workspaces         = myWorkspaces,
      -- кейбиндинги
        keys               = myKeys,
        mouseBindings      = myMouseBindings,

      -- хуки, схемы
        layoutHook         = myLayout,
        manageHook         = myManageHook,
        logHook            = dynamicLogWithPP myPP
    }

Config { font = "-xos4-terminus-medium-r-normal--12-120-72-72-c-60-*-*"
       , bgColor = "black"
       , fgColor = "grey"
       , position = Static { xpos = 0
                           , ypos = 0
                           , width = 1280
                           , height = 14
                           }
       , commands = [ Run Network "eth0" ["-L","10","-H","100","--normal","green","--high","red"] 10
                    , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
                    , Run Memory ["-t","Mem: <usedratio>%"] 10
                    , Run Swap [] 10
                    , Run Date "%a %b %_d %Y %H:%M:%S" "date" 10
                    , Run PipeReader "/home/buttons/.xmonad/status" "xlog"
                    ]
       , sepChar = "%"
       , alignSep = "}{"
       , template = "%xlog% }{ | %cpu% | %memory% * %swap% | %eth0% | <fc=#ee9a00>%date%</fc>"
       }

#!/bin/sh
# xmonad use with a pipe talking to an external program
PIPE=$HOME/.xmonad/status
rm -f $PIPE
PATH=${PATH}:/sbin mkfifo -m 600 $PIPE
[ -p $PIPE ] || exit

# status bar
xmobar &

# go for it
xmonad > $PIPE &

# wait for xmonad
wait $!

killall xmobar

xmodmap ~/.Xmodmap &
urxvtd -q -o -f &
unclutter -idle 1 &
/home/buttons/bin/run-xmonad.sh