initial commit
This commit is contained in:
Executable
BIN
Binary file not shown.
@@ -0,0 +1,14 @@
|
||||
|
||||
xmonad.hs:401:43: warning: [-Wdeprecations]
|
||||
In the use of ‘spacing’ (imported from XMonad.Layout.Spacing):
|
||||
Deprecated: "Use spacingRaw instead."
|
||||
|
|
||||
401 | addSpace = renamed [CutWordsLeft 2] . spacing gap
|
||||
| ^^^^^^^
|
||||
|
||||
xmonad.hs:459:1: warning: [-Wtabs]
|
||||
Tab character found here, and in 10 further locations.
|
||||
Please use spaces instead.
|
||||
|
|
||||
459 | , className =? "thunderbird" --> doShift "9: mail"
|
||||
| ^^^^^^^^
|
||||
Binary file not shown.
@@ -0,0 +1,556 @@
|
||||
-- IMPORTS --
|
||||
|
||||
import System.IO
|
||||
import System.Exit
|
||||
-- import System.Taffybar.Hooks.PagerHints (pagerHints)
|
||||
|
||||
import qualified Data.List as L
|
||||
|
||||
import XMonad
|
||||
import XMonad.Actions.Navigation2D
|
||||
import XMonad.Actions.UpdatePointer
|
||||
|
||||
import XMonad.Hooks.DynamicLog
|
||||
import XMonad.Hooks.ManageDocks
|
||||
import XMonad.Hooks.ManageHelpers
|
||||
import XMonad.Hooks.SetWMName
|
||||
import XMonad.Hooks.EwmhDesktops (ewmh)
|
||||
|
||||
import XMonad.Layout.Gaps
|
||||
import XMonad.Layout.Fullscreen
|
||||
import XMonad.Layout.BinarySpacePartition as BSP
|
||||
import XMonad.Layout.NoBorders
|
||||
import XMonad.Layout.Tabbed
|
||||
import XMonad.Layout.ThreeColumns
|
||||
import XMonad.Layout.Spacing
|
||||
import XMonad.Layout.MultiToggle
|
||||
import XMonad.Layout.MultiToggle.Instances
|
||||
import XMonad.Layout.NoFrillsDecoration
|
||||
import XMonad.Layout.Renamed
|
||||
import XMonad.Layout.Simplest
|
||||
import XMonad.Layout.SubLayouts
|
||||
import XMonad.Layout.WindowNavigation
|
||||
import XMonad.Layout.ZoomRow
|
||||
|
||||
import XMonad.Util.Run(spawnPipe)
|
||||
import XMonad.Util.SpawnOnce
|
||||
import XMonad.Util.EZConfig(additionalKeys)
|
||||
import XMonad.Util.Cursor
|
||||
|
||||
import Graphics.X11.ExtraTypes.XF86
|
||||
import qualified XMonad.StackSet as W
|
||||
import qualified Data.Map as M
|
||||
|
||||
-- The preferred terminal program, which is used in a binding below and by
|
||||
-- certain contrib modules.
|
||||
--
|
||||
myTerminal = "termite"
|
||||
|
||||
-- The command to take a fullscreen screenshot.
|
||||
myScreenshotFull = "flameshot full -c"
|
||||
myScreenshotSelective = "flameshot gui"
|
||||
|
||||
myScreensaver = "light-locker-command -l"
|
||||
|
||||
myLauncher = "rofi -combi-mode drun,window -show combi -modi combi"
|
||||
|
||||
-- A tagging example:
|
||||
--
|
||||
-- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
|
||||
--
|
||||
myWorkspaces = ["1: term","2: web","3: code","4: media", "5: vm", "6", "7", "8", "9: mail"]
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Colors and borders
|
||||
|
||||
-- Color of current window title in xmobar.
|
||||
xmobarTitleColor = "#C678DD"
|
||||
|
||||
-- Color of current workspace in xmobar.
|
||||
xmobarCurrentWorkspaceColor = "#51AFEF"
|
||||
|
||||
-- Width of the window border in pixels.
|
||||
myBorderWidth = 0
|
||||
|
||||
myNormalBorderColor = "#000000"
|
||||
myFocusedBorderColor = active
|
||||
|
||||
base03 = "#002b36"
|
||||
base02 = "#073642"
|
||||
base01 = "#586e75"
|
||||
base00 = "#657b83"
|
||||
base0 = "#839496"
|
||||
base1 = "#93a1a1"
|
||||
base2 = "#eee8d5"
|
||||
base3 = "#fdf6e3"
|
||||
yellow = "#b58900"
|
||||
orange = "#cb4b16"
|
||||
red = "#dc322f"
|
||||
magenta = "#d33682"
|
||||
violet = "#6c71c4"
|
||||
blue = "#268bd2"
|
||||
cyan = "#2aa198"
|
||||
green = "#859900"
|
||||
|
||||
-- sizes
|
||||
gap = 10
|
||||
topbar = 10
|
||||
border = 0
|
||||
prompt = 10
|
||||
status = 10
|
||||
|
||||
active = orange
|
||||
activeWarn = red
|
||||
inactive = orange
|
||||
focusColor = orange
|
||||
unfocusColor = base02
|
||||
|
||||
-- myFont = "-*-Zekton-medium-*-*-*-*-160-*-*-*-*-*-*"
|
||||
-- myBigFont = "-*-Zekton-medium-*-*-*-*-240-*-*-*-*-*-*"
|
||||
myFont = "xft:Zekton:size=9:bold:antialias=true"
|
||||
myBigFont = "xft:Zekton:size=9:bold:antialias=true"
|
||||
myWideFont = "xft:Eurostar Black Extended:"
|
||||
++ "style=Regular:pixelsize=180:hinting=true"
|
||||
|
||||
-- this is a "fake title" used as a highlight bar in lieu of full borders
|
||||
-- (I find this a cleaner and less visually intrusive solution)
|
||||
topBarTheme = def
|
||||
{
|
||||
fontName = myFont
|
||||
, inactiveBorderColor = base03
|
||||
, inactiveColor = base03
|
||||
, inactiveTextColor = base03
|
||||
, activeBorderColor = active
|
||||
, activeColor = active
|
||||
, activeTextColor = active
|
||||
, urgentBorderColor = red
|
||||
, urgentTextColor = yellow
|
||||
, decoHeight = topbar
|
||||
}
|
||||
|
||||
addTopBar = noFrillsDeco shrinkText topBarTheme
|
||||
|
||||
myTabTheme = def
|
||||
{ fontName = myFont
|
||||
, activeColor = active
|
||||
, inactiveColor = base02
|
||||
, activeBorderColor = active
|
||||
, inactiveBorderColor = base02
|
||||
, activeTextColor = base03
|
||||
, inactiveTextColor = base00
|
||||
}
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Key bindings
|
||||
--
|
||||
-- modMask lets you specify which modkey you want to use. The default
|
||||
-- is mod1Mask ("left alt"). You may also consider using mod3Mask
|
||||
-- ("right alt"), which does not conflict with emacs keybindings. The
|
||||
-- "windows key" is usually mod4Mask.
|
||||
--
|
||||
myModMask = mod4Mask
|
||||
altMask = mod1Mask
|
||||
|
||||
myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
|
||||
----------------------------------------------------------------------
|
||||
-- Custom key bindings
|
||||
--
|
||||
|
||||
-- Start a terminal. Terminal to start is specified by myTerminal variable.
|
||||
[ ((modMask .|. shiftMask, xK_Return),
|
||||
spawn $ XMonad.terminal conf)
|
||||
|
||||
-- Lock the screen using command specified by myScreensaver.
|
||||
, ((modMask .|. shiftMask, xK_0),
|
||||
spawn myScreensaver)
|
||||
|
||||
-- go into sleep then hibernate
|
||||
, ((modMask .|. shiftMask .|. controlMask, xK_0),
|
||||
spawn "systemctl suspend")
|
||||
|
||||
-- Spawn the launcher using command specified by myLauncher.
|
||||
-- Use this to launch programs without a key binding.
|
||||
, ((modMask, xK_p),
|
||||
spawn myLauncher)
|
||||
|
||||
-- Take a full screenshot using the command specified by myScreenshot.
|
||||
, ((modMask .|. controlMask, xK_p),
|
||||
spawn myScreenshotFull)
|
||||
|
||||
-- Take a full screenshot using the command specified by myScreenshot.
|
||||
, ((modMask .|. controlMask .|. shiftMask, xK_p),
|
||||
spawn myScreenshotSelective)
|
||||
|
||||
-- Toggle current focus window to fullscreen
|
||||
, ((modMask, xK_f), sendMessage $ Toggle FULL)
|
||||
|
||||
-- Mute volume.
|
||||
, ((0, xF86XK_AudioMute),
|
||||
spawn "pamixer -t")
|
||||
|
||||
-- Mute standard input device
|
||||
, ((modMask, xF86XK_AudioMute),
|
||||
spawn "pactl set-source-mute @DEFAULT_SOURCE@ toggle")
|
||||
|
||||
-- Decrease volume.
|
||||
, ((0, xF86XK_AudioLowerVolume),
|
||||
spawn "pamixer --decrease 5")
|
||||
|
||||
-- Increase volume.
|
||||
, ((0, xF86XK_AudioRaiseVolume),
|
||||
spawn "pamixer --increase 5")
|
||||
|
||||
-- Audio previous.
|
||||
, ((modMask, xF86XK_AudioLowerVolume),
|
||||
spawn "playerctl previous")
|
||||
|
||||
-- Play/pause.
|
||||
, ((0, xF86XK_AudioPlay),
|
||||
spawn "playerctl play-pause")
|
||||
|
||||
-- Audio next.
|
||||
, ((modMask, xF86XK_AudioRaiseVolume),
|
||||
spawn "playerctl next")
|
||||
|
||||
-- Increase brigthness
|
||||
, ((0, xF86XK_MonBrightnessUp),
|
||||
spawn "light -A 5")
|
||||
|
||||
-- Increase brigthness
|
||||
, ((modMask, xF86XK_MonBrightnessUp),
|
||||
spawn "light -S 100")
|
||||
|
||||
, ((0, xF86XK_MonBrightnessDown),
|
||||
spawn "light -U 5")
|
||||
|
||||
, ((modMask, xF86XK_MonBrightnessDown),
|
||||
spawn "light -S 0.001")
|
||||
--------------------------------------------------------------------
|
||||
-- "Standard" xmonad key bindings
|
||||
--
|
||||
|
||||
-- Close focused window.
|
||||
, ((modMask .|. shiftMask, xK_c),
|
||||
kill)
|
||||
|
||||
-- Cycle through the available layout algorithms.
|
||||
, ((modMask, xK_space),
|
||||
sendMessage NextLayout)
|
||||
|
||||
-- Reset the layouts on the current workspace to default.
|
||||
, ((modMask .|. shiftMask, xK_space),
|
||||
setLayout $ XMonad.layoutHook conf)
|
||||
|
||||
-- Resize viewed windows to the correct size.
|
||||
, ((modMask, xK_n),
|
||||
refresh)
|
||||
|
||||
-- Move focus to the next window.
|
||||
, ((modMask, xK_j),
|
||||
windows W.focusDown)
|
||||
|
||||
-- Move focus to the previous window.
|
||||
, ((modMask, xK_k),
|
||||
windows W.focusUp )
|
||||
|
||||
-- Move focus to the master window.
|
||||
, ((modMask, xK_m),
|
||||
windows W.focusMaster )
|
||||
|
||||
-- Swap the focused window and the master window.
|
||||
, ((modMask, xK_Return),
|
||||
windows W.swapMaster)
|
||||
|
||||
-- Swap the focused window with the next window.
|
||||
, ((modMask .|. shiftMask, xK_j),
|
||||
windows W.swapDown )
|
||||
|
||||
-- Swap the focused window with the previous window.
|
||||
, ((modMask .|. shiftMask, xK_k),
|
||||
windows W.swapUp )
|
||||
|
||||
-- Shrink the master area.
|
||||
, ((modMask, xK_h),
|
||||
sendMessage Shrink)
|
||||
|
||||
-- Expand the master area.
|
||||
, ((modMask, xK_l),
|
||||
sendMessage Expand)
|
||||
|
||||
-- Push window back into tiling.
|
||||
, ((modMask, xK_t),
|
||||
withFocused $ windows . W.sink)
|
||||
|
||||
-- Increment the number of windows in the master area.
|
||||
, ((modMask, xK_comma),
|
||||
sendMessage (IncMasterN 1))
|
||||
|
||||
-- Decrement the number of windows in the master area.
|
||||
, ((modMask, xK_period),
|
||||
sendMessage (IncMasterN (-1)))
|
||||
|
||||
-- Toggle the status bar gap.
|
||||
-- TODO: update this binding with avoidStruts, ((modMask, xK_b),
|
||||
|
||||
-- Quit xmonad.
|
||||
, ((modMask .|. shiftMask, xK_q),
|
||||
io (exitWith ExitSuccess))
|
||||
|
||||
-- Restart xmonad.
|
||||
, ((modMask, xK_q),
|
||||
spawn "xmonad --recompile && xmonad --restart")
|
||||
]
|
||||
++
|
||||
|
||||
-- mod-[1..9], Switch to workspace N
|
||||
-- mod-shift-[1..9], Move client to workspace 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)]]
|
||||
++
|
||||
|
||||
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
|
||||
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
|
||||
[((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)]]
|
||||
|
||||
|
||||
++
|
||||
-- Bindings for manage sub tabs in layouts please checkout the link below for reference
|
||||
-- https://hackage.haskell.org/package/xmonad-contrib-0.13/docs/XMonad-Layout-SubLayouts.html
|
||||
[
|
||||
-- Tab current focused window with the window to the left
|
||||
((modMask .|. controlMask, xK_h), sendMessage $ pullGroup L)
|
||||
-- Tab current focused window with the window to the right
|
||||
, ((modMask .|. controlMask, xK_l), sendMessage $ pullGroup R)
|
||||
-- Tab current focused window with the window above
|
||||
, ((modMask .|. controlMask, xK_k), sendMessage $ pullGroup U)
|
||||
-- Tab current focused window with the window below
|
||||
, ((modMask .|. controlMask, xK_j), sendMessage $ pullGroup D)
|
||||
|
||||
-- Tab all windows in the current workspace with current window as the focus
|
||||
, ((modMask .|. controlMask, xK_m), withFocused (sendMessage . MergeAll))
|
||||
-- Group the current tabbed windows
|
||||
, ((modMask .|. controlMask, xK_u), withFocused (sendMessage . UnMerge))
|
||||
|
||||
-- Toggle through tabes from the right
|
||||
, ((modMask, xK_Tab), onGroup W.focusDown')
|
||||
]
|
||||
|
||||
++
|
||||
-- Some bindings for BinarySpacePartition
|
||||
-- https://github.com/benweitzman/BinarySpacePartition
|
||||
[
|
||||
((modMask .|. controlMask, xK_Right ), sendMessage $ ExpandTowards R)
|
||||
, ((modMask .|. controlMask .|. shiftMask, xK_Right ), sendMessage $ ShrinkFrom R)
|
||||
, ((modMask .|. controlMask, xK_Left ), sendMessage $ ExpandTowards L)
|
||||
, ((modMask .|. controlMask .|. shiftMask, xK_Left ), sendMessage $ ShrinkFrom L)
|
||||
, ((modMask .|. controlMask, xK_Down ), sendMessage $ ExpandTowards D)
|
||||
, ((modMask .|. controlMask .|. shiftMask, xK_Down ), sendMessage $ ShrinkFrom D)
|
||||
, ((modMask .|. controlMask, xK_Up ), sendMessage $ ExpandTowards U)
|
||||
, ((modMask .|. controlMask .|. shiftMask, xK_Up ), sendMessage $ ShrinkFrom U)
|
||||
, ((modMask, xK_r ), sendMessage BSP.Rotate)
|
||||
, ((modMask, xK_s ), sendMessage BSP.Swap)
|
||||
-- , ((modMask, xK_n ), sendMessage BSP.FocusParent)
|
||||
-- , ((modMask .|. controlMask, xK_n ), sendMessage BSP.SelectNode)
|
||||
-- , ((modMask .|. shiftMask, xK_n ), sendMessage BSP.MoveNode)
|
||||
]
|
||||
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Mouse bindings
|
||||
--
|
||||
-- Focus rules
|
||||
-- True if your focus should follow your mouse cursor.
|
||||
myFocusFollowsMouse :: Bool
|
||||
myFocusFollowsMouse = True
|
||||
|
||||
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
|
||||
[
|
||||
-- mod-button1, Set the window to floating mode and move by dragging
|
||||
((modMask, button1),
|
||||
(\w -> focus w >> mouseMoveWindow w))
|
||||
|
||||
-- mod-button2, Raise the window to the top of the stack
|
||||
, ((modMask, button2),
|
||||
(\w -> focus w >> windows W.swapMaster))
|
||||
|
||||
-- mod-button3, Set the window to floating mode and resize by dragging
|
||||
, ((modMask, button3),
|
||||
(\w -> focus w >> mouseResizeWindow w))
|
||||
|
||||
-- you may also bind events to the mouse scroll wheel (button4 and button5)
|
||||
]
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Layouts:
|
||||
|
||||
-- You can specify and transform your layouts by modifying these values.
|
||||
-- If you change layout bindings be sure to use 'mod-shift-space' after
|
||||
-- restarting (with 'mod-q') to reset your layout state to the new
|
||||
-- defaults, as xmonad preserves your old layout settings by default.
|
||||
--
|
||||
-- The available layouts. Note that each layout is separated by |||,
|
||||
-- which denotes layout choice.
|
||||
--
|
||||
|
||||
|
||||
outerGaps = 10
|
||||
myGaps = gaps [(U, outerGaps), (R, outerGaps), (L, outerGaps), (D, outerGaps)]
|
||||
addSpace = renamed [CutWordsLeft 2] . spacing gap
|
||||
tab = avoidStruts
|
||||
$ renamed [Replace "Tabbed"]
|
||||
$ addTopBar
|
||||
$ myGaps
|
||||
$ tabbed shrinkText myTabTheme
|
||||
|
||||
layouts = avoidStruts (
|
||||
(
|
||||
renamed [CutWordsLeft 1]
|
||||
$ addTopBar
|
||||
$ windowNavigation
|
||||
$ renamed [Replace "BSP"]
|
||||
$ addTabs shrinkText myTabTheme
|
||||
$ subLayout [] Simplest
|
||||
$ myGaps
|
||||
$ addSpace (BSP.emptyBSP)
|
||||
)
|
||||
||| tab
|
||||
)
|
||||
|
||||
myLayout = smartBorders
|
||||
$ mkToggle (NOBORDERS ?? FULL ?? EOT)
|
||||
$ layouts
|
||||
|
||||
myNav2DConf = def
|
||||
{ defaultTiledNavigation = centerNavigation
|
||||
, floatNavigation = centerNavigation
|
||||
, screenNavigation = lineNavigation
|
||||
, layoutNavigation = [("Full", centerNavigation)
|
||||
-- line/center same results ,("Tabs", lineNavigation)
|
||||
-- ,("Tabs", centerNavigation)
|
||||
]
|
||||
, unmappedWindowRect = [("Full", singleWindowRect)
|
||||
-- works but breaks tab deco ,("Tabs", singleWindowRect)
|
||||
-- doesn't work but deco ok ,("Tabs", fullScreenRect)
|
||||
]
|
||||
}
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Window rules:
|
||||
|
||||
-- Execute arbitrary actions and WindowSet manipulations when managing
|
||||
-- a new window. You can use this to, for example, always float a
|
||||
-- particular program, or have a client always appear on a particular
|
||||
-- workspace.
|
||||
--
|
||||
-- To find the property name associated with a program, use
|
||||
-- > xprop | grep WM_CLASS
|
||||
-- and click on the client you're interested in.
|
||||
--
|
||||
-- To match on the WM_NAME, you can use 'title' in the same way that
|
||||
-- 'className' and 'resource' are used below.
|
||||
--
|
||||
myManageHook = composeAll
|
||||
[ className =? "MPlayer" --> doFloat
|
||||
, className =? "Gimp" --> doFloat
|
||||
, className =? "firefox" --> doShift "2: web"
|
||||
, className =? "thunderbird" --> doShift "9: mail"
|
||||
, resource =? "desktop_window" --> doIgnore
|
||||
, resource =? "kdesktop" --> doIgnore
|
||||
, className =? "VirtualBox" --> doShift "5: vm"
|
||||
, className =? "pycharm" --> doShift "4"
|
||||
, isFullscreen --> (doF W.focusDown <+> doFullFloat)
|
||||
]
|
||||
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Event handling
|
||||
|
||||
-- * EwmhDesktops users should change this to ewmhDesktopsEventHook
|
||||
--
|
||||
-- Defines a custom handler function for X Events. The function should
|
||||
-- return (All True) if the default handler is to be run afterwards. To
|
||||
-- combine event hooks use mappend or mconcat from Data.Monoid.
|
||||
--
|
||||
-- myEventHook = empty
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Status bars and logging
|
||||
|
||||
-- Perform an arbitrary action on each internal state change or X event.
|
||||
-- See the 'XMonad.Hooks.DynamicLog' extension for examples.
|
||||
--
|
||||
-- myLogHook = return ()
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Startup hook
|
||||
|
||||
-- Perform an arbitrary action each time xmonad starts or is restarted
|
||||
-- with mod-q. Used by, e.g., XMonad.Layout.PerWorkspace to initialize
|
||||
-- per-workspace layout choices.
|
||||
--
|
||||
-- By default, do nothing.
|
||||
myStartupHook = do
|
||||
--spawnOnce "nitrogen --restore &"
|
||||
spawnOnce "picom -b --backend glx &"
|
||||
spawnOnce "light-locker &"
|
||||
-- spawn once not necessary here, since the launch script takes care of multiple instances
|
||||
spawn "~/.config/polybar/launch.sh"
|
||||
spawnOnce "redshift ~/.config/redshift/redshift.conf &"
|
||||
spawnOnce "mullvad-vpn &"
|
||||
spawnOnce "sleep 2 && nextcloud &"
|
||||
--spawnOnce "xscreensaver -nosplash &"
|
||||
spawnOnce "flameshot &"
|
||||
spawnOnce "xfce4-power-manager &"
|
||||
|
||||
------------------------------------------------------------------------
|
||||
-- Now run xmonad with all the defaults we set up.
|
||||
|
||||
-- Run xmonad with the settings you specify. No need to modify this.
|
||||
--
|
||||
main = do
|
||||
--xmproc <- spawnPipe "/home/arch/.config/xmobar/launch.sh"
|
||||
-- xmproc <- spawnPipe "sleep 2 && sudo torguard &"
|
||||
xmonad $ docks
|
||||
$ withNavigation2DConfig myNav2DConf
|
||||
$ additionalNav2DKeys (xK_Up, xK_Left, xK_Down, xK_Right)
|
||||
[
|
||||
(mod4Mask, windowGo )
|
||||
, (mod4Mask .|. shiftMask, windowSwap)
|
||||
]
|
||||
False
|
||||
$ ewmh
|
||||
-- $ pagerHints -- uncomment to use taffybar
|
||||
$ defaults
|
||||
|
||||
|
||||
|
||||
-- A structure containing your configuration settings, overriding
|
||||
-- fields in the default config. Any you don't override, will
|
||||
-- use the defaults defined in xmonad/XMonad/Config.hs
|
||||
--
|
||||
-- No need to modify this.
|
||||
--
|
||||
defaults = def {
|
||||
-- simple stuff
|
||||
terminal = myTerminal,
|
||||
focusFollowsMouse = myFocusFollowsMouse,
|
||||
borderWidth = myBorderWidth,
|
||||
modMask = myModMask,
|
||||
workspaces = myWorkspaces,
|
||||
normalBorderColor = myNormalBorderColor,
|
||||
focusedBorderColor = myFocusedBorderColor,
|
||||
|
||||
-- key bindings
|
||||
keys = myKeys,
|
||||
mouseBindings = myMouseBindings,
|
||||
|
||||
-- hooks, layouts
|
||||
layoutHook = myLayout,
|
||||
-- handleEventHook = E.fullscreenEventHook,
|
||||
handleEventHook = fullscreenEventHook,
|
||||
manageHook = manageDocks <+> myManageHook,
|
||||
startupHook = myStartupHook
|
||||
}
|
||||
Binary file not shown.
Reference in New Issue
Block a user