diff options
author | azahi <azahi@teknik.io> | 2019-06-29 18:16:16 +0300 |
---|---|---|
committer | azahi <azahi@teknik.io> | 2019-06-29 18:16:16 +0300 |
commit | 9394e86a2ea44c29035630f54d276bd9712746c9 (patch) | |
tree | 765f36c517f1e99169741990d1923722d9515882 /src/Main.hs | |
parent | Bump version 0.15.3 (diff) |
Replace alsa-mixer with external shell alternative
Modify fonts Remove urgency hook Remove selection notification Decrease spacing and apply it to bars Tweak colors
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/Main.hs b/src/Main.hs index 9afb3a1..91a3e9f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -26,30 +26,15 @@ import qualified XMonad.Custom.Projects as C import qualified XMonad.Custom.Startup as C import qualified XMonad.Custom.Theme as C import qualified XMonad.Custom.Workspaces as C -import XMonad.Hooks.DynamicLog import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks -import XMonad.Hooks.UrgencyHook import XMonad.Layout.Fullscreen -import qualified XMonad.StackSet as S -import XMonad.Util.NamedWindows -import XMonad.Util.Run - -data NotifyUrgencyHook = NotifyUrgencyHook - deriving (Read, Show) - -instance UrgencyHook NotifyUrgencyHook where - urgencyHook NotifyUrgencyHook w = do - n <- getName w - Just i <- S.findTag w <$> gets windowset - safeSpawn (C.notify C.applications) [show n, "workspace " ++ wrap "[" "]" i] main :: IO () main = xmonad $ ewmh $ fullscreenSupport $ docks - $ withUrgencyHook NotifyUrgencyHook $ withNavigation2DConfig C.navigation $ dynamicProjects C.projects $ def { borderWidth = C.border |