|
|
|
|
|
|
4
|
import System.Taffybar.XMonadLog (dbusLog)
|
4
|
import System.Taffybar.XMonadLog (dbusLog)
|
|
5
|
import XMonad.Hooks.ManageDocks (ToggleStruts(..), manageDocks, avoidStruts)
|
5
|
import XMonad.Hooks.ManageDocks (ToggleStruts(..), manageDocks, avoidStruts)
|
|
6
|
import XMonad.Hooks.ManageHelpers
|
6
|
import XMonad.Hooks.ManageHelpers
|
|
|
|
7
|
import XMonad.Hooks.SetWMName
|
|
7
|
import XMonad.Layout.NoBorders (smartBorders)
|
8
|
import XMonad.Layout.NoBorders (smartBorders)
|
|
8
|
import XMonad.Layout.Fullscreen (fullscreenEventHook, fullscreenManageHook)
|
9
|
import XMonad.Layout.Fullscreen (fullscreenEventHook, fullscreenManageHook)
|
|
9
|
import XMonad.Util.Run (spawnPipe)
|
10
|
import XMonad.Util.Run (spawnPipe)
|
|
|
|
|
|
|
30
|
xmonad $ defaultConfig {
|
31
|
xmonad $ defaultConfig {
|
|
31
|
modMask = mod4Mask,
|
32
|
modMask = mod4Mask,
|
|
32
|
terminal = "sakura -x tmux",
|
33
|
terminal = "sakura -x tmux",
|
|
|
|
34
|
startupHook = setWMName "LG3D",
|
|
33
|
-- Ignore docks (via some WM_* attribute?)
|
35
|
-- Ignore docks (via some WM_* attribute?)
|
|
34
|
manageHook = composeAll [
|
36
|
manageHook = composeAll [
|
|
35
|
className ?? (\cn -> any (cn ==) ["Skype", "Pidgin", "Geary"]) --> doF (W.shift "3"),
|
37
|
className ?? (\cn -> any (cn ==) ["Skype", "Pidgin", "Geary"]) --> doF (W.shift "3"),
|