Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-04-24 12:00:24 +10:00
Code Issues Packages Projects Releases Wiki Activity

More organizing the config and adding more comments.

Browse Source
This commit is contained in:
Derek Taylor
2022-06-27 00:07:27 -05:00
parent 8a74759a2e
commit 9d0685a0b7
2 changed files with 29 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
.xmonad/xmonad.hs
View File

@@ -483,6 +483,12 @@ startupSound = soundDir ++ "startup-01.mp3"
shutdownSound = soundDir ++ "shutdown-01.mp3"
dmenuSound = soundDir ++ "menu-01.mp3"
subtitle' :: String -> ((KeyMask, KeySym), NamedAction)
subtitle' x = ((0,0), NamedAction $ map toUpper
$ sep ++ "\n-- " ++ x ++ " --\n" ++ sep)
where
sep = replicate (6 + length x) '-'
showKeybindings :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
showKeybindings x = addName "Show Keybindings" $ io $ do
h <- spawnPipe $ "yad --text-info --fontname=\"SauceCodePro Nerd Font Mono 12\" --fore=#46d9ff back=#282c36 --center --geometry=1200x800 --title \"XMonad keybindings\""
@@ -491,12 +497,6 @@ showKeybindings x = addName "Show Keybindings" $ io $ do
hClose h
return ()
subtitle' :: String -> ((KeyMask, KeySym), NamedAction)
subtitle' x = ((0,0), NamedAction $ map toUpper
$ sep ++ "\n-- " ++ x ++ " --\n" ++ sep)
where
sep = replicate (6 + length x) '-'
myKeys :: XConfig l0 -> [((KeyMask, KeySym), NamedAction)]
myKeys c =
--(subtitle "Custom Keys":) $ mkNamedKeymap c $