Schwarztee/alkaa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat: adopt to new screen and some qol for xmonad

Browse Source
This commit is contained in:
Max Hohlfeld 2023-08-16 20:29:09 +02:00
parent b1a8f70058
commit 35528621d9
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
roles/xmonad/files/xmobarrc_qwerty
View File

@ -1,7 +1,7 @@
Config { font = "Iosevka Normal 11" Config { font = "Iosevka Normal 12"
, bgColor = "#3f3f3f" , bgColor = "#3f3f3f"
, fgColor = "#dcdccc" , fgColor = "#dcdccc"
, position = TopH 22 , position = TopH 25
, border = FullB , border = FullB
, borderColor = "#dcdccc" , borderColor = "#dcdccc"
, lowerOnStart = True , lowerOnStart = True

11
roles/xmonad/files/xmonad_qwerty.hs
View File

@ -50,8 +50,9 @@ myScratchpads :: [NamedScratchpad]
myScratchpads = myScratchpads =
[ NS "cmus" "alacritty -n cmus -e cmus" (resource =? "cmus") (customFloating $ W.RationalRect (1/6) (1/6) (4/6) (4/6)) [ NS "cmus" "alacritty -n cmus -e cmus" (resource =? "cmus") (customFloating $ W.RationalRect (1/6) (1/6) (4/6) (4/6))
, NS "nnn" "alacritty -t nnn -e run_in_bash n" (title =? "nnn") (customFloating $ W.RationalRect (1/4) (1/6) (2/4) (4/6)) , NS "nnn" "alacritty -t nnn -e run_in_bash n" (title =? "nnn") (customFloating $ W.RationalRect (1/4) (1/6) (2/4) (4/6))
, NS "neomutt" "alacritty -t neomutt -e neomutt -f posteo-Inbox" (title =? "neomutt") (customFloating $ W.RationalRect (1/10) (1/10) (8/10) (8/10)) , NS "aerc" "alacritty -t aerc -e aerc" (title =? "aerc") (customFloating $ W.RationalRect (1/10) (1/10) (8/10) (8/10))
, NS "vimwiki" "alacritty -t vimwiki -e run_in_bash vw" (title =? "vimwiki") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3)) , NS "vimwiki" "alacritty -t vimwiki -e run_in_bash vw" (title =? "vimwiki") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))
, NS "dino" "dino" (title =? "Dino") (customFloating $ W.RationalRect (1/10) (1/10) (8/10) (8/10))
, NS "keepassxc" "keepassxc ~/dokumente/Database.kdbx" (title =? "Database.kdbx - KeePassXC" <||> title =? "Database.kdbx [Gesperrt] - KeePassXC") defaultFloating , NS "keepassxc" "keepassxc ~/dokumente/Database.kdbx" (title =? "Database.kdbx - KeePassXC" <||> title =? "Database.kdbx [Gesperrt] - KeePassXC") defaultFloating
, NS "qalculate" "qalculate-gtk" (title =? "Qalculate!") (customFloating $ W.RationalRect (3/6) (1/6) (1/6) (1/6)) , NS "qalculate" "qalculate-gtk" (title =? "Qalculate!") (customFloating $ W.RationalRect (3/6) (1/6) (1/6) (1/6))
, NS "pavucontrol" "pavucontrol" (title =? "Lautstärkeregler") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3)) , NS "pavucontrol" "pavucontrol" (title =? "Lautstärkeregler") (customFloating $ W.RationalRect (1/6) (1/6) (2/3) (2/3))
@ -162,9 +163,9 @@ myAdditionalKeys =
-- scratchpads -- scratchpads
, ("M-s c", namedScratchpadAction myScratchpads "cmus") , ("M-s c", namedScratchpadAction myScratchpads "cmus")
, ("M-s m", namedScratchpadAction myScratchpads "neomutt") , ("M-s m", namedScratchpadAction myScratchpads "aerc")
, ("M-s v", namedScratchpadAction myScratchpads "vimwiki") , ("M-s v", namedScratchpadAction myScratchpads "vimwiki")
, ("M-s d", namedScratchpadAction myScratchpads "dino")
, ("M-S-a", namedScratchpadAction myScratchpads "keepassxc") , ("M-S-a", namedScratchpadAction myScratchpads "keepassxc")
, ("M-n", namedScratchpadAction myScratchpads "nnn") , ("M-n", namedScratchpadAction myScratchpads "nnn")
, ("M-s a", namedScratchpadAction myScratchpads "pavucontrol") , ("M-s a", namedScratchpadAction myScratchpads "pavucontrol")
@ -228,8 +229,9 @@ myManageHook = composeAll . concat $
, [ ( className =? "LibreWolf" <&&> role =? "Organizer" ) --> doFloat ] , [ ( className =? "LibreWolf" <&&> role =? "Organizer" ) --> doFloat ]
-- Steam and games -- Steam and games
, [ className =? "Steam" --> doShift "steam" ] , [ (className =? "steam" <||> className =? "steamwebhelper") --> doShift "steam" ]
, [ (title *!? "Friends List" <||> title *!? "News" ) --> doF W.swapDown ] , [ (title *!? "Friends List" <||> title *!? "News" ) --> doF W.swapDown ]
, [ title =? "Steam" --> doF W.shiftMaster ]
, [ title =? t <&&> title *!? t --> doShift "game" | t <- myGames ] , [ title =? t <&&> title *!? t --> doShift "game" | t <- myGames ]
-- float specific classes -- float specific classes
@ -253,6 +255,7 @@ myStartupHook = do
spawnOnce "redshift -c /home/max/.config/redshift/redshiftrc" spawnOnce "redshift -c /home/max/.config/redshift/redshiftrc"
spawnOnce "feh --bg-fill ~/bilder/bg.jpg" spawnOnce "feh --bg-fill ~/bilder/bg.jpg"
spawnOnce "/usr/bin/syncthing -no-browser -logfile=default" spawnOnce "/usr/bin/syncthing -no-browser -logfile=default"
spawnOnce "autorandr -c"
-- Main -- Main
main = do main = do