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