diff options
| author | Josh Rahm <rahm@google.com> | 2020-02-03 15:00:23 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2020-02-03 15:00:23 -0700 |
| commit | e3b47c680b20aab1e703ce0525364244422c27e8 (patch) | |
| tree | e5739ea41f403e48d4d47860f1efb337b4dfc3d0 /src/Internal/Keys.hs | |
| parent | a153456b06a06db97735284a0d7496017799807a (diff) | |
| download | rde-e3b47c680b20aab1e703ce0525364244422c27e8.tar.gz rde-e3b47c680b20aab1e703ce0525364244422c27e8.tar.bz2 rde-e3b47c680b20aab1e703ce0525364244422c27e8.zip | |
More minor aesthetic changes to XMobar
Diffstat (limited to 'src/Internal/Keys.hs')
| -rw-r--r-- | src/Internal/Keys.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 8ec06b6..3d0df0c 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -27,7 +27,8 @@ newKeys = zip ['1'..] (XMonad.workspaces config) gotoWorkspace :: Char -> X () - gotoWorkspace ch = + gotoWorkspace ch = do + saveLastMark markContext mapM_ (windows . W.greedyView) (Map.lookup ch workspacesByInt) in |