import Control.Monad (when) import Data.Map qualified as M import Data.Monoid import Data.Ratio import Graphics.X11.ExtraTypes.XF86 import System.Exit import XMonad import XMonad.Actions.KeyRemap import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar.PP import XMonad.Layout.Circle import XMonad.Layout.DraggingVisualizer import XMonad.Layout.Grid import XMonad.Layout.IfMax import XMonad.Layout.Magnifier import XMonad.Layout.Spacing import XMonad.Layout.Tabbed import XMonad.Layout.ThreeColumns import XMonad.Layout.VoidBorders import XMonad.Layout.WindowSwitcherDecoration import XMonad.Prompt import XMonad.Prompt.Layout import XMonad.StackSet qualified as W import XMonad.Actions.NoBorders import XMonad.Util.EZConfig import XMonad.Hooks.ServerMode 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 -- 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)), ((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") ] ++ [ ((m .|. modm, k), windows $ f i) | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9], (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ] -- TODO: figure out multi screen stuff, including xinerama -- 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), \w -> do focus w mouseMoveWindow w windows W.shiftMaster ), -- mod-button2, Raise the window to the top of the stack ( (modm, button3), \w -> do focus w mouseResizeWindow w windows W.shiftMaster ) ] tabCfg = def { activeColor = "#282828", inactiveColor = "#1d2021", urgentColor = "#9d0006", activeBorderColor = "#504945", inactiveBorderColor = "#3c3836", urgentBorderColor = "#cc241d", activeTextColor = "#ebdbb2", inactiveTextColor = "#bdae93", urgentTextColor = "#ebdbb2" } myLayout = setupSpacing $ avoidStruts $ autoChoose ||| tabbed shrinkText tabCfg where -- default tiling algorithm partitions the screen into two panes 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 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 myManageHook = composeAll [ className =? "MPlayer" --> doFloat, className =? "Gimp" --> doFloat, className =? "firefox" --> doShift "browser", className =? "Evolution" --> doShift "comms", className =? "Signal" --> doShift "comms", className =? "SchildiChat" --> doShift "comms", resource =? "desktop_window" --> doIgnore, resource =? "kdesktop" --> doIgnore ] myStartupHook = do 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" xmeowbar = statusBarProp "~/.config/xmobar/xmobar" $ pure xmobarPP polybar = statusBarProp "polybar" $ pure xmobarPP barSpawner 0 = pure $ xmeowbar <> polybar barSpawner _ = mempty main :: IO() main = xmonad $ docks $ dynamicSBs barSpawner $ ewmh defaults defaults = def { -- simple stuff 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, layoutHook =myLayout, manageHook = myManageHook, startupHook = myStartupHook, handleEventHook = serverModeEventHook }