[XMonad] Use xdg-desktop-entry

dotfiles/config/taffybar/taffybar.hs

@@ -117,7 +117,6 @@ cssFileByHostname =
   ]
 
 main = do
-  -- logDebug
   hostName <- getHostName
   homeDirectory <- getHomeDirectory
   cssFilePath <-

dotfiles/config/xmonad/imalison-xmonad.cabal

@@ -24,7 +24,7 @@ executable imalison-xmonad
                      , process>=1.4.3.0
                      , safe
                      , split
-                     , taffybar
+                     , xdg-desktop-entry
                      , transformers>=0.5.2.0
                      , tuple >= 0.3.0.2
                      , utf8-string

dotfiles/config/xmonad/xmonad.hs

@@ -28,11 +28,10 @@ import           Network.HostName
 import           PagerHints
 import           Safe
 import           System.Directory
+import           System.Environment.XDG.DesktopEntry
 import           System.FilePath.Posix
 import           System.IO.Unsafe
 import           System.Process
-import           System.Taffybar.Hooks
-import           System.Taffybar.Information.XDG.DesktopEntry
 import           Text.Printf
 import           Unsafe.Coerce
 import           XMonad hiding ( (|||) )
@@ -401,7 +400,7 @@ desktopEntriesMap :: MM.MultiMap String DesktopEntry
 desktopEntriesMap =
   unsafePerformIO $ do
     tee id (>>= writeToHomeDirLog . show . MM.keys) $
-        directoryEntriesByClassName <$> getDirectoryEntriesDefault
+        indexDesktopEntriesByClassName <$> getDirectoryEntriesDefault
 
 lookupIconFromClasses classes =
   getFirst $ fold $ First . deIcon <$>