about summary refs log tree commit diff
path: root/src/Main.hs
diff options
context:
space:
mode:
authorazahi <azahi@teknik.io>2019-06-29 18:16:16 +0300
committerazahi <azahi@teknik.io>2019-06-29 18:16:16 +0300
commit9394e86a2ea44c29035630f54d276bd9712746c9 (patch)
tree765f36c517f1e99169741990d1923722d9515882 /src/Main.hs
parentBump 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 '')
-rw-r--r--src/Main.hs15
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

Consider giving Nix/NixOS a try! <3