home-manager/profiles/xmonad/xmonad.hs

   1 {-# LANGUAGE GHC2024 #-}
   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.RefocusLast
  32 import XMonad.Hooks.Rescreen
  33 import XMonad.Hooks.SetWMName
  34 import XMonad.Hooks.StatusBar
  35 import XMonad.Hooks.UrgencyHook
  36 import XMonad.Layout.Columns
  37 import XMonad.Layout.Fullscreen
  38 import XMonad.Layout.Grid
  39 import XMonad.Layout.LayoutCombinators
  40 import XMonad.Layout.Magnifier
  41 import XMonad.Layout.MultiToggle
  42 import XMonad.Layout.MultiToggle.Instances
  43 import XMonad.Layout.NoBorders
  44 import XMonad.Layout.ResizableTile
  45 import XMonad.Layout.Spiral
  46 import XMonad.Layout.Tabbed
  47 import XMonad.Layout.ThreeColumns
  48 import XMonad.Layout.WindowNavigation
  49 import XMonad.ManageHook
  50 import XMonad.Operations (unGrab)
  51 import XMonad.Prompt
  52 import XMonad.Prompt.FuzzyMatch
  53 import XMonad.Prompt.Pass
  54 import XMonad.Prompt.Window
  55 import XMonad.Util.NamedScratchpad
  56 import XMonad.Util.SpawnOnce
  57 import qualified XMonad.StackSet as W
  58
  59 main = xmonad $
  60   withUrgencyHook NoUrgencyHook $
  61   -- dzenUrgencyHook { args = ["-bg", "darkgreen", "-xs", "1"] } $
  62   --addAfterRescreenHook myAfterRescreenHook $
  63   addRandrChangeHook (spawnExec "autorandr --change") $
  64   dynamicSBs barSpawner $
  65   docks $
  66   setEwmhActivateHook doAskUrgent $
  67   ewmhFullscreen $
  68   ewmh $
  69   azertyConfig
  70   { borderWidth = 1
  71   , focusFollowsMouse = True
  72   , focusedBorderColor = "#00b10b"
  73   , handleEventHook = handleEventHook def
  74   , keys = \conf@XConfig{XMonad.modMask} ->
  75       Map.fromList $
  76       let xK_XF86Backward = 0x1008ff26
  77           xK_XF86Forward = 0x1008ff27 in
  78       [
  79       -- Start a terminal
  80         ((modMask, xK_Return), spawnExec $ XMonad.terminal conf)
  81       -- Launch a program
  82       , ((modMask, xK_Menu), spawnCommand)
  83       , ((modMask, xK_space), spawnCommand)
  84       -- Browse the filesystem
  85       , ((modMask, xK_BackSpace), spawnExec "systemd-run --user --unit=app-org.rofi.caja@$RANDOM -p CollectMode=inactive-or-failed caja")
  86
  87       -- Lock the screen
  88       , ((0, xK_Pause), unGrab >> spawnExec "loginctl lock-session \"$XDG_SESSION_ID\"")
  89       , ((modMask, xK_Delete), unGrab >> spawnExec "loginctl lock-session \"$XDG_SESSION_ID\"")
  90
  91       -- Take a full screenshot
  92       , ((0, xK_Print), spawn "mkdir -p ~/Images/screenshots && scrot --quality 42 ~/Images/screenshots/'%Y-%m-%d_%H-%M-%S.png' && caja ~/Images/screenshots")
  93       -- Take a selective screenshot
  94       , ((modMask, xK_Print), spawn "select-screenshot")
  95
  96       -- Volume control
  97       , ((0, 0x1008FF12), spawnExec "pactl -- set-sink-mute @DEFAULT_SINK@ toggle") -- XF88AudioMute
  98       , ((0, 0x1008FF11), spawnExec "pactl -- set-sink-volume @DEFAULT_SINK@ -5%") -- XF86AudioLowerVolume
  99       , ((0, 0x1008FF13), spawnExec "pactl -- set-sink-volume @DEFAULT_SINK@ +5%") -- XF86AudioRaiseVolume
 100       -- Audio previous
 101       -- , ((0, 0x1008FF16), spawnExec "")
 102       -- Play/pause
 103       -- , ((0, 0x1008FF14), spawnExec "")
 104       -- Audio next
 105       -- , ((0, 0x1008FF17), spawnExec "")
 106       -- Eject CD tray
 107       -- , ((0, 0x1008FF2C), spawnExec "eject -T")
 108
 109       -- Close focused window.
 110       , ((modMask, xK_Escape), kill)
 111
 112       -- Clipboard
 113       , ((modMask, xK_c), spawnExec "clipster --select --primary")
 114
 115       -- Temporarily maximize a window
 116       , ((modMask, xK_f), sendMessage $ XMonad.Layout.MultiToggle.Toggle FULL)
 117       -- , ((modMask, xK_f), withFocused (sendMessage . maximizeRestore))
 118
 119       -- Cycle through the available layout algorithms
 120       , ((modMask, 0x13bd),        sendMessage NextLayout) -- oe (²)
 121       , ((modMask, xK_ampersand),  sendMessage $ JumpToLayout "ResizableTall") -- & (1)
 122       , ((modMask, xK_eacute),     sendMessage $ JumpToLayout "Mirror ResizableTall") -- é (2)
 123       , ((modMask, xK_quotedbl),   sendMessage $ JumpToLayout "Tabbed Simplest") -- ' (3)
 124       , ((modMask, xK_apostrophe), sendMessage $ JumpToLayout "Magnifier Grid") -- " (4)
 125       , ((modMask, xK_parenleft),  sendMessage $ JumpToLayout "Spiral") -- ( (5)
 126       , ((modMask, xK_minus),      sendMessage $ JumpToLayout "Full") -- - (6)
 127       , ((modMask, xK_egrave),     sendMessage $ JumpToLayout "ThreeCol") -- è (7)
 128       , ((modMask, xK_underscore), sendMessage $ JumpToLayout "Columns") -- _ (8)
 129
 130       -- Reset the layouts on the current workspace to default
 131       -- , ((modMask .|. shiftMask, xK_space), setLayout $ XMonad.layoutHook conf)
 132
 133       -- Resize viewed windows to the correct size.
 134       , ((modMask, xK_n), refresh)
 135
 136       -- Move focus to the master window
 137       , ((modMask .|. shiftMask, xK_exclam), windows W.focusMaster)
 138       -- Swap the focused window and the master window
 139       , ((modMask, xK_exclam), 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       -- Move focus
 147       , ((modMask, xK_h), sendMessage $ Go L)
 148       , ((modMask, xK_m), sendMessage $ Go R)
 149       --, ((modMask, xK_i), sendMessage $ Go U)
 150       --, ((modMask, xK_k), sendMessage $ Go D)
 151       , ((modMask, xK_i), windows W.focusUp)
 152       , ((modMask, xK_k), windows W.focusDown)
 153       , ((modMask, xK_j), prevWS)
 154       , ((modMask, xK_l), nextWS)
 155       , ((modMask, xK_Left), windows W.focusUp)
 156       , ((modMask, xK_Right), windows W.focusDown)
 157       --, ((modMask, xK_Left), onGroup W.focusUp')
 158       --, ((modMask, xK_Right), onGroup W.focusDown')
 159       , ((modMask, xK_Up), sendMessage $ Go U)
 160       , ((modMask, xK_Down), sendMessage $ Go D)
 161
 162       -- Move windows
 163       , ((modMask .|. shiftMask, xK_h), sendMessage MoveLeft)
 164       , ((modMask .|. shiftMask, xK_m), sendMessage MoveRight)
 165       , ((modMask .|. controlMask, xK_h), sendMessage MoveLeft)
 166       , ((modMask .|. controlMask, xK_m), sendMessage MoveRight)
 167       , ((modMask .|. controlMask, xK_i), sendMessage MoveUp)
 168       , ((modMask .|. controlMask, xK_k), sendMessage MoveDown)
 169       , ((modMask .|. controlMask, xK_j), shiftToPrev >> prevWS)
 170       , ((modMask .|. controlMask, xK_l), shiftToNext >> nextWS)
 171
 172       -- Resize windows
 173       , ((modMask .|. shiftMask, xK_l), sendMessage HorizontalExpand)
 174       , ((modMask .|. shiftMask, xK_j), sendMessage HorizontalShrink)
 175       , ((modMask .|. shiftMask, xK_i), sendMessage VerticalExpand)
 176       , ((modMask .|. shiftMask, xK_k), sendMessage VerticalShrink)
 177
 178       -- Push window back into tiling.
 179       , ((modMask, xK_t), withFocused $ windows . W.sink)
 180
 181       -- Change the number of windows in the master area
 182       , ((modMask, xK_Up), sendMessage $ IncMasterN 1)
 183       , ((modMask, xK_Down), sendMessage $ IncMasterN (-1))
 184
 185       -- Toggle the status bar gap.
 186       , ((modMask, xK_b), sendMessage ToggleStruts)
 187
 188       -- Quit xmonad
 189       , ((modMask .|. shiftMask, xK_End), io exitSuccess)
 190       -- Restart xmonad
 191       , ((modMask, xK_End), restart "xmonad" True)
 192
 193       , ((modMask, xK_p), passPrompt promptConfig)
 194       , ((modMask .|. controlMask, xK_p), passGeneratePrompt promptConfig)
 195       , ((modMask .|. controlMask  .|. shiftMask, xK_p), passRemovePrompt promptConfig)
 196       , ((modMask, xK_Tab), windowMultiPrompt promptConfig [(Goto, allWindows), (Goto, wsWindows)])
 197
 198       -- Jump to latest viewed workspace
 199       , ((modMask, xK_less), toggleWS' ["NSP"])
 200
 201       -- Workspace management
 202       -- XF86Back: Switch to previous workspace
 203       , ((0, xK_XF86Backward), prevWS)
 204       , ((modMask, xK_Page_Up), prevWS)
 205       -- Switch to next workspace
 206       , ((0, xK_XF86Forward), nextWS)
 207       , ((modMask, xK_Page_Down), nextWS)
 208       -- XF86Back: Move the current client to the previous workspace and go there
 209       , ((modMask, xK_XF86Backward), shiftToPrev >> prevWS)
 210       -- Move the current client to the next workspace and go there
 211       , ((modMask, xK_XF86Forward), shiftToNext >> nextWS)
 212       -- Switch to previous workspace
 213       -- Switch to next workspace
 214       {-
 215       -- Move the current client to the previous workspace
 216       , ((0 .|. shiftMask   , xK_XF86Backward), shiftToPrev          )
 217       -- Move the current client to the next workspace
 218       , ((0 .|. shiftMask   , xK_XF86Forward), shiftToNext          )
 219       -}
 220
 221       -- Toggle copying window on all workspaces (sticky window)
 222       , ((modMask, xK_s), do
 223           copies <- wsContainingCopies -- NOTE: consider only hidden workspaces
 224           case copies of
 225            [] -> windows copyToAll
 226            _  -> killAllOtherCopies
 227         )
 228
 229       -- Resize the master area
 230       --, ((modMask, xK_Left), sendMessage Shrink)
 231       --, ((modMask, xK_Right), sendMessage Expand)
 232       -- Resize windows in ResizableTall mode
 233       --, ((modMask .|. shiftMask, xK_Left), sendMessage MirrorShrink)
 234       --, ((modMask .|. shiftMask, xK_Right), sendMessage MirrorExpand)
 235       ] ++
 236
 237       -- Dynamic scratchpads
 238       (mconcat
 239         [ [ ((modMask .|. altMask .|. controlMask, key), withFocused $ toggleDynamicNSP name)
 240           , ((modMask .|. altMask, key), dynamicNSPAction name)
 241           ]
 242         | (key, chr) <- zip [xK_a..] ['a'..'z']
 243         , let name = [chr]
 244         ]
 245       ) ++
 246
 247       -- Named scratchpads
 248       -- Note: those keybindings override dynamic scratchpads above
 249       [ ((modMask .|. altMask, xK_b), namedScratchpadAction scratchpads "btop")
 250       , ((modMask .|. altMask, xK_c), namedScratchpadAction scratchpads "中文")
 251       , ((modMask .|. altMask, xK_d), namedScratchpadAction scratchpads "dino")
 252       , ((modMask .|. altMask, xK_e), namedScratchpadAction scratchpads "english")
 253       , ((modMask .|. altMask, xK_h), namedScratchpadAction scratchpads "htop")
 254       , ((modMask .|. altMask, xK_m), namedScratchpadAction scratchpads "matrix")
 255       , ((modMask .|. altMask, xK_n), namedScratchpadAction scratchpads "notes")
 256       , ((modMask .|. altMask, xK_o), namedScratchpadAction scratchpads "concerns")
 257       , ((modMask .|. altMask, xK_s), namedScratchpadAction scratchpads "signal")
 258       , ((modMask .|. altMask, xK_v), namedScratchpadAction scratchpads "pavucontrol")
 259       , ((modMask .|. altMask, xK_u), namedScratchpadAction scratchpads "umpv")
 260       , ((modMask .|. altMask, xK_space), namedScratchpadAction scratchpads "terminal")
 261       , ((modMask .|. altMask, xK_Return), namedScratchpadAction scratchpads "terminal")
 262       , ((modMask .|. altMask, xK_BackSpace), resetFocusedNSP)
 263       ] ++
 264
 265       -- mod-[F1..F9], Switch to workspace N
 266       [ ((modMask, k), windows $ W.greedyView i)
 267       | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 268                   zip (workspaces conf) [xK_1 ..]
 269       ] ++
 270
 271       -- mod-shift-[F1..F9], Move client to workspace N
 272       [ ((modMask .|. shiftMask, k), windows $ W.shift i)
 273       | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 274                   zip (workspaces conf) [xK_1 ..]
 275       ] ++
 276
 277       {- NOTE: with Xinerama
 278       [((m .|. modMask, k), windows $ onCurrentScreen f i)
 279        | (i, k) <- zip (workspaces' conf) [xK_F1 ..]
 280        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ]
 281       -}
 282
 283       -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
 284       [ ((modMask, key), screenWorkspace sc >>= flip whenJust (windows . W.view))
 285       | (key, sc) <- zip [xK_w, xK_e, xK_r] [0 ..]
 286       ] ++
 287
 288       -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
 289       [ ((modMask .|. shiftMask, key), screenWorkspace sc >>= flip whenJust (windows . W.shift))
 290       | (key, sc) <- zip [xK_w, xK_e, xK_r] [0 ..]
 291       ] ++
 292
 293       -- mod-ctrl-[F1..F9], Swap workspace with workspace N
 294       -- mod-ctrl-[1..9], Swap workspace with workspace N
 295       [ ((modMask .|. controlMask, k), windows $ swapWithCurrent i)
 296       | (i, k) <- zip (workspaces conf) [xK_F1 ..] ++
 297                   zip (workspaces conf) [xK_1 ..]
 298       ]
 299       {- NOTE: with Xinerama
 300       [((modMask .|. controlMask, k), windows $ onCurrentScreen swapWithCurrent i)
 301        | (i, k) <- zip (workspaces' conf) [xK_F1 ..] ]
 302       -}
 303       , layoutHook         = smartBorders $
 304                              mkToggle (NOBORDERS ?? FULL ?? EOT) $ -- enable temporarily maximizing a window
 305                              avoidStruts $ -- prevents windows from overlapping dock windows
 306                              let tall = ResizableTall 1 (1%200) (8%13) [] in
 307                              windowNavigation $
 308                              -- addTabs shrinkText tabBar (subLayout [] Simplest (Columns 1 []))
 309                              Columns 1 []
 310                              ||| tabbed shrinkText tabConfig
 311                              ||| tall
 312                              ||| Mirror tall
 313                              ||| magnifiercz (13%10) Grid
 314                              ||| spiral (6%7)
 315                              ||| noBorders (fullscreenFull Full)
 316                              ||| ThreeColMid 1 (1%200) (1%2)
 317                              -- ||| Tall 1 (3/100) (1/2)
 318       , manageHook         = composeAll
 319                              -- [ , isFullscreen --> (doF W.focusDown <+> doFullFloat)
 320                              [ isFullscreen --> doFullFloat
 321                              , manageHook def
 322                              , manageDocks -- NOTE: do not tile dock windows
 323                              , namedScratchpadManageHook scratchpads
 324                              , resource  =? "desktop_window" --> doIgnore
 325                              , className =? "Gimp" --> doFloat
 326                              , resource  =? "gpicview" --> doSink
 327                              , className =? "mpv" --> doFloat
 328                              , className =? "ultrastardx" --> doSink
 329                              --, className =? "MPlayer" --> doShift "3:media" -- <+> doFloat
 330                              --, className =? "vlc" --> doShift "3:media"
 331                              , className =? "trayer" --> doIgnore
 332                              ]
 333   , modMask = mod4Mask
 334   , mouseBindings = \XConfig{XMonad.modMask} ->
 335       Map.fromList
 336       [
 337       -- mod-button1, Set the window to floating mode and move by dragging
 338         ((modMask, button1), floatMoveNoexclusive)
 339
 340       -- mod-button2, Raise the window to the top of the stack
 341       , ((modMask, button2), \w -> focus w >> windows W.swapMaster)
 342
 343       -- mod-button3, Set the window to floating mode and resize by dragging
 344       , ((modMask, button3), resizeNoexclusive)
 345
 346       , ((modMask, button4), \_ -> windows W.focusUp)
 347       , ((modMask, button5), \_ -> windows W.focusDown)
 348
 349       -- Cycle through workspaces
 350       , ((controlMask .|. modMask, button5), nextNonEmptyWS)
 351       , ((controlMask .|. modMask, button4), prevNonEmptyWS)
 352       ]
 353   , normalBorderColor = "#7C7C7C"
 354   , startupHook =
 355           setWMName "XMonad"
 356       <+> addExclusives exclusiveScratchpads
 357       <+> spawnExec "wmname XMonad"
 358       <+> spawnExec "xrdb -all .Xresources"
 359       <+> spawn "sleep 1 && xmodmap .Xmodmap"
 360       <+> spawnExec "xset r rate 250 25"
 361       <+> spawnExec "xinput --set-button-map 'Logitech USB Receiver Mouse' 1 2 3 4 5 6 7 2"
 362       <+> spawnExec "xset b off"
 363       <+> spawnExec "xhost local:root"
 364       <+> spawnExec "setxkbmap -option keypad:pointerkeys"
 365       -- Useful for programs launched by rofi
 366       <+> spawnExec (unwords [ "systemctl --user import-environment"
 367                              , "DBUS_SESSION_BUS_ADDRESS"
 368                              , "GDK_PIXBUF_MODULE_FILE"
 369                              , "GIO_EXTRA_MODULES"
 370                              , "GLFW_IM_MODULE"
 371                              , "GNUPGHOME"
 372                              , "GTK2_RC_FILES"
 373                              , "GTK_A11Y"
 374                              , "GTK_IM_MODULE"
 375                              , "GTK_PATH"
 376                              , "LANG"
 377                              , "LD_LIBRARY_PATH" -- For sane and pipewire
 378                              , "LIBEXEC_PATH"
 379                              , "NIX_PROFILES" -- fcitx5 does not work without it…
 380                              , "PASSWORD_STORE_DIR"
 381                              , "PATH"
 382                              , "QTWEBKIT_PLUGIN_PATH"
 383                              , "QT_IM_MODULE"
 384                              , "QT_PLUGIN_PATH"
 385                              , "SPEECHD_CMD"
 386                              , "SSH_ASKPASS"
 387                              , "XCURSOR_PATH"
 388                              , "XMODIFIERS"
 389                              ])
 390       -- <+> spawnOnce "exec arbtt-capture -r 60"
 391       -- <+> spawnOnce "exec parcellite"
 392       -- <+> spawnOnce "exec xautolock"
 393       -- <+> spawnOnce "exec redshift-gtk -l -45.7800:1.9700 -t 6500:3700"
 394       <+> spawnOnce "exec nm-applet"
 395   , terminal = "$TERMINAL"
 396   , workspaces = {- withScreens nScreens $ -}
 397                  {-["1:work","2:web","3:media"] ++-}
 398                  map show [1::Int .. 9]
 399   , logHook = do
 400       -- updatePointer (Relative 0.5 0.5)
 401       refocusLastLogHook
 402       nsHideOnFocusLoss scratchpads
 403       updatePointer (0.5, 0.5) (0, 0)
 404   }
 405   where
 406     tabConfig = def
 407      { activeBorderColor   = "#7C7C7C"
 408      , activeColor         = "#000000"
 409      , activeTextColor     = "#00FF00"
 410      , inactiveBorderColor = "#7C7C7C"
 411      , inactiveColor       = "#000000"
 412      , inactiveTextColor   = "#EEEEEE"
 413      , fontName            = "Hack 7"
 414      }
 415
 416 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}'\""
 417
 418 barSpawner :: ScreenId -> X StatusBarConfig
 419 barSpawner 0 = pure $ topXmobar <> traySB
 420 --barSpawner 1 = pure $ xmobar1
 421 barSpawner _ = pure $ topXmobar -- nothing on the rest of the screens
 422
 423 -- Display properties of the root window:
 424 -- xprop -display $DISPLAY -root
 425 topXmobar = statusBarPropTo "_XMONAD_XMOBAR0" "xmobar -x 0 ~/.config/xmonad/xmobar0.hs" (pure topPP)
 426   where
 427   topPP =
 428      xmobarPP
 429       { ppCurrent = xmobarColor "black" "#CCCCCC"
 430       , ppHidden  = xmobarColor "#CCCCCC" "black"
 431       , ppHiddenNoWindows = xmobarColor "#606060" "black"
 432       , ppLayout  = \s -> xmobarColor "black" "#606060" $
 433                      case s of
 434                        "Columns"              -> " \" "
 435                        "ResizableTall"        -> " | "
 436                        "Mirror ResizableTall" -> " - "
 437                        "Tabbed Simplest"      -> " + "
 438                        "Magnifier Grid"       -> " ~ "
 439                        "Spiral"               -> " @ "
 440                        "Full"                 -> " O "
 441                        "ThreeCol"             -> " # "
 442                        _                      -> s
 443       , ppSep     = "  "
 444       , ppTitle   = xmobarColor "white" "black" . shorten 50
 445       , ppUrgent  = xmobarColor "yellow" "black"
 446       , ppWsSep   = " "
 447       }
 448
 449 traySB :: StatusBarConfig
 450 traySB =
 451   statusBarGeneric
 452     ( List.unwords
 453         [ "trayer"
 454         , "--align right"
 455         , "--distance 0,0"
 456         , "--distancefrom top,right"
 457         , "--edge top"
 458         , "--expand true"
 459         , "--height 16"
 460         , "--monitor primary"
 461         , "--tint 0x000000"
 462         , "--iconspacing 0"
 463         , "--transparent true"
 464         , "--widthtype request"
 465         , "-l"
 466         ]
 467     )
 468     mempty
 469
 470 nextNonEmptyWS _ = moveTo Next (WSIs ((not .) <$> isWindowSpaceVisible))
 471 prevNonEmptyWS _ = moveTo Prev (WSIs ((not .) <$> isWindowSpaceVisible))
 472
 473 isWindowSpaceVisible :: X (WindowSpace -> Bool)
 474 isWindowSpaceVisible = do
 475   vs <- gets (map (W.tag . W.workspace) . W.visible . windowset)
 476   return (\w -> W.tag w `elem` vs)
 477
 478 spawnExec s = spawn $ List.unwords $ [ "exec" ] <> systemdCat <> [ s ]
 479 systemdCat = [ "systemd-cat" , "--priority=info", "--stderr-priority=warning", "--level-prefix=false" , "--" ]
 480
 481 promptConfig :: XPConfig
 482 promptConfig = def
 483   { font                = "xft:monospace-"<>show fontSize
 484   , bgColor             = "black"
 485   , fgColor             = "grey"
 486   , bgHLight            = "green"
 487   , fgHLight            = "#000000"
 488   , borderColor         = "darkgreen"
 489   , promptBorderWidth   = 1
 490   , promptKeymap        = promptKeyMap
 491   , position            = CenteredAt { xpCenterY = 0.3, xpWidth = 0.5 }
 492   , height              = fontSize + 11
 493   , historySize         = 16
 494   , historyFilter       = id
 495   , defaultText         = ""
 496   , autoComplete        = Nothing -- Just 500000 -- nanoseconds
 497   , showCompletionOnTab = False
 498   , completionKey       = (0, xK_Down)
 499   , prevCompletionKey   = (0, xK_Up)
 500   , searchPredicate     = fuzzyMatch -- isPrefixOf
 501   , sorter              = fuzzySort
 502   , defaultPrompter     = const ""
 503   , alwaysHighlight     = True
 504   , maxComplRows        = Just 10
 505   , maxComplColumns     = Just 1
 506   , changeModeKey       = xK_twosuperior
 507   }
 508   where
 509   fontSize = 11
 510
 511 promptKeyMap :: Map.Map (KeyMask,KeySym) (XP ())
 512 promptKeyMap = Map.fromList $
 513      List.map (first $ (,) controlMask) -- control + <key>
 514        [ (xK_z, killBefore)               -- kill line backwards
 515        , (xK_k, killAfter)                -- kill line forwards
 516        , (xK_u, killBefore)               -- kill line backwards
 517        , (xK_a, startOfLine)              -- move to the beginning of the line
 518        , (xK_e, endOfLine)                -- move to the end of the line
 519        , (xK_m, deleteString Next)        -- delete a character foward
 520        , (xK_b, moveCursor Prev)          -- move cursor forward
 521        , (xK_f, moveCursor Next)          -- move cursor backward
 522        , (xK_BackSpace, killWord Prev)    -- kill the previous word
 523        , (xK_y, pasteString)              -- paste a string
 524        , (xK_g, quit)                     -- quit out of prompt
 525        , (xK_bracketleft, quit)
 526        ]
 527      ++
 528      List.map (first $ (,) altMask)     -- meta key + <key>
 529        [ (xK_BackSpace, killWord Prev)    -- kill the prev word
 530        , (xK_f, moveWord Next)            -- move a word forward
 531        , (xK_b, moveWord Prev)            -- move a word backward
 532        , (xK_d, killWord Next)            -- kill the next word
 533        , (xK_n, moveHistory W.focusUp')   -- move up through history
 534        , (xK_p, moveHistory W.focusDown') -- move down through history
 535        ]
 536      ++
 537      List.map (first $ (,) 0) -- <key>
 538        [ (xK_Return, setSuccess True >> setDone True)
 539        , (xK_KP_Enter, setSuccess True >> setDone True)
 540        , (xK_BackSpace, deleteString Prev)
 541        , (xK_Delete, deleteString Next)
 542        , (xK_Left, moveCursor Prev)
 543        , (xK_Right, moveCursor Next)
 544        , (xK_Home, startOfLine)
 545        , (xK_End, endOfLine)
 546        , (xK_Down, moveHistory W.focusUp')
 547        , (xK_Up, moveHistory W.focusDown')
 548        , (xK_Escape, quit)
 549        ]
 550
 551 altMask :: KeyMask
 552 altMask = mod1Mask
 553
 554 -- HowTo(develop): use xprop to see window properties to query them
 555 scratchpads =
 556   [ NS { name = "btop", cmd = "$TERMINAL --title=btop -e btop", query = title =? "btop", hook }
 557   , NS { name = "concerns", cmd = "$TERMINAL --title=concerns -e sh -c 'cd $HOME/work/sourcephile && vi Concerns.md'", query = title =? "concerns", hook }
 558   , NS { name = "dino", cmd = "dino", query = className =? "dino", hook }
 559   , NS { name = "english", cmd = "$TERMINAL --title=english -e sh -c 'cd $HOME/files/notes/english && vi vocabulary.org'", query = title =? "english", hook }
 560   , NS { name = "htop", cmd = "$TERMINAL --title=htop -e htop", query = title =? "htop", hook }
 561   , NS { name = "matrix", cmd = "element-desktop", query = className =? "Element", hook }
 562   , NS { name = "mpv", cmd = "umpv", query = className =? "mpv", hook }
 563   , NS { name = "notes", cmd = "$TERMINAL --title=notes -e sh -c 'cd $HOME/files/notes && vi notes.md'", query = title =? "notes", hook }
 564   , NS { name = "pavucontrol", cmd = "pavucontrol", query = className =? "pavucontrol", hook }
 565   , NS { name = "signal", cmd = "signal-desktop", query = className =? "Signal", hook }
 566   , NS { name = "terminal", cmd = "$TERMINAL --title=scratch-term", query = title =? "scratch-term", hook }
 567   , NS { name = "中文", cmd = "$TERMINAL --title=中文 -e sh -c 'cd $HOME/files/notes/中文 && vi Vocabulary.hs'", query = title =? "中文", hook }
 568   ]
 569   where hook = customFloating (W.RationalRect (1/2) (0) (1/2) (1))
 570
 571 exclusiveScratchpads = [ [ name | NS{name} <- scratchpads ] ]