homes/softwares/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   , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
 183   ] ++
 184   {- NOTE: with Xinerama
 185   [((m .|. modMask, k), windows $ onCurrentScreen f i)
 186    | (i, k) <- zip (workspaces' conf) [xK_F1 ..]
 187    , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ]
 188   -}
 189
 190   -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
 191   -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
 192   [ ((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
 193   | (key, sc) <- zip [xK_w, xK_e, xK_r] [0 ..]
 194   , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
 195   ] ++
 196
 197   -- mod-shift-[F1..F9], Swap workspace with workspace N
 198   -- mod-shift-[1..9], Swap workspace with workspace N
 199   [ ((modMask .|. controlMask, k), windows $ swapWithCurrent i)
 200   | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 201               zip (workspaces conf) [xK_1 ..]
 202   ]
 203   {- NOTE: with Xinerama
 204   [((modMask .|. controlMask, k), windows $ onCurrentScreen swapWithCurrent i)
 205    | (i, k) <- zip (workspaces' conf) [xK_F1 ..] ]
 206   -}
 207
 208
 209 myMouseBindings
 210  XConfig{XMonad.modMask} =
 211   Map.fromList
 212   [
 213   -- mod-button1, Set the window to floating mode and move by dragging
 214     ((modMask, button1), \w -> focus w >> mouseMoveWindow w)
 215
 216   -- mod-button2, Raise the window to the top of the stack
 217   , ((modMask, button2), \w -> focus w >> windows W.swapMaster)
 218
 219   -- mod-button3, Set the window to floating mode and resize by dragging
 220   , ((modMask, button3), \w -> focus w >> mouseResizeWindow w)
 221
 222   , ((modMask, button4), \_ -> windows W.focusUp)
 223   , ((modMask, button5), \_ -> windows W.focusDown)
 224
 225   -- Cycle through workspaces
 226   , ((controlMask .|. modMask, button5), nextNonEmptyWS)
 227   , ((controlMask .|. modMask, button4), prevNonEmptyWS)
 228   ]
 229   where
 230     nextNonEmptyWS _ = moveTo Next (WSIs ((not .) <$> isWindowSpaceVisible))
 231     prevNonEmptyWS _ = moveTo Prev (WSIs ((not .) <$> isWindowSpaceVisible))
 232
 233 isWindowSpaceVisible :: X (WindowSpace -> Bool)
 234 isWindowSpaceVisible = do
 235   vs <- gets (map (W.tag . W.workspace) . W.visible . windowset)
 236   return (\w -> W.tag w `elem` vs)
 237
 238 defaults xmproc _nScreens = ewmh $
 239  azertyConfig
 240   { borderWidth        = 1
 241   , focusFollowsMouse  = True
 242   , focusedBorderColor = "#00b10b"
 243   , handleEventHook    = handleEventHook def
 244                          <+> XMonad.Hooks.EwmhDesktops.fullscreenEventHook
 245                          <+> XMonad.Layout.Fullscreen.fullscreenEventHook
 246                          <+> docksEventHook
 247                              -- causes new docks to appear immediately,
 248                              -- instead of waiting for the next focus change.
 249   , keys               = myKeys
 250   , layoutHook         = smartBorders $
 251                          mkToggle (NOBORDERS ?? FULL ?? EOT) $ -- enable temporarily maximizing a window
 252                          avoidStruts $ -- prevents windows from overlapping dock windows
 253                          let tall = ResizableTall 1 (1%200) (8%13) [] in tall
 254                          ||| Mirror tall
 255                          ||| tabbed shrinkText tabConfig
 256                          ||| magnifiercz (13%10) Grid
 257                          ||| spiral (6%7)
 258                          ||| noBorders (fullscreenFull Full)
 259                          ||| ThreeColMid 1 (1%200) (1%2)
 260                          -- ||| Tall 1 (3/100) (1/2)
 261   , manageHook         = composeAll
 262                          -- [ , isFullscreen --> (doF W.focusDown <+> doFullFloat)
 263                          [ isFullscreen --> doFullFloat
 264                          , manageHook def
 265                          , manageDocks -- NOTE: do not tile dock windows
 266                          , resource  =? "desktop_window" --> doIgnore
 267                          , className =? "Gimp"           --> doFloat
 268                          , resource  =? "gpicview"       --> doFloat
 269                          --, className =? "MPlayer"        --> doShift "3:media" -- <+> doFloat
 270                          --, className =? "vlc"            --> doShift "3:media"
 271                          , className =? "stalonetray"    --> doIgnore
 272                          ]
 273   , modMask            = mod4Mask
 274   , mouseBindings      = myMouseBindings
 275   , normalBorderColor  = "#7C7C7C"
 276   , startupHook        = setWMName "XMonad"
 277                        <+> spawn "wmname XMonad"
 278                        <+> spawn "xrdb -all .Xresources"
 279                        <+> spawn "sleep 1 && xmodmap .Xmodmap"
 280                        <+> spawn "xset r rate 250 25"
 281                        <+> spawn "xset b off"
 282                        <+> spawn "xhost local:root"
 283                        <+> spawn "setxkbmap -option keypad:pointerkeys"
 284                        -- <+> spawnOnce "exec arbtt-capture -r 60"
 285                        -- <+> spawnOnce "exec parcellite"
 286                        -- <+> spawnOnce "exec urxvtd -o -q"
 287                        -- <+> spawnOnce "exec xautolock"
 288                        -- <+> spawnOnce "exec redshift-gtk -l -45.7800:1.9700 -t 6500:3700"
 289                        <+> spawnOnce "exec nm-applet"
 290                        <+> spawnOnce (List.unwords
 291                                      [ "exec stalonetray"
 292                                      , "--background '#000000'"
 293                                      , "--geometry 5x1-0+0"
 294                                      , "--icon-gravity E"
 295                                      , "--icon-size 16"
 296                                      , "--kludges force_icons_size"
 297                                      , "--max-geometry 0x1+0+0"
 298                                      , "--skip-taskbar"
 299                                      , "--window-strut none"
 300                                      ])
 301   , terminal           = "urxvtc"
 302   , workspaces         = {- withScreens nScreens $ -}
 303                          {-["1:work","2:web","3:media"] ++-}
 304                          map show [1::Int .. 9]
 305   , logHook =
 306    dynamicLogWithPP xmobarPP
 307     { ppCurrent = xmobarColor "black" "#CCCCCC"
 308     , ppHidden  = xmobarColor "#CCCCCC" "black"
 309     , ppHiddenNoWindows = xmobarColor "#606060" "black"
 310     , ppLayout  = \s -> xmobarColor "black" "#606060" $
 311                    case s of
 312                     "ResizableTall"        -> " | "
 313                     "Mirror ResizableTall" -> " - "
 314                     "Tabbed Simplest"      -> " + "
 315                     "Magnifier Grid"       -> " ~ "
 316                     "Spiral"               -> " @ "
 317                     "Full"                 -> " O "
 318                     "ThreeCol"             -> " # "
 319                     _                      -> s
 320     , ppOutput  = hPutStrLn xmproc
 321     , ppSep     = "  "
 322     , ppTitle   = xmobarColor "white" "black" . shorten 100
 323     , ppUrgent  = xmobarColor "yellow" "black"
 324     , ppWsSep   = " "
 325     }
 326     >> updatePointer (0.5, 0.5) (0, 0)
 327     -- >> updatePointer (Relative 0.5 0.5)
 328   }
 329   where
 330     tabConfig = def
 331      { activeBorderColor   = "#7C7C7C"
 332      , activeColor         = "#000000"
 333      , activeTextColor     = "#00FF00"
 334      , inactiveBorderColor = "#7C7C7C"
 335      , inactiveColor       = "#000000"
 336      , inactiveTextColor   = "#EEEEEE"
 337      }
 338
 339 --
 340 -- Run xmonad
 341 --
 342 main = do
 343   nScreens <- countScreens
 344   xmproc <- spawnPipe "exec xmobar ~/.xmonad/xmobar.hs"
 345   xmonad $
 346    withUrgencyHook NoUrgencyHook $ -- dzenUrgencyHook { args = ["-bg", "darkgreen", "-xs", "1"] }
 347    defaults xmproc (nScreens::Integer)