LINUX.ORG.RU

xmonad.hs


0

0

Братцы, как активировать dzen с показом workspace в xmonad?


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

myFont = "-xos4-terminus-medium-r-normal-*-14-*-*-*-*-*-iso10646-1"
 
myTerminal      = "urxvt"
 
myBorderWidth   = 1
 
myModMask       = mod4Mask
 
myNumlockMask   = mod2Mask
 
myWorkspaces    = ["1","2","3","4","5"]
 
myNormalBorderColor  = "#2E3436"
myFocusedBorderColor = "#3465A4"
 
myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
 
    [ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
 
     , ((modMask              , xK_q     ), restart "xmonad" True)
    ]
    ++
 
    [((m .|. modMask, k), windows $ f i)
        | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_5]
        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
    ++
 
    [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
        | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
 
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
 
    [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
 
    , ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
 
    , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
 
    ]
 
myLayout = tiled ||| Mirror tiled ||| Full
  where
     tiled   = Tall nmaster delta ratio
 
     nmaster = 1
 
     ratio   = 1/2
 
     delta   = 3/100
 
myManageHook = composeAll
    [ className =? "Gimp"           --> doFloat
    , resource  =? "desktop_window" --> doIgnore]
 
myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True
 
myLogHook = return ()
 
myStartupHook = return ()
 
main = xmonad defaults
 
defaults = defaultConfig {

        terminal           = myTerminal,
        focusFollowsMouse  = myFocusFollowsMouse,
        borderWidth        = myBorderWidth,
        modMask            = myModMask,
        numlockMask        = myNumlockMask,
        workspaces         = myWorkspaces,
        normalBorderColor  = myNormalBorderColor,
        focusedBorderColor = myFocusedBorderColor,
 
        keys               = myKeys,
        mouseBindings      = myMouseBindings,
 
        layoutHook         = myLayout,
        manageHook         = myManageHook,
        logHook            = myLogHook,
        startupHook        = myStartupHook
    }

anonymous

Re: xmonad.hs

1. Короткое объяснение того, как вообще работает статусбар, можно найти тут: http://haskell.org/haskellwiki/Xmonad/Config_archive/John_Goerzen's_Configurati on#Configuring_xmonad_to_use_xmobar

2. Недавно в галерее проскакивал скрин с xmonad'ом, к которому в качестве статусбара как раз был прикручен dzen. Тема лежит тут: http://www.linux.org.ru/view-message.jsp?msgid=3344420 Ссылка на xmonad.hs оттуда - вот: http://pastebin.com/f2e2760cf Особо смотреть в конец конфига - на myDzenPP.

Sergius256 ()

Re: xmonad.hs

По-моему, когда я пробовал xmonad, просто запускал его одновременно с dzen. Панелька сама всё подхватывала и отображала.

anonymous ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.