wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Use xdg-desktop-entry

Browse Source
This commit is contained in:
Ivan Malison
2019-06-24 18:59:57 -07:00
parent 948decd385
commit 9d91488fd8
4 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/taffybar/taffybar

Submodule dotfiles/config/taffybar/taffybar updated: 398dc00a94...104a1c12f7

1
dotfiles/config/taffybar/taffybar.hs
View File

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

2
dotfiles/config/xmonad/imalison-xmonad.cabal
View File

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

5
dotfiles/config/xmonad/xmonad.hs
View File

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