cristiancmoises
/
modern_lisp-machine
mirror of https://codeberg.org/hashirama/modern_lisp-machine
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Update xmonad/xmonad.hs

main
千住柱間 2024-03-15 15:28:51 +00:00
parent cfb148fd71
commit 96b2a80cfb
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
xmonad/xmonad.hs
View File

@ -33,6 +33,7 @@ import XMonad.Layout.Simplest
import XMonad.Layout.SimplestFloat import XMonad.Layout.SimplestFloat
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Actions.PerWindowKeys import XMonad.Actions.PerWindowKeys
import XMonad.Actions.FindEmptyWorkspace
main :: IO () main :: IO ()
@ -42,6 +43,7 @@ main = xmonad
. withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey . withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey
$ myConfig $ myConfig
myConfig = def myConfig = def
{ modMask = mod4Mask -- Rebind Mod to the Super key { modMask = mod4Mask -- Rebind Mod to the Super key
, layoutHook = myLayout -- Use custom layouts , layoutHook = myLayout -- Use custom layouts
@ -55,6 +57,8 @@ myConfig = def
spawnOnce "feh --bg-fill /home/hashirama/wallpaper.jpg" spawnOnce "feh --bg-fill /home/hashirama/wallpaper.jpg"
spawnOnce "compton -b" spawnOnce "compton -b"
spawnOnce "polybar top-monitor-1" spawnOnce "polybar top-monitor-1"
spawnOnce "fcitx5 -d -r"
} }
`additionalKeysP` `additionalKeysP`
@ -64,9 +68,16 @@ myConfig = def
, ("M-e", runOrRaise "goldendict" (className =? "GoldenDict-ng")) , ("M-e", runOrRaise "goldendict" (className =? "GoldenDict-ng"))
, ("M-p", runOrRaise "nyxt" (className =? "Nyxt")) , ("M-p", runOrRaise "nyxt" (className =? "Nyxt"))
, ("M-t", withFocused $ windows . W.sink) -- Toggle float for the focused window , ("M-t", withFocused $ windows . W.sink) -- Toggle float for the focused window
, ("M-`", runOrRaise "emacs" (className =? "Emacs"))
, ("M-S-q", return ()) -- Unbind Mod + Shift + Q, to avoid quiting the wm. , ("M-S-q", return ()) -- Unbind Mod + Shift + Q, to avoid quiting the wm.
, ("M-q", kill) -- Change the keybinding for closing windows to Mod + Q , ("M-q", kill) -- Change the keybinding for closing windows to Mod + Q
, ("M-m", spawn "alacritty -e sh -c 'cd /mnt/Data/Music/ && cmus'") , ("M-m", spawn "alacritty -e sh -c 'cd /mnt/Data/Music/ && cmus'")
, ("M-S-r", spawn "~/.local/bin/run_anki.sh")
, ("M-r", runOrRaise "~/.local/bin/run_anki.sh" (className =? "Anki"))
, ("M-S-f", sendToEmptyWorkspace) -- View an empty workspace
, ("M-f", viewEmptyWorkspace) -- View an empty workspace
, ("M-S-w", spawn "flameshot gui --path=/mnt/Data/mpv-screenshots/screenshots")
, ("M-w", spawn "~/.local/bin/copy_image.sh")
] ]