83 lines
3.7 KiB
Nix
83 lines
3.7 KiB
Nix
|
{ config, inputs, pkgs, makeEnable, ... }:
|
||
|
|
makeEnable config "myModules.taffybar" false {
|
||
|
|
nixpkgs.overlays = with inputs; (
|
||
|
|
if builtins.isList taffybar.overlays
|
||
|
|
then taffybar.overlays
|
||
|
|
else builtins.attrValues taffybar.overlays
|
||
|
|
) ++ [
|
||
|
|
(final: prev: {
|
||
|
|
haskellPackages = prev.haskellPackages.override (old: {
|
||
|
|
overrides = prev.lib.composeExtensions (old.overrides or (_: _: {})) (hself: hsuper: {
|
||
|
|
taffybar = prev.haskell.lib.overrideCabal hsuper.taffybar (oa: {
|
||
|
|
postPatch = (oa.postPatch or "") + ''
|
||
|
|
patch -p1 <<'PATCH'
|
||
|
|
diff --git a/src/System/Taffybar/Widget/HyprlandWorkspaces.hs b/src/System/Taffybar/Widget/HyprlandWorkspaces.hs
|
||
|
|
index 8e0e07a..a40b1a6 100644
|
||
|
|
--- a/src/System/Taffybar/Widget/HyprlandWorkspaces.hs
|
||
|
|
+++ b/src/System/Taffybar/Widget/HyprlandWorkspaces.hs
|
||
|
|
@@ -27,7 +27,7 @@ import Control.Monad.IO.Class (MonadIO(liftIO))
|
||
|
|
import Control.Monad.Trans.Reader (ReaderT, ask, runReaderT)
|
||
|
|
import Data.Aeson (FromJSON(..), eitherDecode', withObject, (.:), (.:?), (.!=))
|
||
|
|
import Data.Char (toLower)
|
||
|
|
-import Data.List (foldl', sortOn, stripSuffix)
|
||
|
|
+import Data.List (foldl', sortOn, stripPrefix)
|
||
|
|
import Data.Maybe (fromMaybe, listToMaybe, mapMaybe)
|
||
|
|
import qualified Data.Map.Strict as M
|
||
|
|
import qualified Data.MultiMap as MM
|
||
|
|
@@ -42,12 +42,11 @@ import StatusNotifier.Tray (scalePixbufToSize)
|
||
|
|
|
||
|
|
import System.Environment.XDG.DesktopEntry
|
||
|
|
( DesktopEntry
|
||
|
|
, deFilename
|
||
|
|
- , getDirectoryEntriesDefault
|
||
|
|
- , getImageForDesktopEntry
|
||
|
|
+ , getDirectoryEntriesDefault
|
||
|
|
)
|
||
|
|
import System.Taffybar.Context
|
||
|
|
import System.Taffybar.Util
|
||
|
|
import System.Taffybar.Widget.Generic.AutoSizeImage (autoSizeImage)
|
||
|
|
-import System.Taffybar.Widget.Util (buildContentsBox, widgetSetClassGI)
|
||
|
|
+import System.Taffybar.Widget.Util (buildContentsBox, getImageForDesktopEntry, widgetSetClassGI)
|
||
|
|
import System.Taffybar.WindowIcon (getWindowIconFromClasses, pixBufFromColor)
|
||
|
|
@@ -316,6 +315,10 @@ normalizeAppId :: String -> String
|
||
|
|
normalizeAppId name =
|
||
|
|
let stripped = fromMaybe name (stripSuffix ".desktop" name)
|
||
|
|
in map toLower stripped
|
||
|
|
+
|
||
|
|
+stripSuffix :: Eq a => [a] -> [a] -> Maybe [a]
|
||
|
|
+stripSuffix suffix xs =
|
||
|
|
+ reverse <$> stripPrefix (reverse suffix) (reverse xs)
|
||
|
|
|
||
|
|
getWindowIconFromDesktopEntryByAppId ::
|
||
|
|
Int32 -> String -> TaffyIO (Maybe Gdk.Pixbuf)
|
||
|
|
PATCH
|
||
|
|
'';
|
||
|
|
});
|
||
|
|
});
|
||
|
|
});
|
||
|
|
})
|
||
|
|
];
|
||
|
|
|
||
|
|
environment.systemPackages = [
|
||
|
|
inputs.imalison-taffybar.defaultPackage.${pkgs.stdenv.hostPlatform.system}
|
||
|
|
];
|
||
|
|
|
||
|
|
home-manager.sharedModules = [
|
||
|
|
{
|
||
|
|
services.status-notifier-watcher.enable = true;
|
||
|
|
|
||
|
|
# Disable kded6's statusnotifierwatcher module so it doesn't race with
|
||
|
|
# the Haskell status-notifier-watcher for the org.kde.StatusNotifierWatcher bus name.
|
||
|
|
xdg.configFile."kded6rc".text = ''
|
||
|
|
[Module-statusnotifierwatcher]
|
||
|
|
autoload=false
|
||
|
|
'';
|
||
|
|
|
||
|
|
services.taffybar = {
|
||
|
|
enable = true;
|
||
|
|
package = inputs.imalison-taffybar.defaultPackage.${pkgs.stdenv.hostPlatform.system};
|
||
|
|
};
|
||
|
|
}
|
||
|
|
];
|
||
|
|
}
|