浏览代码

~/.xmonad: Fullscreen without borders.

Lucas Stadler 12 年之前
父节点
当前提交
dcb7beba94
共有 1 个文件被更改,包括 5 次插入4 次删除
  1. 5 4
      .xmonad/xmonad.hs

+ 5 - 4
.xmonad/xmonad.hs

@ -3,6 +3,8 @@ import XMonad.Actions.SpawnOn (manageSpawn, spawnHere)
3 3
import XMonad.Hooks.DynamicLog
4 4
import XMonad.Hooks.ManageDocks (manageDocks, avoidStruts)
5 5
import XMonad.Hooks.ManageHelpers
6
import XMonad.Layout.NoBorders (smartBorders)
7
import XMonad.Layout.Fullscreen (fullscreenEventHook, fullscreenManageHook)
6 8
import XMonad.Util.Run (spawnPipe)
7 9
import XMonad.Util.EZConfig (additionalKeys)
8 10
import System.IO (hPutStrLn)
@ -27,12 +29,11 @@ main = do
27 29
        manageHook = composeAll [
28 30
                        manageSpawn,
29 31
                        manageDocks,
30
                        -- Allow fullscreen
31
                        composeOne [ isFullscreen -?> doFullFloat ]
32
                        fullscreenManageHook
32 33
                     ] <+> manageHook defaultConfig,
33 34
        -- Don't overwrite the section used by docks
34
        layoutHook = avoidStruts $ layoutHook defaultConfig,
35
        handleEventHook = evHook
35
        layoutHook = avoidStruts $ smartBorders $ layoutHook defaultConfig,
36
        handleEventHook = fullscreenEventHook
36 37
     } `additionalKeys` [
37 38
        ((mod4Mask, xK_b), spawnHere "chromium --allow-file-access-from-files"),
38 39
        ((mod4Mask .|. shiftMask, xK_b), spawnHere "chromium --incognito --allow-file-access-from-files"),