import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ICCCMFocus
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ICCCMFocus
import XMonad.Layout.Renamed
import XMonad.Layout.Reflect
import XMonad.Layout.Tabbed
import XMonad.Layout.Renamed
import XMonad.Layout.Reflect
import XMonad.Layout.Tabbed
import XMonad.Util.Run(spawnPipe)
import qualified Data.Map as M
import qualified XMonad.StackSet as W
import XMonad.Util.Run(spawnPipe)
import qualified Data.Map as M
import qualified XMonad.StackSet as W
[
((modm .|. shiftMask, xK_h), spawn "xfce4-session-logout"),
((modm .|. shiftMask, xK_l), spawn "xscreensaver-command --lock"),
[
((modm .|. shiftMask, xK_h), spawn "xfce4-session-logout"),
((modm .|. shiftMask, xK_l), spawn "xscreensaver-command --lock"),
- ((modm, xK_f), spawn "xmonad --restart"),
+ ((modm .|. shiftMask, xK_r), spawn "xmonad --restart"),
((modm, xK_n), spawn "xfce4-terminal"),
((modm, xK_i), spawn "firefox"),
((modm, xK_n), spawn "xfce4-terminal"),
((modm, xK_i), spawn "firefox"),
+ ((modm .|. shiftMask, xK_i), spawn "firefox --private-window"),
+ ((modm, xK_c), spawn "emacsclient --create-frame --no-wait"),
((modm, xK_p), spawn "kupfer"),
((modm .|. shiftMask, xK_c ), kill),
((modm, xK_p), spawn "kupfer"),
((modm .|. shiftMask, xK_c ), kill),
((modm , xK_comma ), sendMessage (IncMasterN 1)),
((modm , xK_period), sendMessage (IncMasterN (-1))),
((modm , xK_b ), sendMessage ToggleStruts),
((modm , xK_comma ), sendMessage (IncMasterN 1)),
((modm , xK_period), sendMessage (IncMasterN (-1))),
((modm , xK_b ), sendMessage ToggleStruts),
- ((modm , xK_z ), sendMessage Mag.Toggle)
+ ((modm , xK_z ), sendMessage Mag.Toggle),
+ ((modm , xK_a), cycleRecentWorkspaceOnSingleScreen [xK_Super_L] xK_a xK_a)
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
]
- onWorkspace "1" (myTabbedLayout ||| myMasterTabbedLayout) $
- onWorkspace "2" (myTabbedLayout ||| myMasterTabbedLayout) $
- onWorkspace "9" (myFullLayout ||| myMasterTabbedLayout ||| myTabbedLayout ||| myTiledLayout ||| myGimpLayout) $
- (myMasterTabbedLayout ||| myTabbedLayout ||| myTiledLayout)
+ onWorkspace "9" (myTabbedLayout ||| myFullLayout ||| myGimpLayout) $
+ (myTabbedLayout ||| myMasterTabbedLayout ||| myTiledLayout)
)
main = do
xmonadDir <- getXMonadDir
xmobars <- mapM (\x -> spawnPipe ("xmobar -x " ++ (show x) ++ " " ++ xmonadDir ++ "/xmobar.hs")) [1, 2]
)
main = do
xmonadDir <- getXMonadDir
xmobars <- mapM (\x -> spawnPipe ("xmobar -x " ++ (show x) ++ " " ++ xmonadDir ++ "/xmobar.hs")) [1, 2]
manageHook = myManageHook,
layoutHook = myLayout,
workspaces = myWorkspaces,
manageHook = myManageHook,
layoutHook = myLayout,
workspaces = myWorkspaces,