nix-configs/haskell/xmonad/xmonad.hs

173 lines
6.9 KiB
Haskell
Raw Normal View History

import Control.Monad (when)
import Data.Map qualified as M
2023-04-22 10:52:11 +00:00
import Data.Monoid
2023-12-05 23:20:05 +00:00
import Data.Ratio
import Graphics.X11.ExtraTypes.XF86
2023-04-22 10:52:11 +00:00
import System.Exit
import XMonad
import XMonad.Actions.KeyRemap
import XMonad.Hooks.EwmhDesktops
2023-12-05 23:20:05 +00:00
import XMonad.Hooks.ManageDocks
2023-04-22 12:57:32 +00:00
import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP
2023-12-05 23:20:05 +00:00
import XMonad.Layout.Circle
import XMonad.Layout.DraggingVisualizer
import XMonad.Layout.Grid
import XMonad.Layout.IfMax
import XMonad.Layout.Magnifier
2023-04-22 10:52:11 +00:00
import XMonad.Layout.Spacing
2023-04-23 20:49:07 +00:00
import XMonad.Layout.Tabbed
2023-12-05 23:20:05 +00:00
import XMonad.Layout.ThreeColumns
import XMonad.Layout.VoidBorders
import XMonad.Layout.WindowSwitcherDecoration
2023-04-23 20:49:07 +00:00
import XMonad.Prompt
import XMonad.Prompt.Layout
import XMonad.StackSet qualified as W
2023-12-05 23:20:05 +00:00
import XMonad.Actions.NoBorders
2023-12-06 12:14:02 +00:00
import XMonad.Util.EZConfig
2023-12-06 19:07:14 +00:00
import XMonad.Hooks.ServerMode
2023-04-22 10:52:11 +00:00
myKeys conf@(XConfig {XMonad.modMask = modm}) =
M.fromList $
[ ((modm, xK_Return), spawn $ XMonad.terminal conf),
((modm .|. shiftMask, xK_q), kill),
-- -- Rotate through the available layout algorithms
((modm, xK_space), sendMessage NextLayout),
-- rofiing
((modm, xK_d), spawn "rofi -show drun"),
((modm .|. shiftMask, xK_e), spawn "rofi -show desktopctl -modes desktopctl:desktopctl -show-icons"),
((modm, xK_m), spawn "menu-qalc -- -theme gruvbox-dark"),
((modm, xK_i), spawn "rofimoji --selector-args '-theme gruvbox-dark' -f alchemical_symbols anatolian_hieroglyphs emojis braille_patterns box_drawing chess_symbols emoticons geometric_shapes gothic greek_extended math mathematical_alphanumeric_symbols mathematical_operators miscellaneous_symbols miscellaneous_mathematical_symbols-a miscellaneous_mathematical_symbols-b miscellaneous_symbols_and_arrows miscellaneous_symbols_and_pictographs miscellaneous_technical modi modifier_tone_letters musical_symbols nerd_font number_forms shorthand_format_controls specials variation_selectors vertical_forms -a copy"),
-- screenshotting
2023-12-05 23:20:05 +00:00
-- TODO: Fix/rewrite window-screenshot
((modm, xK_w), spawn "window-screenshot.nu"),
((modm, xK_s), spawn "flameshot gui -c -p $HOME/Pictures/screenshots"),
((modm, xK_a), spawn "flameshot screen -c -p $HOME/Pictures/screenshots"),
((modm, xK_t), spawn "ocr-screenshot.sh"),
((modm .|. shiftMask, xK_t), spawn "DEVICE=\"MELF0410:00 1FD2:7007\"; if [ $(xinput list-props \"$DEVICE\" | awk '/^\\tDevice Enabled \\([0-9]+\\):\\t[01]/ {print $NF}') = \"1\" ]; then xinput disable \"$DEVICE\"; else xinput enable \"$DEVICE\"; fi"),
-- Push window back into tiling
((modm .|. shiftMask, xK_space), withFocused $ windows . W.sink),
-- Resize viewed windows to the correct size
((modm, xK_n), refresh),
-- Move focus to the next window
((modm, xK_Tab), layoutPrompt def),
-- Move focus
((modm, xK_j), windows W.focusDown),
((modm, xK_k), windows W.focusUp),
-- Swap the focused window with the next window
((modm .|. shiftMask, xK_j), windows W.swapDown),
((modm .|. shiftMask, xK_k), windows W.swapUp),
-- Shrink the master area
((modm, xK_h), sendMessage Shrink),
((modm, xK_l), sendMessage Expand),
-- Increment the number of windows in the master area
((modm, xK_comma), sendMessage (IncMasterN 1)),
2023-12-05 23:20:05 +00:00
((modm, xK_period), sendMessage (IncMasterN (-1))),
((modm, xK_b), sendMessage ToggleStruts >> withFocused toggleBorder),
-- volume keys
-- TODO: other media keys
((0, xF86XK_AudioRaiseVolume), spawn "amixer -D pulse sset Master 10%+"),
((0, xF86XK_AudioLowerVolume), spawn "amixer -D pulse sset Master 10%-"),
((0, xF86XK_AudioMute), spawn "amixer -D pulse sset Master toggle")
]
2023-12-05 23:20:05 +00:00
++ [ ((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9],
(f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]
]
2023-12-05 23:20:05 +00:00
-- TODO: figure out multi screen stuff, including xinerama
2023-04-22 10:52:11 +00:00
-- Mouse bindings: default actions bound to mouse events
myMouseBindings (XConfig {XMonad.modMask = modm}) =
M.fromList
-- mod-button1, Set the window to floating mode and move by dragging
[ ( (modm, button1),
2023-12-05 23:20:05 +00:00
\w -> do
focus w
mouseMoveWindow w
windows W.shiftMaster
),
-- mod-button2, Raise the window to the top of the stack
( (modm, button3),
2023-12-05 23:20:05 +00:00
\w -> do
focus w
mouseResizeWindow w
windows W.shiftMaster
)
]
2023-04-22 10:52:11 +00:00
tabCfg =
def
{ activeColor = "#282828",
inactiveColor = "#1d2021",
urgentColor = "#9d0006",
activeBorderColor = "#504945",
inactiveBorderColor = "#3c3836",
urgentBorderColor = "#cc241d",
activeTextColor = "#ebdbb2",
inactiveTextColor = "#bdae93",
urgentTextColor = "#ebdbb2"
}
2023-12-06 12:14:02 +00:00
myLayout = setupSpacing $ avoidStruts $ autoChoose ||| tabbed shrinkText tabCfg
2023-04-22 10:52:11 +00:00
where
-- default tiling algorithm partitions the screen into two panes
2023-12-06 12:14:02 +00:00
autoChoose = IfMax 2 tiled $ IfMax 3 tiled_mag $ IfMax 4 grid_mag threeCol
setupSpacing = spacingRaw True (Border 0 0 0 0) True (Border 7 7 7 7) True
grid_mag = magnifiercz 1.4 Grid
tiled = Tall nmaster delta ratio
2023-12-05 23:20:05 +00:00
tiled_mag = magnifiercz' 1.4 tiled
threeCol = magnifiercz' 1.6 $ ThreeColMid nmaster delta ratio
-- The default number of windows in the master pane
nmaster = 1
-- Default proportion of screen occupied by master pane
ratio = 1 / 2
-- Percent of screen to increment by when resizing panes
delta = 3 / 100
2023-04-22 10:52:11 +00:00
myManageHook =
composeAll
[ className =? "MPlayer" --> doFloat,
className =? "Gimp" --> doFloat,
2023-12-06 01:30:39 +00:00
className =? "firefox" --> doShift "browser",
className =? "Evolution" --> doShift "comms",
className =? "Signal" --> doShift "comms",
className =? "SchildiChat" --> doShift "comms",
resource =? "desktop_window" --> doIgnore,
resource =? "kdesktop" --> doIgnore
]
2023-04-22 10:52:11 +00:00
2023-04-22 12:57:32 +00:00
myStartupHook = do
2023-12-05 23:20:05 +00:00
spawn "pgrep oneko || oneko -tofocus -tora -position +-1+5 -fg palevioletred3 -bg pink -name 'Rose the desktop kitty'"
spawn "pgrep volumeicon || volumeicon"
spawn "pgrep nm-applet || nm-applet"
spawn "pgrep mullvad-gui || mullvad-vpn"
spawn "feh --bg-fill ~/Pictures/wallpaper.jpg"
2023-04-22 10:52:11 +00:00
2023-12-06 19:07:14 +00:00
xmeowbar = statusBarProp "~/.config/xmobar/xmobar" $ pure xmobarPP
2023-12-06 12:14:02 +00:00
polybar = statusBarProp "polybar" $ pure xmobarPP
barSpawner 0 = pure $ xmeowbar <> polybar
barSpawner _ = mempty
2023-04-22 10:52:11 +00:00
2023-12-06 12:14:02 +00:00
main :: IO()
main = xmonad $ docks $ dynamicSBs barSpawner $ ewmh defaults
defaults =
def
{ -- simple stuff
2023-12-05 23:20:05 +00:00
terminal = "kitty",
focusFollowsMouse = False,
clickJustFocuses = False,
borderWidth = 2,
modMask = mod4Mask,
workspaces = ["comms", "browser"] ++ map show [3 .. 9],
normalBorderColor = "#3c3836",
focusedBorderColor = "#504945",
keys = myKeys,
mouseBindings = myMouseBindings,
2023-12-06 12:14:02 +00:00
layoutHook =myLayout,
manageHook = myManageHook,
2023-12-06 19:07:14 +00:00
startupHook = myStartupHook,
handleEventHook = serverModeEventHook
2023-12-06 12:14:02 +00:00
}