XMonad 0.13

-- logHook
myLogHook :: Handle -> X ()
myLogHook h = dynamicLogWithPP $ myPP { ppOutput = hPutStrLn h
    , ppSort = fmap (.scratchpadFilterOutWorkspace) getSortByTag
    }

-- custom theme for xmobar
myPP :: PP
myPP = def
    {
        ppCurrent   = xmobarColor "#ECECEC" "#3E515A" . wrap " " " "
.....
        , ppOrder       =  \(ws:l:t:x) -> ["  " , l, ws, t] ++ x
    }

import XMonad.Hooks.Minimize
import XMonad.Hooks.RestoreMinimized
...
main = do
 ...
    xmonad ... $ def {
              manageHook = myManageHook <+> manageDocks
            ...
            , handleEventHook = minimizeEventHook <+> restoreMinimizedEventHook
           ...
            }
...
myLayoutHook =  avoidStruts
                $ minimize
...

s-ugra@ya.ru
Берем Xfce4-panel,

s-ugra@ya.ru
Да уберу я её )))

Haron_Prime
Лично мне этот функционал не нужен

s-ugra@ya.ru
Делаем пустое пространство в левой части бара

, position         = TopP 0 54

position
Top, TopP, TopW, TopSize, Bottom, BottomP, BottomW, BottomSize or Static (with x, y, width and height).
TopP and BottomP take 2 arguments: left padding and right padding.

TopW and BottomW take 2 arguments: an alignment parameter (L for left, C for centered, R for Right) and an integer for the percentage width xmobar window will have in respect to the screen width.

TopSize and BottomSize take 3 arguments: an alignment parameter, an integer for the percentage width, and an integer for the minimum pixel height that the xmobar window will have.

For example:

position = BottomW C 75

to place xmobar at the bottom, centered with the 75% of the screen width.

Or:

position = BottomP 120 0

to place xmobar at the bottom, with 120 pixel indent of the left.

: Or

position = Static { xpos = 0 , ypos = 0, width = 1024, height = 15 }

or

position = Top

s-ugra@ya.ru
Да мне тоже, я ищу себе только простой текстовый редактор

чтобы его по хоткею можно было вызвать, кинуть туда ченить и по тому же хоткею закрыть.

Haron_Prime
решается простой настройкой xmobarrc

, ppOrder       =  \(ws:l:t:x) -> ["  " , l, ws, t] ++ x

myNotes              =  "urxvtc -name Notes -cd ~/MyNotes -e vim -c NERDTree"

, ((mod1Mask .|. controlMask,        0x6e),  namedScratchpadAction mynameScratchpads "MyNotes")

mynameScratchpads = [
.......
, NS "MyNotes"      myNotes          (appName    =? "Notes")        (customFloating $ W.RationalRect 0.2 0.2 0.6 0.6)
.......
]