Auto Tangle, Whitespace Fixes, & Xmobar Config Changes

- Auto tangle xmonad & xmobar config
- Replace ` with ~ for code formatted text
- Put code example inside an example block
- Change workspaces back to default numbers
- Fix leading whitespace in org document
- Initial xmobar config changes
This commit is contained in:
Sravan Balaji
2021-05-08 14:26:32 -04:00
parent a62d95b590
commit 93cca1d4f2
3 changed files with 64 additions and 63 deletions

View File

@@ -26,12 +26,11 @@ myBorderWidth = 2
myNormalBorderColor = "#4D4D4D"
myFocusedBorderColor = "#BD93F9"
myWorkspaces = ["\f868\2081", "2", "3", "4", "5", "6", "7", "8", "9"]
myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
myModMask = mod4Mask
myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- launch a terminal
[ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
@@ -106,19 +105,15 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
]
++
--
-- mod-[1..9], Switch to workspace N
-- mod-shift-[1..9], Move client to workspace N
--
[((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
++
--
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
--
[((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]