mirror of
https://github.com/starr-dusT/dotfiles.git
synced 2025-05-18 18:36:05 -07:00
add org xmonad file
This commit is contained in:
parent
3f6cdfb3af
commit
838d63754f
1
.gitignore
vendored
1
.gitignore
vendored
@ -13,6 +13,7 @@
|
||||
!/.xmonad
|
||||
/.xmonad/*
|
||||
!/.xmonad/xmonad.hs
|
||||
!/.xmonad/xmonad.org
|
||||
|
||||
## ~/.config
|
||||
!/.config
|
||||
|
||||
408
.xmonad/xmonad.org
Normal file
408
.xmonad/xmonad.org
Normal file
@ -0,0 +1,408 @@
|
||||
+TITLE: Custom Xmonad Config
|
||||
#+PROPERTY: header-args :tangle xmonad.hs
|
||||
|
||||
* Table of Contents
|
||||
:PROPERTIES:
|
||||
:TOC: :include all :depth 3
|
||||
:END:
|
||||
:CONTENTS:
|
||||
- [[#table-of-contents][Table of Contents]]
|
||||
- [[#imports][Imports]]
|
||||
- [[#variables][Variables]]
|
||||
- [[#start-up][Start Up]]
|
||||
- [[#layout][Layout]]
|
||||
- [[#scrathpads][Scrathpads]]
|
||||
- [[#hooks][Hooks]]
|
||||
- [[#events][Events]]
|
||||
- [[#logging][Logging]]
|
||||
- [[#keybinds][Keybinds]]
|
||||
- [[#add-normal-binds][Add "Normal" Binds]]
|
||||
- [[#window-management][Window Management]]
|
||||
- [[#basics][Basics]]
|
||||
- [[#media-control][Media Control]]
|
||||
- [[#scratchpads][Scratchpads]]
|
||||
- [[#add-open-binds][Add Open Binds]]
|
||||
- [[#add-system-utils-binds][Add System Utils Binds]]
|
||||
- [[#remove-unneeded-default-binds][Remove Unneeded Default Binds]]
|
||||
- [[#main][Main]]
|
||||
:END:
|
||||
|
||||
* Imports
|
||||
|
||||
Import Haskel modules that are used later in the config.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
-- Base
|
||||
import XMonad
|
||||
import Data.Monoid
|
||||
import System.Exit
|
||||
import System.IO (hPutStrLn)
|
||||
import qualified XMonad.StackSet as W
|
||||
import qualified Data.Map as M
|
||||
import System.Directory (getHomeDirectory)
|
||||
|
||||
-- Hooks
|
||||
import XMonad.Hooks.EwmhDesktops
|
||||
import XMonad.Hooks.ManageDocks
|
||||
import XMonad.Hooks.ManageHelpers
|
||||
import XMonad.Hooks.WorkspaceHistory
|
||||
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
|
||||
|
||||
-- Layouts
|
||||
import XMonad.Layout.NoBorders
|
||||
import XMonad.Layout.Gaps
|
||||
import XMonad.Layout.Spacing
|
||||
import XMonad.Layout.ThreeColumns
|
||||
|
||||
-- Utilities
|
||||
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
|
||||
import XMonad.Util.SpawnOnce
|
||||
import XMonad.Util.NamedScratchpad
|
||||
import XMonad.Util.EZConfig (additionalKeysP, removeKeys)
|
||||
|
||||
-- Actions
|
||||
import XMonad.Actions.DynamicProjects
|
||||
import XMonad.Actions.DynamicWorkspaces
|
||||
|
||||
-- Prompt
|
||||
import XMonad.Prompt
|
||||
|
||||
#+end_src
|
||||
|
||||
* Variables
|
||||
|
||||
Set variable used later in the config, often a handful of times.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
-- Terminal to use
|
||||
myTerminal = "alacritty"
|
||||
|
||||
-- Focus follows mouse pointer
|
||||
myFocusFollowsMouse :: Bool
|
||||
myFocusFollowsMouse = True
|
||||
|
||||
-- Define mod keys
|
||||
myModMask = mod4Mask
|
||||
altMask = mod1Mask
|
||||
|
||||
-- Define volume keys and commands
|
||||
lowerVolumeCmd = "pulseaudio-ctl down 2"
|
||||
raiseVolumeCmd = "pulseaudio-ctl up 2"
|
||||
muteVolumeCmd = "pulseaudio-ctl mute"
|
||||
|
||||
-- Count windows
|
||||
windowCount :: X (Maybe String)
|
||||
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
|
||||
|
||||
-- Define workspaces
|
||||
myWorkspaces = ["1","2","3","4","5","6","7","8","9"]
|
||||
|
||||
-- Width of window border
|
||||
myBorderWidth = 2
|
||||
|
||||
-- Border colors
|
||||
myNormalBorderColor = "#ebdbb2"
|
||||
myFocusedBorderColor = "#d3869b"
|
||||
|
||||
-- Prompt theming
|
||||
myFont = "xft:Mononoki Nerd Font:bold:size=9:antialias=true:hinting=true"
|
||||
yellow = "#504945"
|
||||
base03 = "#ebdbb2"
|
||||
active = "#b8bb26"
|
||||
prompt = 20
|
||||
|
||||
myPromptTheme = def
|
||||
{ font = myFont
|
||||
, bgColor = base03
|
||||
, fgColor = active
|
||||
, fgHLight = base03
|
||||
, bgHLight = active
|
||||
, borderColor = base03
|
||||
, promptBorderWidth = 0
|
||||
, height = prompt
|
||||
, position = Top
|
||||
}
|
||||
|
||||
#+end_src
|
||||
|
||||
* Start Up
|
||||
|
||||
Set variable used later in the config, often a handful of times.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
myStartupHook = do
|
||||
spawnOnce "nitrogen --restore &"
|
||||
spawnOnce "lxsession &"
|
||||
spawnOnce "xsetroot -cursor_name left_ptr"
|
||||
spawnOnce "imwheel -b 45"
|
||||
|
||||
#+end_src
|
||||
|
||||
* Layout
|
||||
|
||||
Set the possible layouts for great justice.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
myLayout = spacing 2 $ smartBorders (tiled ||| Mirror tiled ||| Full ||| ThreeCol 1 (3/100) (1/2))
|
||||
where
|
||||
-- default tiling algorithm partitions the screen into two panes
|
||||
tiled = Tall 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 = 2/100
|
||||
|
||||
#+end_src
|
||||
|
||||
* Scrathpads
|
||||
|
||||
Define all my scrathpads.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
myScratchPads :: [NamedScratchpad]
|
||||
myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
|
||||
, NS "scr-mpv" spawnMpv findMpv manageMpv
|
||||
, NS "discord" spawnDiscord findDiscord manageDiscord ]
|
||||
where
|
||||
spawnTerm = myTerminal ++ " -t terminal"
|
||||
findTerm = title =? "terminal"
|
||||
manageTerm = customFloating $ W.RationalRect l t w h
|
||||
where
|
||||
h = 0.9
|
||||
w = 0.9
|
||||
t = 0.95 -h
|
||||
l = 0.95 -w
|
||||
|
||||
spawnMpv = "mpv --player-operation-mode=pseudo-gui --title=scr-mpv"
|
||||
findMpv = title =? "scr-mpv"
|
||||
manageMpv = customFloating $ W.RationalRect l t w h
|
||||
where
|
||||
h = 0.9
|
||||
w = 0.9
|
||||
t = 0.95 -h
|
||||
l = 0.95 -w
|
||||
|
||||
spawnDiscord = "discord"
|
||||
findDiscord = appName =? "discord"
|
||||
manageDiscord = customFloating $ W.RationalRect l t w h
|
||||
where
|
||||
h = 0.9
|
||||
w = 0.9
|
||||
t = 0.95 -h
|
||||
l = 0.95 -w
|
||||
|
||||
#+end_src
|
||||
|
||||
* Hooks
|
||||
|
||||
Define some wicked hooks.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
myManageHook = composeAll
|
||||
-- Float fullscreen apps (mostly games)
|
||||
[isDialog --> doCenterFloat,
|
||||
isFullscreen --> doFullFloat,
|
||||
className =? "Gimp" --> doFullFloat,
|
||||
className =? "Anki" --> doFullFloat,
|
||||
className =? "mpv" --> doRectFloat (W.RationalRect 0.55 0.05 0.4 0.4),
|
||||
className =? "Steam" --> doFullFloat,
|
||||
namedScratchpadManageHook myScratchPads]
|
||||
|
||||
#+end_src
|
||||
* Events
|
||||
|
||||
Define some Events.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
myEventHook = mempty
|
||||
|
||||
#+end_src
|
||||
|
||||
* Logging
|
||||
|
||||
Define some Events.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
myLogHook = return ()
|
||||
|
||||
#+end_src
|
||||
* Keybinds
|
||||
** Add "Normal" Binds
|
||||
|
||||
Set all of the keybinds I use to control the universe from within Xmonad.
|
||||
|
||||
*** Window Management
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
myKeys :: String -> [([Char], X ())]
|
||||
myKeys home =
|
||||
[
|
||||
-- close focused window
|
||||
("M-q", kill)
|
||||
-- Rotate through the available layout algorithms
|
||||
, ("M-<Space>", sendMessage NextLayout)
|
||||
-- Resize viewed windows to the correct size
|
||||
, ("M-z", refresh)
|
||||
-- Move focus to the next window
|
||||
, ("M-j", windows W.focusDown)
|
||||
-- Move focus to the previous window
|
||||
, ("M-k", windows W.focusUp)
|
||||
-- Move focus to the master window
|
||||
, ("M-m", windows W.focusMaster)
|
||||
-- Swap the focused window and the master window
|
||||
, ("M-c", windows W.swapMaster)
|
||||
-- Swap the focused window with the next window
|
||||
, ("M-S-j", windows W.swapDown)
|
||||
-- Swap the focused window with the previous window
|
||||
, ("M-S-k", windows W.swapUp)
|
||||
-- Shrink the master area
|
||||
, ("M-h", sendMessage Shrink)
|
||||
-- Expand the master area
|
||||
, ("M-l", sendMessage Expand)
|
||||
-- Push window back into tiling
|
||||
, ("M-t", withFocused $ windows . W.sink)
|
||||
-- Increment the number of windows in the master area
|
||||
, ("M-,", sendMessage (IncMasterN 1))
|
||||
-- Deincrement the number of windows in the master area
|
||||
, ("M-.", sendMessage (IncMasterN (-1)))
|
||||
|
||||
|
||||
#+end_src
|
||||
|
||||
*** Basics
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
-- Spawn terminal
|
||||
, ("M-<Return>" , spawn "alacritty")
|
||||
-- Spawn rofi drun
|
||||
, ("M-w" , spawn "rofi -show drun")
|
||||
-- Spawn rofi window
|
||||
, ("M-S-w", spawn "rofi -show window")
|
||||
|
||||
#+end_src
|
||||
|
||||
*** Media Control
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
-- mute overall volume
|
||||
, ("<XF86AudioMute>", spawn muteVolumeCmd)
|
||||
-- raise overall volume
|
||||
, ("<XF86AudioRaiseVolume>", spawn raiseVolumeCmd)
|
||||
-- lower overall volume
|
||||
, ("<XF86AudioLowerVolume>", spawn lowerVolumeCmd)
|
||||
|
||||
#+end_src
|
||||
|
||||
*** Scratchpads
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
-- Spawn rofi window
|
||||
, ("M-S-<Return>", namedScratchpadAction myScratchPads "terminal")
|
||||
-- Spawn rofi window
|
||||
, ("M-d", namedScratchpadAction myScratchPads "discord")
|
||||
-- Spawn rofi window
|
||||
, ("M-v", namedScratchpadAction myScratchPads "scr-mpv")
|
||||
|
||||
#+end_src
|
||||
|
||||
** Add Open Binds
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
-- Spawn firefox
|
||||
, ("M-o f" , spawn "firefox")
|
||||
-- Spawn lutris
|
||||
, ("M-o l" , spawn "lutris")
|
||||
-- Spawn steam
|
||||
, ("M-o s" , spawn "steam")
|
||||
-- Spawn flameshot
|
||||
, ("M-o c" , spawn "flameshot gui")
|
||||
-- Spawn emacs
|
||||
, ("M-o e" , spawn "emacs")
|
||||
|
||||
#+end_src
|
||||
|
||||
** Add System Utils Binds
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
-- Recompile and restart xmonad
|
||||
, ("M-x r", spawn "xmonad --recompile; xmonad --restart")
|
||||
-- Quit xmonad
|
||||
, ("M-x q", io (exitWith ExitSuccess))
|
||||
-- Start gamemode
|
||||
, ("M-x g", spawn "gamemoded -r")
|
||||
-- Stop gamemode
|
||||
, ("M-x S-g", spawn "killall gamemoded")
|
||||
]
|
||||
|
||||
#+end_src
|
||||
|
||||
** Remove Unneeded Default Binds
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
rmKeys :: String -> [(KeyMask, KeySym)]
|
||||
rmKeys keys =
|
||||
[
|
||||
-- Remove the default quit xmonad bind
|
||||
(myModMask .|. shiftMask, xK_q)
|
||||
]
|
||||
|
||||
#+end_src
|
||||
|
||||
* Main
|
||||
|
||||
The main function that gets it all done.
|
||||
|
||||
#+begin_src haskell
|
||||
|
||||
main = do
|
||||
home <- getHomeDirectory
|
||||
xmproc0 <- spawnPipe "xmobar -x 0 ~/.config/xmobar/xmobarrc"
|
||||
--
|
||||
xmonad $ docks $ ewmh $ def
|
||||
{
|
||||
-- Simple items
|
||||
terminal = myTerminal,
|
||||
focusFollowsMouse = myFocusFollowsMouse,
|
||||
borderWidth = myBorderWidth,
|
||||
modMask = myModMask,
|
||||
workspaces = myWorkspaces,
|
||||
normalBorderColor = myNormalBorderColor,
|
||||
focusedBorderColor = myFocusedBorderColor,
|
||||
|
||||
-- Hooks, Layouts
|
||||
layoutHook = avoidStruts $ myLayout,
|
||||
manageHook = myManageHook,
|
||||
handleEventHook = myEventHook,
|
||||
logHook = workspaceHistoryHook <+> myLogHook <+> dynamicLogWithPP xmobarPP
|
||||
{ ppOutput = \x -> hPutStrLn xmproc0 x
|
||||
, ppCurrent = xmobarColor "#b8bb26" "" . wrap "[" "]" -- Current workspace in xmobar
|
||||
, ppVisible = xmobarColor "#83a598" "" -- Visible but not current workspace
|
||||
, ppHidden = xmobarColor "#83a598" "" . wrap "*" "" -- Hidden workspaces in xmobar
|
||||
, ppHiddenNoWindows= \( _ ) -> "" -- Only shows visible workspaces. Useful for TreeSelect.
|
||||
, ppTitle = xmobarColor "#ebdbb2" "" . shorten 60 -- Title of active window in xmobar
|
||||
, ppSep = "<fc=#ebdbb2> | </fc>" -- Separators in xmobar
|
||||
, ppUrgent = xmobarColor "#fb4934" "" . wrap "!" "!" -- Urgent workspace
|
||||
, ppExtras = [windowCount] -- # of windows current workspace
|
||||
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t]},
|
||||
startupHook = myStartupHook
|
||||
} `removeKeys` rmKeys home
|
||||
`additionalKeysP` myKeys home
|
||||
|
||||
#+end_src
|
||||
Loading…
x
Reference in New Issue
Block a user