mirror of
https://github.com/starr-dusT/dotfiles.git
synced 2024-10-05 20:06:16 -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/*
|
||||||
!/.xmonad/xmonad.hs
|
!/.xmonad/xmonad.hs
|
||||||
|
!/.xmonad/xmonad.org
|
||||||
|
|
||||||
## ~/.config
|
## ~/.config
|
||||||
!/.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…
Reference in New Issue
Block a user