colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Hyprland: default special workspace filter

Browse Source
This commit is contained in:
Ivan Malison
2026-02-05 00:27:10 -08:00
committed by Kat Huang
parent 9c40ba1013
commit e617e29197
2 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/taffybar/taffybar

Submodule dotfiles/config/taffybar/taffybar updated: 05d7a1f8fa...54338775e5

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

@@ -167,11 +167,6 @@ iconNameVariants raw =
in [dotted, dashed, dashedDotted, underscored, underscoredDotted, name] in [dotted, dashed, dashedDotted, underscored, underscoredDotted, name]
in nub $ concatMap variantsFor baseNames in nub $ concatMap variantsFor baseNames
isSpecialHyprWorkspace :: Hyprland.HyprlandWorkspace -> Bool
isSpecialHyprWorkspace ws =
let name = Data.Text.toLower $ Data.Text.pack $ Hyprland.workspaceName ws
in Data.Text.isPrefixOf "special" name || Hyprland.workspaceIdx ws < 0
hyprlandIconCandidates :: Hyprland.HyprlandWindow -> [Data.Text.Text] hyprlandIconCandidates :: Hyprland.HyprlandWindow -> [Data.Text.Text]
hyprlandIconCandidates windowData = hyprlandIconCandidates windowData =
let baseNames = map Data.Text.pack $ catMaybes let baseNames = map Data.Text.pack $ catMaybes
@@ -274,9 +269,6 @@ main = do
Hyprland.hyprlandWorkspacesNew Hyprland.defaultHyprlandWorkspacesConfig Hyprland.hyprlandWorkspacesNew Hyprland.defaultHyprlandWorkspacesConfig
{ Hyprland.widgetGap = 0 { Hyprland.widgetGap = 0
, Hyprland.minIcons = 1 , Hyprland.minIcons = 1
, Hyprland.showWorkspaceFn =
(\ws -> Hyprland.workspaceState ws /= Hyprland.Empty &&
not (isSpecialHyprWorkspace ws))
, Hyprland.getWindowIconPixbuf = , Hyprland.getWindowIconPixbuf =
hyprlandManualIconGetter <|||> hyprlandManualIconGetter <|||>
Hyprland.defaultHyprlandGetWindowIconPixbuf <|||> Hyprland.defaultHyprlandGetWindowIconPixbuf <|||>