home-manager/profiles/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 rofi -show run -no-disable-history -run-command \"bash -c 'systemd-run --user --unit=app-org.rofi.\\$(systemd-escape \\\"{cmd}\\\")@\\$RANDOM -p CollectMode=inactive-or-failed {cmd}'\"")
  58   -- Browse the filesystem
  59   , ((modMask, xK_BackSpace), spawn "systemd-run --user --unit=app-org.rofi.caja@$RANDOM -p CollectMode=inactive-or-failed caja")
  60
  61   -- Lock the screen
  62   , ((0, xK_Pause), spawn "systemctl --user start xss-lock.service; 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 "pactl -- set-sink-mute @DEFAULT_SINK@ toggle") -- XF88AudioMute
  71   , ((0, 0x1008FF11), spawn "pactl -- set-sink-volume @DEFAULT_SINK@ -5%") -- XF86AudioLowerVolume
  72   , ((0, 0x1008FF13), spawn "pactl -- set-sink-volume @DEFAULT_SINK@ +5%") -- XF86AudioRaiseVolume
  73   -- Audio previous
  74   -- , ((0, 0x1008FF16), spawn "")
  75   -- Play/pause
  76   -- , ((0, 0x1008FF14), spawn "")
  77   -- Audio next
  78   -- , ((0, 0x1008FF17), spawn "")
  79   -- Eject CD tray
  80   -- , ((0, 0x1008FF2C), spawn "eject -T")
  81
  82   -- Close focused window.
  83   , ((modMask, xK_Escape), kill)
  84   , ((modMask, xK_q), kill)
  85
  86   -- Clipboard
  87   , ((modMask, xK_c), spawn "clipster --select --primary")
  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 = docks $ ewmhFullscreen $ ewmh $
 240  azertyConfig
 241   { borderWidth        = 1
 242   , focusFollowsMouse  = True
 243   , focusedBorderColor = "#00b10b"
 244   , handleEventHook    = handleEventHook def
 245   , keys               = myKeys
 246   , layoutHook         = smartBorders $
 247                          mkToggle (NOBORDERS ?? FULL ?? EOT) $ -- enable temporarily maximizing a window
 248                          avoidStruts $ -- prevents windows from overlapping dock windows
 249                          let tall = ResizableTall 1 (1%200) (8%13) [] in
 250                          tabbed shrinkText tabConfig
 251                          ||| tall
 252                          ||| Mirror tall
 253                          ||| magnifiercz (13%10) Grid
 254                          ||| spiral (6%7)
 255                          ||| noBorders (fullscreenFull Full)
 256                          ||| ThreeColMid 1 (1%200) (1%2)
 257                          -- ||| Tall 1 (3/100) (1/2)
 258   , manageHook         = composeAll
 259                          -- [ , isFullscreen --> (doF W.focusDown <+> doFullFloat)
 260                          [ isFullscreen --> doFullFloat
 261                          , manageHook def
 262                          , manageDocks -- NOTE: do not tile dock windows
 263                          , resource  =? "desktop_window" --> doIgnore
 264                          , className =? "Gimp"           --> doFloat
 265                          , resource  =? "gpicview"       --> doSink
 266                          , className =? "mpv"            --> doFloat
 267                          --, className =? "MPlayer"        --> doShift "3:media" -- <+> doFloat
 268                          --, className =? "vlc"            --> doShift "3:media"
 269                          , className =? "stalonetray"    --> doIgnore
 270                          ]
 271   , modMask            = mod4Mask
 272   , mouseBindings      = myMouseBindings
 273   , normalBorderColor  = "#7C7C7C"
 274   , startupHook        = setWMName "XMonad"
 275                        <+> spawn "wmname XMonad"
 276                        <+> spawn "xrdb -all .Xresources"
 277                        <+> spawn "sleep 1 && xmodmap .Xmodmap"
 278                        <+> spawn "xset r rate 250 25"
 279                        <+> spawn "xset b off"
 280                        <+> spawn "xhost local:root"
 281                        <+> spawn "setxkbmap -option keypad:pointerkeys"
 282                        -- Useful for programs launched by rofi
 283                        <+> spawnOnce "exec systemctl --user import-environment GNUPGHOME PASSWORD_STORE_DIR PATH"
 284                        -- <+> spawnOnce "exec arbtt-capture -r 60"
 285                        -- <+> spawnOnce "exec parcellite"
 286                        -- <+> spawnOnce "exec xautolock"
 287                        -- <+> spawnOnce "exec redshift-gtk -l -45.7800:1.9700 -t 6500:3700"
 288                        <+> spawnOnce "exec nm-applet"
 289                        <+> spawnOnce (List.unwords
 290                                      [ "exec stalonetray"
 291                                      , "--background '#000000'"
 292                                      , "--geometry 5x1-0+0"
 293                                      , "--icon-gravity E"
 294                                      , "--icon-size 16"
 295                                      , "--kludges force_icons_size"
 296                                      , "--max-geometry 0x1+0+0"
 297                                      , "--skip-taskbar"
 298                                      , "--window-strut none"
 299                                      ])
 300   , terminal           = "urxvtc"
 301   , workspaces         = {- withScreens nScreens $ -}
 302                          {-["1:work","2:web","3:media"] ++-}
 303                          map show [1::Int .. 9]
 304   , logHook =
 305    dynamicLogWithPP xmobarPP
 306     { ppCurrent = xmobarColor "black" "#CCCCCC"
 307     , ppHidden  = xmobarColor "#CCCCCC" "black"
 308     , ppHiddenNoWindows = xmobarColor "#606060" "black"
 309     , ppLayout  = \s -> xmobarColor "black" "#606060" $
 310                    case s of
 311                     "ResizableTall"        -> " | "
 312                     "Mirror ResizableTall" -> " - "
 313                     "Tabbed Simplest"      -> " + "
 314                     "Magnifier Grid"       -> " ~ "
 315                     "Spiral"               -> " @ "
 316                     "Full"                 -> " O "
 317                     "ThreeCol"             -> " # "
 318                     _                      -> s
 319     , ppOutput  = hPutStrLn xmproc
 320     , ppSep     = "  "
 321     , ppTitle   = xmobarColor "white" "black" . shorten 50
 322     , ppUrgent  = xmobarColor "yellow" "black"
 323     , ppWsSep   = " "
 324     }
 325     >> updatePointer (0.5, 0.5) (0, 0)
 326     -- >> updatePointer (Relative 0.5 0.5)
 327   }
 328   where
 329     tabConfig = def
 330      { activeBorderColor   = "#7C7C7C"
 331      , activeColor         = "#000000"
 332      , activeTextColor     = "#00FF00"
 333      , inactiveBorderColor = "#7C7C7C"
 334      , inactiveColor       = "#000000"
 335      , inactiveTextColor   = "#EEEEEE"
 336      , fontName            = "Hack 7"
 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)