From 9394e86a2ea44c29035630f54d276bd9712746c9 Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Sat, 29 Jun 2019 18:16:16 +0300
Subject: Replace alsa-mixer with external shell alternative

Modify fonts
Remove urgency hook
Remove selection notification
Decrease spacing and apply it to bars
Tweak colors
---
 src/Main.hs | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'src/Main.hs')

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
-- 
cgit 1.4.1