path: root/gui/conf/xmonad.hs

import XMonad hiding ((|||))
import XMonad.Util.EZConfig
import qualified XMonad.StackSet as S

import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.InsertPosition
import XMonad.Hooks.SetWMName

import XMonad.Layout.Tabbed
import XMonad.Layout.MultiColumns
import XMonad.Layout.TwoPane
import XMonad.Layout.OneBig
import XMonad.Layout.Grid

import XMonad.Layout.Groups.Examples
import XMonad.Layout.Groups.Helpers

import XMonad.Layout.NoBorders
import XMonad.Layout.Reflect
import XMonad.Layout.MultiToggle
import XMonad.Layout.MultiToggle.Instances
import XMonad.Layout.Renamed (Rename(..), renamed)
import XMonad.Layout.LayoutCombinators
import XMonad.Layout.LayoutModifier
import XMonad.Layout.Monitor
import XMonad.Layout.BinarySpacePartition
import XMonad.Layout.BorderResize

import XMonad.Util.Themes
import XMonad.Util.NamedScratchpad
import XMonad.Util.Dmenu (menuMapArgs)

import XMonad.Actions.PhysicalScreens
import XMonad.Actions.SpawnOn
import XMonad.Actions.CycleWS
import XMonad.Actions.WindowBringer
import XMonad.Actions.GroupNavigation
import XMonad.Actions.FloatKeys
import XMonad.Actions.UpdatePointer
import XMonad.Actions.DynamicWorkspaces

import XMonad.Prompt

import Data.Maybe
import Control.Monad (when)
import Data.Map (Map, fromList, member)
import Data.List (unionBy, isInfixOf)

import System.Exit
import System.Posix.Unistd

import Graphics.X11.ExtraTypes

workspaces :: [WorkspaceId]
workspaces = map show [1 .. 9 :: Int]

customTabTheme host = (theme xmonadTheme)
  { fontName      = "xft:Iosevka Medium-12"
  , decoHeight    = decoHeightOn host
  , activeTextColor     = "#222222"
  , activeColor         = "#909636"
  , inactiveTextColor   = "#999999"
  , inactiveColor       = "#161616"
  , activeBorderColor   = "#909636"
  , inactiveBorderColor = "#161616" }

customLayoutHook host = id
  . smartBorders
  . ModifiedLayout (hudMonitor host)
  . mkToggle (single NBFULL)
  $ tiles ||| two ||| tabs ||| frame ||| bsp ||| grid ||| groups
  where
    tiles  = name "tiles" $ id
                          . mkToggle (single REFLECTX)
                          . mkToggle (single REFLECTY)
                          $ multiCol [1, 2, 0] 1 delta (1/3)
    tabs   = name "tabs"  $ tabbed shrinkText (customTabTheme host)
    two    = name "two"   $ TwoPane delta (1/2)
    frame  = name "frame" $ id
                          . mkToggle (single REFLECTX)
                          . mkToggle (single REFLECTY)
                          . reflectVert
                          $ OneBig (2/3) (4/5)
    bsp    = name "bsp"   $ borderResize (emptyBSP)
    grid   = name "grid"  $ Grid
    groups = name "groups" $ rowOfColumns
    delta  = 1/24
    name n = renamed [Replace n]

-- layout names for layout selection dialog
layoutNames = fromList [ ("0: Multi-column tiles"      , "tiles")
                       , ("1: Tabbed windows"          , "tabs")
                       , ("2: Two column stack"        , "two")
                       , ("3: One large framed window" , "frame")
                       , ("4: Binary space partition"  , "bsp")
                       , ("5: Grid"                    , "grid")
                       , ("6: Grouped columns"         , "groups") ]

floatRectTop    h = S.RationalRect (1/20) 0      (18/20) h
floatRectBottom h = S.RationalRect (1/20) (1-h)  (18/20) h
floatRectLeft   w = S.RationalRect 0      (1/20) w       (18/20)
floatRectRight  w = S.RationalRect (1-w)  (1/20) w       (18/20)

dropUp        = floatRectBottom $ 2/3
dropUpLarge   = floatRectBottom $ 18/20
dropDown      = floatRectTop    $ 2/3
dropDownLarge = floatRectTop    $ 18/20
sideBarLeft   = floatRectLeft   $ 1/3
sideBarRight  = floatRectRight  $ 1/3

scratchpads host =
  [ NS "terminal"      "kitty --class=scratchterm"                             (className =? "scratchterm")
       (customFloating $ hideScreenBorder host dropDown)
  , NS "browser"       "env MOZ_USE_XINPUT2=1 firefox --no-remote -P scratchpad --class scratchfire" (className =? "scratchfire")
       (customFloating $ hideScreenBorder host dropDownLarge)
  , NS "thesaurus"     "artha"                                                 (className =? "Artha")
       (customFloating $ hideScreenBorder host sideBarLeft)
  , NS "calculator"    "qalculate-gtk"                                             (title =? "Qalculate!")
       (customFloating $ hideScreenBorder host sideBarLeft)
  , NS "messaging"     "telegram-desktop"                                      ((className =? "TelegramDesktop") <&&> (title /=? "Media viewer"))
       (customFloating $ hideScreenBorder host sideBarRight)
  , NS "notes"         "emacsclient --create-frame --frame-parameters='(quote (name . \"notemacs\"))' ~/org/inbox.org" (title =? "notemacs")
       (customFloating $ hideScreenBorder host dropDownLarge)
  ]

hudMonitor host = monitor
  { prop = Title "hud"
  , XMonad.Layout.Monitor.name = "hud"
  , rect = Rectangle ((screenWidthOn host) - 530) ((screenHeightOn host) - 350) 480 300
  , opacity    = 0.8
  , persistent = True }

windowBringerDmenuConfig = def { menuCommand  = "rofi"
                               , menuArgs     = [ "-p", "win", "-dmenu", "-i" ] }

hostSpecificKeybindings host = case host of
  "athena"  -> [ ("M-i b" , showNotification "Battery"
                                             "`acpi | cut -c 10-`")
               , ("M-i c" , showNotification "`acpi --thermal | awk '{print $4}'`°C"
                                             "`cat /proc/acpi/ibm/fan | awk '/speed/{print $2}'` RPM")
               , ("M-c n" , spawn "networkmanager_dmenu")
               , ("<XF86MonBrightnessUp>"   , spawn "brightnessctl s +5%")
               , ("<XF86MonBrightnessDown>" , spawn "brightnessctl s 5%-")
               , ("<XF86AudioRaiseVolume>"  , spawn "amixer sset Master 10%+")
               , ("<XF86AudioLowerVolume>"  , spawn "amixer sset Master 10%-")
               , ("<XF86AudioMute>"         , spawn "amixer sset Master toggle") ]
  "hephaestus" -> [ ("M-i g" , showNotification "GPU"
                                             "`nvidia-smi --query-gpu=name,temperature.gpu,utilization.gpu,utilization.memory --format=csv,noheader | awk -F',' '{print $1 \" running at\" $2 \"°C due to\" $3 \" load and\" $4 \" memory usage\"}'`") ]
  _         -> [ ]

commonKeybindings host =
-- xmonad session control
  [ ("C-M1-<Escape>"    , io (exitWith ExitSuccess))
  , ("C-M1-<Backspace>" , spawn "xmonad --restart")
  , ("C-M1-l"           , spawn "i3lock -c 000000")

-- application launchers
  , ("M-<Space>"     , spawn "rofi -show combi")
  , ("M-<Return>"    , spawn "kitty")
  , ("M-S-<Return>"  , spawn "emacsclient --create-frame")

  , ("M-c p"         , spawn "flameshot gui")
  , ("<Print>"       , spawn "flameshot gui")

-- password management
  , ("M-p"     , spawn "passrofi")

-- window management
  , ("M-q"           , windows $ S.shift "NSP")
  , ("M-S-q"         , kill)
  , ("M-<Backspace>" , nextMatch History (return True))

-- window movement
  , ("M-j"           , focusDown)
  , ("M-k"           , focusUp)
  , ("M-S-j"         , swapDown)
  , ("M-S-k"         , swapUp)

-- workspace selection
  ] ++ [ (p ++ [k