homes/programs/xmonad/xmonad.hs

   1 {-# LANGUAGE NamedFieldPuns #-}
   2 {-# OPTIONS_GHC -Wall #-}
   3 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
   4 import Data.Default
   5 import Data.List as List
   6 import Data.Ratio
   7 import System.Exit
   8 import System.IO
   9 import qualified Data.Map as Map
  10
  11 -- import XMonad.Actions.DwmPromote
  12 -- import XMonad.Actions.Warp
  13 -- import XMonad.Layout.Maximize
  14 -- import XMonad.Layout.Monitor
  15 -- import XMonad.Layout.ResizableTile
  16 -- import XMonad.Layout.TabBarDecoration
  17 -- import XMonad.Util.EZConfig
  18 -- import XMonad.Util.EZConfig(additionalKeys)
  19 -- import XMonad.Util.WorkspaceCompare
  20 import XMonad hiding ((|||))
  21 import XMonad.Actions.CopyWindow
  22 import XMonad.Actions.CycleWS
  23 import XMonad.Actions.SwapWorkspaces
  24 import XMonad.Actions.UpdatePointer
  25 import XMonad.Config.Azerty
  26 import XMonad.Hooks.DynamicLog
  27 import XMonad.Hooks.EwmhDesktops
  28 import XMonad.Hooks.ManageDocks
  29 import XMonad.Hooks.ManageHelpers
  30 import XMonad.Hooks.SetWMName
  31 import XMonad.Hooks.UrgencyHook
  32 import XMonad.Layout.Fullscreen
  33 import XMonad.Layout.Grid
  34 import XMonad.Layout.IndependentScreens
  35 import XMonad.Layout.LayoutCombinators
  36 import XMonad.Layout.Magnifier
  37 import XMonad.Layout.MultiToggle
  38 import XMonad.Layout.MultiToggle.Instances
  39 import XMonad.Layout.NoBorders
  40 import XMonad.Layout.ResizableTile
  41 import XMonad.Layout.Spiral
  42 import XMonad.Layout.Tabbed
  43 import XMonad.Layout.ThreeColumns
  44 import XMonad.Util.Run(spawnPipe)
  45 import XMonad.Util.SpawnOnce
  46 import qualified XMonad.StackSet as W
  47
  48 myKeys
  49  conf@XConfig{XMonad.modMask} =
  50   Map.fromList $
  51   let xK_XF86Backward = 0x1008ff26
  52       xK_XF86Forward = 0x1008ff27 in
  53   [
  54   -- Start a terminal
  55     ((modMask, xK_Return), spawn $ XMonad.terminal conf)
  56   -- Launch a program
  57   , ((modMask, xK_Menu), spawn "exec gmrun")
  58   -- Browse the filesystem
  59   , ((modMask, xK_BackSpace), spawn "caja")
  60
  61   -- Lock the screen
  62   , ((0, xK_Pause), spawn "xset s activate dpms force off")
  63
  64   -- Take a full screenshot
  65   , ((0, xK_Print), spawn "cd ~/img/cap && scrot --quality 42 '%Y-%m-%d_%H-%M-%S.png' && caja ~/img/cap")
  66   -- Take a selective screenshot
  67   , ((modMask, xK_Print), spawn "select-screenshot")
  68
  69   -- Volume control
  70   , ((0, 0x1008FF12), spawn "amixer -q set Master toggle") -- XF88AudioMute
  71   , ((0, 0x1008FF11), spawn "amixer -q set Master 5%-") -- XF86AudioLowerVolume
  72   , ((0, 0x1008FF13), spawn "amixer -q set Master 5%+") -- XF86AudioRaiseVolume
  73   , ((shiftMask, 0x1008FF12), spawn "amixer -q set PCM toggle") -- XF88AudioMute
  74   , ((shiftMask, 0x1008FF11), spawn "amixer -q set PCM 5%-") -- XF86AudioLowerVolume
  75   , ((shiftMask, 0x1008FF13), spawn "amixer -q set PCM 5%+") -- XF86AudioRaiseVolume
  76   -- Audio previous
  77   -- , ((0, 0x1008FF16), spawn "")
  78   -- Play/pause
  79   -- , ((0, 0x1008FF14), spawn "")
  80   -- Audio next
  81   -- , ((0, 0x1008FF17), spawn "")
  82   -- Eject CD tray
  83   -- , ((0, 0x1008FF2C), spawn "eject -T")
  84
  85   -- Close focused window.
  86   , ((modMask, xK_Escape), kill)
  87   , ((modMask, xK_q), kill)
  88
  89   -- Temporarily maximize a window
  90   , ((modMask, xK_f), sendMessage $ XMonad.Layout.MultiToggle.Toggle FULL)
  91   -- , ((modMask, xK_f), withFocused (sendMessage . maximizeRestore))
  92
  93   -- Cycle through the available layout algorithms
  94   , ((modMask, 0x13bd),        sendMessage NextLayout) -- oe (²)
  95   , ((modMask, xK_ampersand),  sendMessage $ JumpToLayout "ResizableTall") -- & (1)
  96   , ((modMask, xK_eacute),     sendMessage $ JumpToLayout "Mirror ResizableTall") -- é (2)
  97   , ((modMask, xK_quotedbl),   sendMessage $ JumpToLayout "Tabbed Simplest") -- ' (3)
  98   , ((modMask, xK_apostrophe), sendMessage $ JumpToLayout "Magnifier Grid") -- " (4)
  99   , ((modMask, xK_parenleft),  sendMessage $ JumpToLayout "Spiral") -- ( (5)
 100   , ((modMask, xK_minus),      sendMessage $ JumpToLayout "Full") -- - (6)
 101   , ((modMask, xK_egrave),     sendMessage $ JumpToLayout "ThreeCol") -- è (7)
 102
 103   -- Reset the layouts on the current workspace to default
 104   -- , ((modMask .|. shiftMask, xK_space), setLayout $ XMonad.layoutHook conf)
 105
 106   -- Resize viewed windows to the correct size.
 107   , ((modMask, xK_n), refresh)
 108
 109   -- Move focus between windows
 110   , ((modMask, xK_Tab), windows W.focusDown)
 111   , ((modMask .|. shiftMask, xK_Tab), windows W.focusUp)
 112   , ((modMask, xK_i), windows W.focusUp)
 113   , ((modMask, xK_k), windows W.focusDown)
 114
 115   -- Move focus to the master window
 116   , ((modMask, xK_m), windows W.focusMaster)
 117   -- Swap the focused window and the master window
 118   , ((modMask, xK_space), windows W.swapMaster)
 119
 120   -- Swap the focused window with the next window.
 121   --, ((modMask, xK_o), windows W.swapDown >> windows W.focusMaster)
 122   -- Swap the focused window with the previous window.
 123   , ((modMask, xK_m), windows W.swapUp >> windows W.focusMaster)
 124
 125   -- Push window back into tiling.
 126   , ((modMask, xK_t), withFocused $ windows . W.sink)
 127
 128   -- Change the number of windows in the master area
 129   , ((modMask, xK_Up), sendMessage $ IncMasterN 1)
 130   , ((modMask, xK_Down), sendMessage $ IncMasterN (-1))
 131
 132   -- Toggle the status bar gap.
 133   , ((modMask, xK_b), sendMessage ToggleStruts)
 134
 135   -- Quit xmonad
 136   , ((modMask .|. shiftMask, xK_End), io exitSuccess)
 137   -- Restart xmonad
 138   , ((modMask, xK_End), restart "xmonad" True)
 139
 140   -- Workspace management
 141   -- XF86Back: Switch to previous workspace
 142   , ((0, xK_XF86Backward), prevWS)
 143   , ((modMask, xK_j), prevWS)
 144   -- Switch to next workspace
 145   , ((0, xK_XF86Forward), nextWS)
 146   , ((modMask, xK_l), nextWS)
 147   -- XF86Back: Move the current client to the previous workspace and go there
 148   , ((modMask, xK_XF86Backward), shiftToPrev >> prevWS)
 149   , ((modMask .|. shiftMask, xK_j), shiftToPrev >> prevWS)
 150   -- Move the current client to the next workspace and go there
 151   , ((modMask, xK_XF86Forward), shiftToNext >> nextWS)
 152   , ((modMask .|. shiftMask, xK_l), shiftToNext >> nextWS)
 153   -- Switch to previous workspace
 154   -- Switch to next workspace
 155   {-
 156   -- Move the current client to the previous workspace
 157   , ((0 .|. shiftMask   , xK_XF86Backward), shiftToPrev          )
 158   -- Move the current client to the next workspace
 159   , ((0 .|. shiftMask   , xK_XF86Forward), shiftToNext          )
 160   -}
 161
 162   -- Toggle copying window on all workspaces (sticky window)
 163   , ((modMask, xK_s), do
 164       copies <- wsContainingCopies -- NOTE: consider only hidden workspaces
 165       case copies of
 166        [] -> windows copyToAll
 167        _  -> killAllOtherCopies
 168     )
 169
 170   -- Resize the master area
 171   , ((modMask, xK_Left), sendMessage Shrink)
 172   , ((modMask, xK_Right), sendMessage Expand)
 173   -- Resize windows in ResizableTall mode
 174   , ((modMask .|. shiftMask, xK_Left), sendMessage MirrorShrink)
 175   , ((modMask .|. shiftMask, xK_Right), sendMessage MirrorExpand)
 176   ] ++
 177
 178   -- mod-[F1..F9], Switch to workspace N
 179   -- mod-shift-[F1..F9], Move client to workspace N
 180   [ ((m .|. modMask, k), windows $ f i)
 181   | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 182               zip (workspaces conf) [xK_1 ..]
 183   , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
 184   ] ++
 185   {- NOTE: with Xinerama
 186   [((m .|. modMask, k), windows $ onCurrentScreen f i)
 187    | (i, k) <- zip (workspaces' conf) [xK_F1 ..]
 188    , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ]
 189   -}
 190
 191   -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
 192   -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
 193   [ ((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
 194   | (key, sc) <- zip [xK_w, xK_e, xK_r] [0 ..]
 195   , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
 196   ] ++
 197
 198   -- mod-shift-[F1..F9], Swap workspace with workspace N
 199   -- mod-shift-[1..9], Swap workspace with workspace N
 200   [ ((modMask .|. controlMask, k), windows $ swapWithCurrent i)
 201   | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 202               zip (workspaces conf) [xK_1 ..]
 203   ]
 204   {- NOTE: with Xinerama
 205   [((modMask .|. controlMask, k), windows $ onCurrentScreen swapWithCurrent i)
 206    | (i, k) <- zip (workspaces' conf) [xK_F1 ..] ]
 207   -}
 208
 209
 210 myMouseBindings
 211  XConfig{XMonad.modMask} =
 212   Map.fromList
 213   [
 214   -- mod-button1, Set the window to floating mode and move by dragging
 215     ((modMask, button1), \w -> focus w >> mouseMoveWindow w)
 216
 217   -- mod-button2, Raise the window to the top of the stack
 218   , ((modMask, button2), \w -> focus w >> windows W.swapMaster)
 219
 220   -- mod-button3, Set the window to floating mode and resize by dragging
 221   , ((modMask, button3), \w -> focus w >> mouseResizeWindow w)
 222
 223   , ((modMask, button4), \_ -> windows W.focusUp)
 224   , ((modMask, button5), \_ -> windows W.focusDown)
 225
 226   -- Cycle through workspaces
 227   , ((controlMask .|. modMask, button5), nextNonEmptyWS)
 228   , ((controlMask .|. modMask, button4), prevNonEmptyWS)
 229   ]
 230   where
 231     nextNonEmptyWS _ = moveTo Next (WSIs ((not .) <$> isWindowSpaceVisible))
 232     prevNonEmptyWS _ = moveTo Prev (WSIs ((not .) <$> isWindowSpaceVisible))
 233
 234 isWindowSpaceVisible :: X (WindowSpace -> Bool)
 235 isWindowSpaceVisible = do
 236   vs <- gets (map (W.tag . W.workspace) . W.visible . windowset)
 237   return (\w -> W.tag w `elem` vs)
 238
 239 defaults xmproc _nScreens = ewmh $
 240  azertyConfig
 241   { borderWidth        = 1
 242   , focusFollowsMouse  = True
 243   , focusedBorderColor = "#00b10b"
 244   , handleEventHook    = handleEventHook def
 245                          <+> XMonad.Hooks.EwmhDesktops.fullscreenEventHook
 246                          <+> XMonad.Layout.Fullscreen.fullscreenEventHook
 247                          <+> docksEventHook
 248                              -- causes new docks to appear immediately,
 249                              -- instead of waiting for the next focus change.
 250   , keys               = myKeys
 251   , layoutHook         = smartBorders $
 252                          mkToggle (NOBORDERS ?? FULL ?? EOT) $ -- enable temporarily maximizing a window
 253                          avoidStruts $ -- prevents windows from overlapping dock windows
 254                          let tall = ResizableTall 1 (1%200) (8%13) [] in tall
 255                          ||| Mirror tall
 256                          ||| tabbed shrinkText tabConfig
 257                          ||| magnifiercz (13%10) Grid
 258                          ||| spiral (6%7)
 259                          ||| noBorders (fullscreenFull Full)
 260                          ||| ThreeColMid 1 (1%200) (1%2)
 261                          -- ||| Tall 1 (3/100) (1/2)
 262   , manageHook         = composeAll
 263                          -- [ , isFullscreen --> (doF W.focusDown <+> doFullFloat)
 264                          [ isFullscreen --> doFullFloat
 265                          , manageHook def
 266                          , manageDocks -- NOTE: do not tile dock windows
 267                          , resource  =? "desktop_window" --> doIgnore
 268                          , className =? "Gimp"           --> doFloat
 269                          , resource  =? "gpicview"       --> doFloat
 270                          --, className =? "MPlayer"        --> doShift "3:media" -- <+> doFloat
 271                          --, className =? "vlc"            --> doShift "3:media"
 272                          , className =? "stalonetray"    --> doIgnore
 273                          ]
 274   , modMask            = mod4Mask
 275   , mouseBindings      = myMouseBindings
 276   , normalBorderColor  = "#7C7C7C"
 277   , startupHook        = setWMName "XMonad"
 278                        <+> spawn "wmname XMonad"
 279                        <+> spawn "xrdb -all .Xresources"
 280                        <+> spawn "sleep 1 && xmodmap .Xmodmap"
 281                        <+> spawn "xset r rate 250 25"
 282                        <+> spawn "xset b off"
 283                        <+> spawn "xhost local:root"
 284                        <+> spawn "setxkbmap -option keypad:pointerkeys"
 285                        -- <+> spawnOnce "exec arbtt-capture -r 60"
 286                        -- <+> spawnOnce "exec parcellite"
 287                        -- <+> spawnOnce "exec urxvtd -o -q"
 288                        -- <+> spawnOnce "exec xautolock"
 289                        -- <+> spawnOnce "exec redshift-gtk -l -45.7800:1.9700 -t 6500:3700"
 290                        <+> spawnOnce "exec nm-applet"
 291                        <+> spawnOnce (List.unwords
 292                                      [ "exec stalonetray"
 293                                      , "--background '#000000'"
 294                                      , "--geometry 5x1-0+0"
 295                                      , "--icon-gravity E"
 296                                      , "--icon-size 16"
 297                                      , "--kludges force_icons_size"
 298                                      , "--max-geometry 0x1+0+0"
 299                                      , "--skip-taskbar"
 300                                      , "--window-strut none"
 301                                      ])
 302   , terminal           = "urxvtc"
 303   , workspaces         = {- withScreens nScreens $ -}
 304                          {-["1:work","2:web","3:media"] ++-}
 305                          map show [1::Int .. 9]
 306   , logHook =
 307    dynamicLogWithPP xmobarPP
 308     { ppCurrent = xmobarColor "black" "#CCCCCC"
 309     , ppHidden  = xmobarColor "#CCCCCC" "black"
 310     , ppHiddenNoWindows = xmobarColor "#606060" "black"
 311     , ppLayout  = \s -> xmobarColor "black" "#606060" $
 312                    case s of
 313                     "ResizableTall"        -> " | "
 314                     "Mirror ResizableTall" -> " - "
 315                     "Tabbed Simplest"      -> " + "
 316                     "Magnifier Grid"       -> " ~ "
 317                     "Spiral"               -> " @ "
 318                     "Full"                 -> " O "
 319                     "ThreeCol"             -> " # "
 320                     _                      -> s
 321     , ppOutput  = hPutStrLn xmproc
 322     , ppSep     = "  "
 323     , ppTitle   = xmobarColor "white" "black" . shorten 100
 324     , ppUrgent  = xmobarColor "yellow" "black"
 325     , ppWsSep   = " "
 326     }
 327     >> updatePointer (0.5, 0.5) (0, 0)
 328     -- >> updatePointer (Relative 0.5 0.5)
 329   }
 330   where
 331     tabConfig = def
 332      { activeBorderColor   = "#7C7C7C"
 333      , activeColor         = "#000000"
 334      , activeTextColor     = "#00FF00"
 335      , inactiveBorderColor = "#7C7C7C"
 336      , inactiveColor       = "#000000"
 337      , inactiveTextColor   = "#EEEEEE"
 338      }
 339
 340 --
 341 -- Run xmonad
 342 --
 343 main = do
 344   nScreens <- countScreens
 345   xmproc <- spawnPipe "exec xmobar ~/.xmonad/xmobar.hs"
 346   xmonad $
 347    withUrgencyHook NoUrgencyHook $ -- dzenUrgencyHook { args = ["-bg", "darkgreen", "-xs", "1"] }
 348    defaults xmproc (nScreens::Integer)