237 lines
8.2 KiB
Nix
237 lines
8.2 KiB
Nix
{ config, lib, pkgs, ... }:
|
|
|
|
{
|
|
services.xserver.windowManager.xmonad = {
|
|
enable = true;
|
|
extraPackages = hs: [
|
|
hs.extra
|
|
hs.xmonad-contrib
|
|
];
|
|
config = /* haskell */ ''
|
|
{-# LANGUAGE LambdaCase #-}
|
|
|
|
|
|
module Main where
|
|
import XMonad
|
|
|
|
import qualified XMonad.StackSet as W
|
|
import Control.Monad.Extra (whenJustM)
|
|
import Data.List (isInfixOf)
|
|
import Data.Monoid (Endo)
|
|
import System.Environment (getArgs, lookupEnv)
|
|
import System.Exit (exitFailure)
|
|
import System.IO (hPutStrLn, stderr)
|
|
import System.Posix.Process (executeFile)
|
|
import Data.Ratio
|
|
|
|
import XMonad.Actions.Commands (defaultCommands, runCommand)
|
|
import XMonad.Actions.CopyWindow (copy, copyToAll, kill1)
|
|
import XMonad.Actions.CycleWS (toggleWS)
|
|
import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace, removeEmptyWorkspace)
|
|
import XMonad.Actions.DynamicWorkspaces (withWorkspace)
|
|
import XMonad.Actions.GridSelect (GSConfig(..), gridselectWorkspace, navNSearch)
|
|
import XMonad.Actions.Minimize (minimizeWindow, maximizeWindow, withLastMinimized)
|
|
import XMonad.Hooks.EwmhDesktops (ewmh)
|
|
import XMonad.Hooks.FloatNext (floatNext)
|
|
import XMonad.Hooks.FloatNext (floatNextHook)
|
|
import XMonad.Hooks.ManageDocks (avoidStruts, ToggleStruts(ToggleStruts))
|
|
import XMonad.Hooks.ManageHelpers (doCenterFloat, doRectFloat, (-?>))
|
|
import XMonad.Hooks.Place (placeHook, smart)
|
|
import XMonad.Hooks.UrgencyHook (focusUrgent)
|
|
import XMonad.Hooks.UrgencyHook (withUrgencyHook, UrgencyHook(..))
|
|
import XMonad.Layout.BoringWindows (boringWindows, focusDown, focusUp)
|
|
import XMonad.Layout.FixedColumn (FixedColumn(..))
|
|
import XMonad.Layout.Grid (Grid(..))
|
|
import XMonad.Layout.Minimize (minimize)
|
|
import XMonad.Layout.NoBorders (smartBorders, noBorders)
|
|
import XMonad.Layout.MouseResizableTile (mouseResizableTile)
|
|
import XMonad.Layout.SimplestFloat (simplestFloat)
|
|
import XMonad.Layout.StateFull
|
|
import XMonad.ManageHook (composeAll)
|
|
import XMonad.Prompt (autoComplete, font, height, searchPredicate, XPConfig)
|
|
import XMonad.Prompt.Window (windowPromptGoto, windowPromptBringCopy)
|
|
import XMonad.Util.EZConfig (additionalKeysP)
|
|
import XMonad.Util.NamedWindows (getName)
|
|
import XMonad.Util.Run (safeSpawn)
|
|
import XMonad.Util.Ungrab (unGrab)
|
|
import XMonad.Util.Paste (sendKey)
|
|
|
|
data LibNotifyUrgencyHook = LibNotifyUrgencyHook deriving (Read, Show)
|
|
|
|
instance UrgencyHook LibNotifyUrgencyHook where
|
|
urgencyHook LibNotifyUrgencyHook w = do
|
|
name <- getName w
|
|
Just idx <- fmap (W.findTag w) $ gets windowset
|
|
|
|
safeSpawn "${pkgs.libnotify}/bin/notify-send" [show name, "workspace " ++ idx]
|
|
|
|
myTerm :: FilePath
|
|
myTerm = "/run/current-system/sw/bin/alacritty"
|
|
|
|
myFont :: String
|
|
myFont = "${config.lass.fonts.regular}"
|
|
|
|
main :: IO ()
|
|
main = do
|
|
xmonad $ ewmh
|
|
$ withUrgencyHook LibNotifyUrgencyHook
|
|
$ def
|
|
{ terminal = myTerm
|
|
, modMask = mod4Mask
|
|
, layoutHook = myLayoutHook
|
|
, manageHook = floatHooks
|
|
, startupHook =
|
|
whenJustM (liftIO (lookupEnv "XMONAD_STARTUP_HOOK"))
|
|
(\path -> forkFile path [] Nothing)
|
|
, normalBorderColor = "#1c1c1c"
|
|
, focusedBorderColor = "#ff0000"
|
|
, workspaces = [ "dashboard", "sys", "wp" ]
|
|
} `additionalKeysP` myKeyMap
|
|
|
|
myLayoutHook = defLayout
|
|
where
|
|
defLayout = smartBorders $
|
|
minimize .
|
|
boringWindows $
|
|
(
|
|
noBorders StateFull |||
|
|
(avoidStruts $ Mirror (Tall 1 (3/100) (1/2))) |||
|
|
FixedColumn 2 80 80 1 |||
|
|
Tall 1 (3/100) (1/2) |||
|
|
simplestFloat |||
|
|
mouseResizableTile |||
|
|
Grid
|
|
)
|
|
|
|
floatHooks = composeAll
|
|
[ className =? "Pinentry" --> doCenterFloat
|
|
, className =? "Pager" --> doCenterFloat
|
|
, title =? "pager" --> doCenterFloat
|
|
, title =? "fzfmenu" --> doCenterFloat
|
|
, title =? "glxgears" --> doCenterFloat
|
|
, resource =? "Dialog" --> doFloat
|
|
, title =? "Upload to Imgur" -->
|
|
doRectFloat (W.RationalRect 0 0 (1 % 8) (1 % 8))
|
|
, placeHook (smart (1,0))
|
|
, floatNextHook
|
|
]
|
|
|
|
myKeyMap :: [([Char], X ())]
|
|
myKeyMap =
|
|
[ ("M4-p", forkFile "${pkgs.pass}/bin/passmenu" [ "--type" ] Nothing)
|
|
, ("M4-S-p", forkFile "${pkgs.otpmenu}/bin/otpmenu" [] Nothing)
|
|
, ("M4-z", forkFile "${pkgs.unimenu}/bin/unimenu" [] Nothing)
|
|
|
|
, ("M4-S-q", restart "xmonad" True)
|
|
|
|
, ("<XF86AudioMute>", spawn "${pkgs.pulseaudio.out}/bin/pactl -- set-sink-mute @DEFAULT_SINK@ toggle")
|
|
, ("<XF86AudioRaiseVolume>", spawn "${pkgs.pulseaudio.out}/bin/pactl -- set-sink-volume @DEFAULT_SINK@ +4%")
|
|
, ("<XF86AudioLowerVolume>", spawn "${pkgs.pulseaudio.out}/bin/pactl -- set-sink-volume @DEFAULT_SINK@ -4%")
|
|
, ("<XF86MonBrightnessDown>", spawn "${pkgs.acpilight}/bin/xbacklight -time 0 -dec 1")
|
|
, ("<XF86MonBrightnessUp>", spawn "${pkgs.acpilight}/bin/xbacklight -time 0 -inc 1")
|
|
, ("M4-C-k", spawn "${pkgs.xorg.xkill}/bin/xkill")
|
|
|
|
, ("M4-<Tab>", focusDown)
|
|
, ("M4-S-<Tab>", focusUp)
|
|
, ("M4-j", focusDown)
|
|
, ("M4-k", focusUp)
|
|
|
|
, ("M4-a", focusUrgent)
|
|
, ("M4-S-r", renameWorkspace myXPConfig)
|
|
, ("M4-S-a", addWorkspacePrompt myXPConfig)
|
|
, ("M4-S-<Backspace>", removeEmptyWorkspace)
|
|
, ("M4-S-c", kill1)
|
|
, ("M4-<Esc>", toggleWS)
|
|
, ("M4-S-<Enter>", spawn myTerm)
|
|
, ("M4-x", floatNext True >> spawn myTerm)
|
|
, ("M4-c", spawn "/run/current-system/sw/bin/emacsclient -c")
|
|
-- , ("M4-c", unGrab)
|
|
, ("M4-f", floatNext True)
|
|
, ("M4-b", spawn "/run/current-system/sw/bin/klem")
|
|
|
|
, ("M4-c", defaultCommands >>= runCommand)
|
|
-- , ("M4-v", spawn "${pkgs.pager}/bin/pager view")
|
|
-- , ("M4-S-v", spawn "${pkgs.pager}/bin/pager shift")
|
|
, ("M4-v", withWorkspace autoXPConfig (windows . W.greedyView))
|
|
, ("M4-S-v", withWorkspace autoXPConfig (windows . W.shift))
|
|
, ("M4-C-v", withWorkspace autoXPConfig (windows . copy))
|
|
|
|
, ("M4-m", withFocused minimizeWindow)
|
|
, ("M4-S-m", withLastMinimized maximizeWindow)
|
|
|
|
, ("M4-q", windowPromptGoto infixAutoXPConfig)
|
|
, ("M4-C-q", windowPromptBringCopy infixAutoXPConfig)
|
|
|
|
, ("M4-S-q", return ())
|
|
|
|
, ("M4-d", floatNext True >> spawn "${pkgs.writers.writeDash "clipmenu" ''
|
|
PATH=${lib.makeBinPath [
|
|
pkgs.coreutils
|
|
pkgs.gawk
|
|
pkgs.dmenu
|
|
]}
|
|
${pkgs.clipmenu}/bin/clipmenu
|
|
''}")
|
|
|
|
, ("M4-<Insert>", spawn "${pkgs.writers.writeDash "paste" ''
|
|
${pkgs.coreutils}/bin/sleep 0.4
|
|
${pkgs.xclip}/bin/xclip -o | ${pkgs.xdotool}/bin/xdotool type -f -
|
|
''}")
|
|
|
|
, ("M4-<F1>", spawn "/run/current-system/sw/bin/gamepad_mouse_toggle")
|
|
, ("M4-<F2>", windows copyToAll)
|
|
, ("M4-<F4>", spawn "${pkgs.nm-dmenu}/bin/nm-dmenu")
|
|
, ("M4-<F5>", spawn "${pkgs.acpilight}/bin/xbacklight -set 1")
|
|
, ("M4-<F6>", spawn "${pkgs.acpilight}/bin/xbacklight -set 10")
|
|
, ("M4-<F7>", spawn "${pkgs.acpilight}/bin/xbacklight -set 33")
|
|
, ("M4-<F8>", spawn "${pkgs.acpilight}/bin/xbacklight -set 100")
|
|
|
|
, ("M4-<F9>", spawn "${pkgs.redshift}/bin/redshift -O 4000 -g 0.9:0.8:0.8")
|
|
, ("M4-<F10>", spawn "${pkgs.redshift}/bin/redshift -x")
|
|
|
|
, ("M4-<F11>", spawn "${config.lass.screenlock.command}")
|
|
|
|
, ("M4-u", spawn "${pkgs.xcalib}/bin/xcalib -invert -alter")
|
|
, ("M4-y", spawn "/run/current-system/sw/bin/switch-theme toggle")
|
|
|
|
${lib.optionalString (builtins.hasAttr "warpd" pkgs) '', ("M4-s", spawn "${pkgs.warpd}/bin/warpd --hint")''}
|
|
, ("M4-i", spawn "/run/current-system/sw/bin/screenshot")
|
|
|
|
--, ("M4-w", screenWorkspace 0 >>= (windows . W.greedyView))
|
|
--, ("M4-e", screenWorkspace 1 >>= (windows . W.greedyView))
|
|
--, ("M4-r", screenWorkspace 2 >>= (windows . W.greedyView))
|
|
]
|
|
|
|
forkFile :: FilePath -> [String] -> Maybe [(String, String)] -> X ()
|
|
forkFile path args env =
|
|
xfork (executeFile path True args env) >> return ()
|
|
|
|
myXPConfig :: XPConfig
|
|
myXPConfig = def
|
|
{ font = myFont
|
|
, height = 40
|
|
}
|
|
|
|
autoXPConfig :: XPConfig
|
|
autoXPConfig = myXPConfig
|
|
{ autoComplete = Just 5000
|
|
}
|
|
|
|
infixAutoXPConfig :: XPConfig
|
|
infixAutoXPConfig = autoXPConfig
|
|
{ searchPredicate = isInfixOf
|
|
}
|
|
|
|
gridConfig :: GSConfig WorkspaceId
|
|
gridConfig = def
|
|
{ gs_cellwidth = 100
|
|
, gs_cellheight = 30
|
|
, gs_cellpadding = 2
|
|
, gs_navigate = navNSearch
|
|
, gs_font = myFont
|
|
}
|
|
|
|
'';
|
|
};
|
|
}
|