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 qualified Data.Char as Char
   6 import Data.List as List
   7 import Data.Ratio
   8 import System.Exit
   9 import qualified Data.Map as Map
  10 import Control.Arrow (first)
  11
  12 -- import XMonad.Actions.DwmPromote
  13 -- import XMonad.Actions.Warp
  14 -- import XMonad.Layout.Maximize
  15 -- import XMonad.Layout.Monitor
  16 -- import XMonad.Layout.ResizableTile
  17 -- import XMonad.Layout.TabBarDecoration
  18 -- import XMonad.Util.EZConfig
  19 -- import XMonad.Util.EZConfig(additionalKeys)
  20 -- import XMonad.Util.WorkspaceCompare
  21 import XMonad hiding ((|||))
  22 import XMonad.Actions.CopyWindow
  23 import XMonad.Actions.CycleWS
  24 import XMonad.Actions.SwapWorkspaces
  25 import XMonad.Actions.UpdatePointer
  26 import XMonad.Config.Azerty
  27 import XMonad.Hooks.DynamicLog
  28 import XMonad.Hooks.EwmhDesktops
  29 import XMonad.Hooks.ManageDocks
  30 import XMonad.Hooks.ManageHelpers
  31 import XMonad.Hooks.Rescreen
  32 import XMonad.Hooks.SetWMName
  33 import XMonad.Hooks.StatusBar
  34 import XMonad.Hooks.UrgencyHook
  35 import XMonad.Layout.Fullscreen
  36 import XMonad.Layout.Grid
  37 import XMonad.Layout.LayoutCombinators
  38 import XMonad.Layout.Magnifier
  39 import XMonad.Layout.MultiToggle
  40 import XMonad.Layout.MultiToggle.Instances
  41 import XMonad.Layout.NoBorders
  42 import XMonad.Layout.ResizableTile
  43 import XMonad.Layout.Spiral
  44 import XMonad.Layout.Tabbed
  45 import XMonad.Layout.ThreeColumns
  46 import XMonad.Prompt
  47 import XMonad.Prompt.FuzzyMatch
  48 import XMonad.Prompt.Pass
  49 --import XMonad.Operations (unGrab) -- TODO: needs xmonad 0.18
  50 import XMonad.Util.SpawnOnce
  51 import qualified XMonad.StackSet as W
  52
  53 main = xmonad $
  54   withUrgencyHook NoUrgencyHook $
  55   -- dzenUrgencyHook { args = ["-bg", "darkgreen", "-xs", "1"] } $
  56   --addAfterRescreenHook myAfterRescreenHook $
  57   addRandrChangeHook (spawnExec "autorandr --change") $
  58   dynamicSBs barSpawner $
  59   docks $
  60   setEwmhActivateHook doAskUrgent $
  61   ewmhFullscreen $
  62   ewmh $
  63   azertyConfig
  64   { borderWidth = 1
  65   , focusFollowsMouse = True
  66   , focusedBorderColor = "#00b10b"
  67   , handleEventHook = handleEventHook def
  68   , keys = \conf@XConfig{XMonad.modMask} ->
  69       Map.fromList $
  70       let xK_XF86Backward = 0x1008ff26
  71           xK_XF86Forward = 0x1008ff27 in
  72       [
  73       -- Start a terminal
  74         ((modMask, xK_Return), spawnExec $ XMonad.terminal conf)
  75       -- Launch a program
  76       , ((modMask, xK_Menu), spawnCommand)
  77       , ((modMask, xK_a), spawnCommand)
  78       -- Browse the filesystem
  79       , ((modMask, xK_BackSpace), spawnExec "systemd-run --user --unit=app-org.rofi.caja@$RANDOM -p CollectMode=inactive-or-failed caja")
  80
  81       -- Lock the screen
  82       , ((0, xK_Pause), {-unGrab >>-} spawnExec "loginctl lock-session \"$XDG_SESSION_ID\"")
  83       , ((modMask, xK_Delete), {-unGrab >>-} spawnExec "loginctl lock-session \"$XDG_SESSION_ID\"")
  84
  85       -- Take a full screenshot
  86       , ((0, xK_Print), spawn "mkdir -p ~/Images/screenshots && scrot --quality 42 ~/Images/screenshots/'%Y-%m-%d_%H-%M-%S.png' && caja ~/Images/screenshots")
  87       -- Take a selective screenshot
  88       , ((modMask, xK_Print), spawn "select-screenshot")
  89
  90       -- Volume control
  91       , ((0, 0x1008FF12), spawnExec "pactl -- set-sink-mute @DEFAULT_SINK@ toggle") -- XF88AudioMute
  92       , ((0, 0x1008FF11), spawnExec "pactl -- set-sink-volume @DEFAULT_SINK@ -5%") -- XF86AudioLowerVolume
  93       , ((0, 0x1008FF13), spawnExec "pactl -- set-sink-volume @DEFAULT_SINK@ +5%") -- XF86AudioRaiseVolume
  94       -- Audio previous
  95       -- , ((0, 0x1008FF16), spawnExec "")
  96       -- Play/pause
  97       -- , ((0, 0x1008FF14), spawnExec "")
  98       -- Audio next
  99       -- , ((0, 0x1008FF17), spawnExec "")
 100       -- Eject CD tray
 101       -- , ((0, 0x1008FF2C), spawnExec "eject -T")
 102
 103       -- Close focused window.
 104       , ((modMask, xK_Escape), kill)
 105       , ((modMask, xK_q), kill)
 106
 107       -- Clipboard
 108       , ((modMask, xK_c), spawnExec "clipster --select --primary")
 109
 110       -- Temporarily maximize a window
 111       , ((modMask, xK_f), sendMessage $ XMonad.Layout.MultiToggle.Toggle FULL)
 112       -- , ((modMask, xK_f), withFocused (sendMessage . maximizeRestore))
 113
 114       -- Cycle through the available layout algorithms
 115       , ((modMask, 0x13bd),        sendMessage NextLayout) -- oe (²)
 116       , ((modMask, xK_ampersand),  sendMessage $ JumpToLayout "ResizableTall") -- & (1)
 117       , ((modMask, xK_eacute),     sendMessage $ JumpToLayout "Mirror ResizableTall") -- é (2)
 118       , ((modMask, xK_quotedbl),   sendMessage $ JumpToLayout "Tabbed Simplest") -- ' (3)
 119       , ((modMask, xK_apostrophe), sendMessage $ JumpToLayout "Magnifier Grid") -- " (4)
 120       , ((modMask, xK_parenleft),  sendMessage $ JumpToLayout "Spiral") -- ( (5)
 121       , ((modMask, xK_minus),      sendMessage $ JumpToLayout "Full") -- - (6)
 122       , ((modMask, xK_egrave),     sendMessage $ JumpToLayout "ThreeCol") -- è (7)
 123
 124       -- Reset the layouts on the current workspace to default
 125       -- , ((modMask .|. shiftMask, xK_space), setLayout $ XMonad.layoutHook conf)
 126
 127       -- Resize viewed windows to the correct size.
 128       , ((modMask, xK_n), refresh)
 129
 130       -- Move focus between windows
 131       , ((modMask, xK_Tab), windows W.focusDown)
 132       , ((modMask .|. shiftMask, xK_Tab), windows W.focusUp)
 133       , ((modMask, xK_i), windows W.focusUp)
 134       , ((modMask, xK_k), windows W.focusDown)
 135
 136       -- Move focus to the master window
 137       , ((modMask, xK_m), windows W.focusMaster)
 138       -- Swap the focused window and the master window
 139       , ((modMask, xK_space), windows W.swapMaster)
 140
 141       -- Swap the focused window with the next window.
 142       --, ((modMask, xK_o), windows W.swapDown >> windows W.focusMaster)
 143       -- Swap the focused window with the previous window.
 144       , ((modMask, xK_m), windows W.swapUp >> windows W.focusMaster)
 145
 146       -- Push window back into tiling.
 147       , ((modMask, xK_t), withFocused $ windows . W.sink)
 148
 149       -- Change the number of windows in the master area
 150       , ((modMask, xK_Up), sendMessage $ IncMasterN 1)
 151       , ((modMask, xK_Down), sendMessage $ IncMasterN (-1))
 152
 153       -- Toggle the status bar gap.
 154       , ((modMask, xK_b), sendMessage ToggleStruts)
 155
 156       -- Quit xmonad
 157       , ((modMask .|. shiftMask, xK_End), io exitSuccess)
 158       -- Restart xmonad
 159       , ((modMask, xK_End), restart "xmonad" True)
 160
 161       , ((modMask, xK_p), passPrompt dtXPConfig)
 162       , ((modMask .|. controlMask, xK_p), passGeneratePrompt dtXPConfig)
 163       , ((modMask .|. controlMask  .|. shiftMask, xK_p), passRemovePrompt dtXPConfig)
 164
 165       -- Workspace management
 166       -- XF86Back: Switch to previous workspace
 167       , ((0, xK_XF86Backward), prevWS)
 168       , ((modMask, xK_j), prevWS)
 169       , ((modMask, xK_Page_Up), prevWS)
 170       -- Switch to next workspace
 171       , ((0, xK_XF86Forward), nextWS)
 172       , ((modMask, xK_l), nextWS)
 173       , ((modMask, xK_Page_Down), nextWS)
 174       -- XF86Back: Move the current client to the previous workspace and go there
 175       , ((modMask, xK_XF86Backward), shiftToPrev >> prevWS)
 176       , ((modMask .|. shiftMask, xK_j), shiftToPrev >> prevWS)
 177       -- Move the current client to the next workspace and go there
 178       , ((modMask, xK_XF86Forward), shiftToNext >> nextWS)
 179       , ((modMask .|. shiftMask, xK_l), shiftToNext >> nextWS)
 180       -- Switch to previous workspace
 181       -- Switch to next workspace
 182       {-
 183       -- Move the current client to the previous workspace
 184       , ((0 .|. shiftMask   , xK_XF86Backward), shiftToPrev          )
 185       -- Move the current client to the next workspace
 186       , ((0 .|. shiftMask   , xK_XF86Forward), shiftToNext          )
 187       -}
 188
 189       -- Toggle copying window on all workspaces (sticky window)
 190       , ((modMask, xK_s), do
 191           copies <- wsContainingCopies -- NOTE: consider only hidden workspaces
 192           case copies of
 193            [] -> windows copyToAll
 194            _  -> killAllOtherCopies
 195         )
 196
 197       -- Resize the master area
 198       , ((modMask, xK_Left), sendMessage Shrink)
 199       , ((modMask, xK_Right), sendMessage Expand)
 200       -- Resize windows in ResizableTall mode
 201       , ((modMask .|. shiftMask, xK_Left), sendMessage MirrorShrink)
 202       , ((modMask .|. shiftMask, xK_Right), sendMessage MirrorExpand)
 203       ] ++
 204
 205       -- mod-[F1..F9], Switch to workspace N
 206       -- mod-shift-[F1..F9], Move client to workspace N
 207       [ ((m .|. modMask, k), windows $ f i)
 208       | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 209                   zip (workspaces conf) [xK_1 ..]
 210       , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
 211       ] ++
 212       {- NOTE: with Xinerama
 213       [((m .|. modMask, k), windows $ onCurrentScreen f i)
 214        | (i, k) <- zip (workspaces' conf) [xK_F1 ..]
 215        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ]
 216       -}
 217
 218       -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
 219       -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
 220       [ ((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
 221       | (key, sc) <- zip [xK_w, xK_e, xK_r] [0 ..]
 222       , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]
 223       ] ++
 224
 225       -- mod-shift-[F1..F9], Swap workspace with workspace N
 226       -- mod-shift-[1..9], Swap workspace with workspace N
 227       [ ((modMask .|. controlMask, k), windows $ swapWithCurrent i)
 228       | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 229                   zip (workspaces conf) [xK_1 ..]
 230       ]
 231       {- NOTE: with Xinerama
 232       [((modMask .|. controlMask, k), windows $ onCurrentScreen swapWithCurrent i)
 233        | (i, k) <- zip (workspaces' conf) [xK_F1 ..] ]
 234       -}
 235       , layoutHook         = smartBorders $
 236                              mkToggle (NOBORDERS ?? FULL ?? EOT) $ -- enable temporarily maximizing a window
 237                              avoidStruts $ -- prevents windows from overlapping dock windows
 238                              let tall = ResizableTall 1 (1%200) (8%13) [] in
 239                              tabbed shrinkText tabConfig
 240                              ||| tall
 241                              ||| Mirror tall
 242                              ||| magnifiercz (13%10) Grid
 243                              ||| spiral (6%7)
 244                              ||| noBorders (fullscreenFull Full)
 245                              ||| ThreeColMid 1 (1%200) (1%2)
 246                              -- ||| Tall 1 (3/100) (1/2)
 247       , manageHook         = composeAll
 248                              -- [ , isFullscreen --> (doF W.focusDown <+> doFullFloat)
 249                              [ isFullscreen --> doFullFloat
 250                              , manageHook def
 251                              , manageDocks -- NOTE: do not tile dock windows
 252                              , resource  =? "desktop_window" --> doIgnore
 253                              , className =? "Gimp" --> doFloat
 254                              , resource  =? "gpicview" --> doSink
 255                              , className =? "mpv" --> doFloat
 256                              --, className =? "MPlayer" --> doShift "3:media" -- <+> doFloat
 257                              --, className =? "vlc" --> doShift "3:media"
 258                              , className =? "trayer" --> doIgnore
 259                              ]
 260   , modMask = mod4Mask
 261   , mouseBindings = \XConfig{XMonad.modMask} ->
 262       Map.fromList
 263       [
 264       -- mod-button1, Set the window to floating mode and move by dragging
 265         ((modMask, button1), \w -> focus w >> mouseMoveWindow w)
 266
 267       -- mod-button2, Raise the window to the top of the stack
 268       , ((modMask, button2), \w -> focus w >> windows W.swapMaster)
 269
 270       -- mod-button3, Set the window to floating mode and resize by dragging
 271       , ((modMask, button3), \w -> focus w >> mouseResizeWindow w)
 272
 273       , ((modMask, button4), \_ -> windows W.focusUp)
 274       , ((modMask, button5), \_ -> windows W.focusDown)
 275
 276       -- Cycle through workspaces
 277       , ((controlMask .|. modMask, button5), nextNonEmptyWS)
 278       , ((controlMask .|. modMask, button4), prevNonEmptyWS)
 279       ]
 280   , normalBorderColor = "#7C7C7C"
 281   , startupHook = setWMName "XMonad"
 282       <+> spawnExec "wmname XMonad"
 283       <+> spawnExec "xrdb -all .Xresources"
 284       <+> spawn "sleep 1 && xmodmap .Xmodmap"
 285       <+> spawnExec "xset r rate 250 25"
 286       <+> spawnExec "xset b off"
 287       <+> spawnExec "xhost local:root"
 288       <+> spawnExec "setxkbmap -option keypad:pointerkeys"
 289       -- Useful for programs launched by rofi
 290       <+> spawnExec "systemctl --user import-environment GNUPGHOME PASSWORD_STORE_DIR PATH"
 291       -- <+> spawnOnce "exec arbtt-capture -r 60"
 292       -- <+> spawnOnce "exec parcellite"
 293       -- <+> spawnOnce "exec xautolock"
 294       -- <+> spawnOnce "exec redshift-gtk -l -45.7800:1.9700 -t 6500:3700"
 295       <+> spawnOnce "exec nm-applet"
 296   , terminal = "urxvtc"
 297   , workspaces = {- withScreens nScreens $ -}
 298                  {-["1:work","2:web","3:media"] ++-}
 299                  map show [1::Int .. 9]
 300   , logHook = updatePointer (0.5, 0.5) (0, 0)
 301     -- >> updatePointer (Relative 0.5 0.5)
 302   }
 303   where
 304     tabConfig = def
 305      { activeBorderColor   = "#7C7C7C"
 306      , activeColor         = "#000000"
 307      , activeTextColor     = "#00FF00"
 308      , inactiveBorderColor = "#7C7C7C"
 309      , inactiveColor       = "#000000"
 310      , inactiveTextColor   = "#EEEEEE"
 311      , fontName            = "Hack 7"
 312      }
 313
 314 spawnCommand = spawnExec "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}'\""
 315
 316 barSpawner :: ScreenId -> IO StatusBarConfig
 317 barSpawner 0 = pure $ topXmobar <> traySB
 318 --barSpawner 1 = pure $ xmobar1
 319 barSpawner _ = pure $ topXmobar -- nothing on the rest of the screens
 320
 321 -- Display properties of the root window:
 322 -- xprop -display $DISPLAY -root
 323 topXmobar = statusBarPropTo "_XMONAD_XMOBAR0" "xmobar -x 0 ~/.config/xmonad/xmobar0.hs" (pure topPP)
 324   where
 325   topPP =
 326      xmobarPP
 327       { ppCurrent = xmobarColor "black" "#CCCCCC"
 328       , ppHidden  = xmobarColor "#CCCCCC" "black"
 329       , ppHiddenNoWindows = xmobarColor "#606060" "black"
 330       , ppLayout  = \s -> xmobarColor "black" "#606060" $
 331                      case s of
 332                        "ResizableTall"        -> " | "
 333                        "Mirror ResizableTall" -> " - "
 334                        "Tabbed Simplest"      -> " + "
 335                        "Magnifier Grid"       -> " ~ "
 336                        "Spiral"               -> " @ "
 337                        "Full"                 -> " O "
 338                        "ThreeCol"             -> " # "
 339                        _                      -> s
 340       , ppSep     = "  "
 341       , ppTitle   = xmobarColor "white" "black" . shorten 50
 342       , ppUrgent  = xmobarColor "yellow" "black"
 343       , ppWsSep   = " "
 344       }
 345
 346 traySB :: StatusBarConfig
 347 traySB =
 348   statusBarGeneric
 349     ( List.unwords
 350         [ "trayer"
 351         , "--align right"
 352         , "--distance 0,0"
 353         , "--distancefrom top,right"
 354         , "--edge top"
 355         , "--expand true"
 356         , "--height 16"
 357         , "--monitor primary"
 358         , "--tint 0x000000"
 359         , "--iconspacing 0"
 360         , "--transparent true"
 361         , "--widthtype request"
 362         , "-l"
 363         ]
 364     )
 365     mempty
 366
 367 nextNonEmptyWS _ = moveTo Next (WSIs ((not .) <$> isWindowSpaceVisible))
 368 prevNonEmptyWS _ = moveTo Prev (WSIs ((not .) <$> isWindowSpaceVisible))
 369
 370 isWindowSpaceVisible :: X (WindowSpace -> Bool)
 371 isWindowSpaceVisible = do
 372   vs <- gets (map (W.tag . W.workspace) . W.visible . windowset)
 373   return (\w -> W.tag w `elem` vs)
 374
 375 spawnExec s = spawn $ List.unwords $ [ "exec" ] <> systemdCat <> [ s ]
 376 systemdCat = [ "systemd-cat" , "--priority=info", "--stderr-priority=warning", "--level-prefix=false" , "--" ]
 377
 378 dtXPConfig :: XPConfig
 379 dtXPConfig = def
 380   { font                = "Hack 7"
 381   , bgColor             = "#282c34"
 382   , fgColor             = "#bbc2cf"
 383   , bgHLight            = "#c792ea"
 384   , fgHLight            = "#000000"
 385   , borderColor         = "#535974"
 386   , promptBorderWidth   = 0
 387   , promptKeymap        = dtXPKeymap
 388   , position            = Top
 389   -- , position            = CenteredAt { xpCenterY = 0.3, xpWidth = 0.3 }
 390   , height              = 23
 391   , historySize         = 256
 392   , historyFilter       = id
 393   , defaultText         = []
 394   , autoComplete        = Just 100000  -- set Just 100000 for .1 sec
 395   , showCompletionOnTab = False
 396   -- , searchPredicate     = isPrefixOf
 397   , searchPredicate     = fuzzyMatch
 398   , defaultPrompter     = id $ List.map Char.toUpper  -- change prompt to UPPER
 399   -- , defaultPrompter     = unwords . map reverse . words  -- reverse the prompt
 400   -- , defaultPrompter     = drop 5 .id (++ "XXXX: ")  -- drop first 5 chars of prompt and add XXXX:
 401   , alwaysHighlight     = True
 402   , maxComplRows        = Nothing      -- set to 'Just 5' for 5 rows
 403   }
 404
 405 dtXPKeymap :: Map.Map (KeyMask,KeySym) (XP ())
 406 dtXPKeymap = Map.fromList $
 407      List.map (first $ (,) controlMask) -- control + <key>
 408      [ (xK_z, killBefore)               -- kill line backwards
 409      , (xK_k, killAfter)                -- kill line forwards
 410      , (xK_a, startOfLine)              -- move to the beginning of the line
 411      , (xK_e, endOfLine)                -- move to the end of the line
 412      , (xK_m, deleteString Next)        -- delete a character foward
 413      , (xK_b, moveCursor Prev)          -- move cursor forward
 414      , (xK_f, moveCursor Next)          -- move cursor backward
 415      , (xK_BackSpace, killWord Prev)    -- kill the previous word
 416      , (xK_y, pasteString)              -- paste a string
 417      , (xK_g, quit)                     -- quit out of prompt
 418      , (xK_bracketleft, quit)
 419      ]
 420      ++
 421      List.map (first $ (,) altMask)     -- meta key + <key>
 422      [ (xK_BackSpace, killWord Prev)    -- kill the prev word
 423      , (xK_f, moveWord Next)            -- move a word forward
 424      , (xK_b, moveWord Prev)            -- move a word backward
 425      , (xK_d, killWord Next)            -- kill the next word
 426      , (xK_n, moveHistory W.focusUp')   -- move up thru history
 427      , (xK_p, moveHistory W.focusDown') -- move down thru history
 428      ]
 429      ++
 430      List.map (first $ (,) 0) -- <key>
 431      [ (xK_Return, setSuccess True >> setDone True)
 432      , (xK_KP_Enter, setSuccess True >> setDone True)
 433      , (xK_BackSpace, deleteString Prev)
 434      , (xK_Delete, deleteString Next)
 435      , (xK_Left, moveCursor Prev)
 436      , (xK_Right, moveCursor Next)
 437      , (xK_Home, startOfLine)
 438      , (xK_End, endOfLine)
 439      , (xK_Down, moveHistory W.focusUp')
 440      , (xK_Up, moveHistory W.focusDown')
 441      , (xK_Escape, quit)
 442      ]
 443
 444 altMask :: KeyMask
 445 altMask = mod1Mask