forked from colonelpanic/dotfiles
[XMonad] Use xdg-desktop-entry
This commit is contained in:
Submodule dotfiles/config/taffybar/taffybar updated: 398dc00a94...104a1c12f7
@@ -117,7 +117,6 @@ cssFileByHostname =
|
|||||||
]
|
]
|
||||||
|
|
||||||
main = do
|
main = do
|
||||||
-- logDebug
|
|
||||||
hostName <- getHostName
|
hostName <- getHostName
|
||||||
homeDirectory <- getHomeDirectory
|
homeDirectory <- getHomeDirectory
|
||||||
cssFilePath <-
|
cssFilePath <-
|
||||||
|
@@ -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
|
||||||
|
@@ -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 <$>
|
||||||
|
Reference in New Issue
Block a user