bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

home: hyprland: add block syntax for window rules

Browse source
This commit is contained in:
Carmine Margiotta 2026-01-21 17:18:35 +01:00
parent f8d6529e1c
commit 08ccdac7f1
No known key found for this signature in database
GPG key ID: 67BEA62600F254CB
1 changed files with 24 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/home/services/hyprland.scm
View file

@ -216,6 +216,14 @@
(define (serialize-block name block)
(serialize-block-entry (list name block) 0))
(define list-of-blocks?
(list-of block?))
(define (serialize-list-of-blocks name blocks)
#~(string-join
(list #$@(map (λ (v) (serialize-block name v)) blocks))
"\n"))
;;; Monitor transform -> number
(define (monitor-transform? x)
(and (number? x)
@ -564,7 +572,7 @@
(decoration (block '()) "Decoration configuration variables")
(animations (block '()) "Animation configuration variables")
(workspace (list-of-strings '()) "Workspaces settings")
(windowrule (list-of-strings '()) "Window rules (v2)")
(windowrule (list-of-blocks '()) "Window rules")
(dwindle (block '()) "Dwindle layout settings")
(master (block '()) "Master layout settings")
(misc (block '()) "Misc settings")
@ -609,8 +617,21 @@
(value "24"))))
(define-public %default-hyprland-windowrule
'("suppressevent maximize, class:.*"
"nofocus,class:^$,title:^$,xwayland:1,floating:1,fullscreen:0,pinned:0"))
'(((name "suppress-maximize-events")
(match:class ".*")
(suppress_event "maximize"))
((name "fix-xwayland-drags")
(match:class "^$")
(match:title "^$")
(match:xwayland #t)
(match:float #t)
(match:fullscreen #f)
(match:pin #f)
(no_focus #t))
((name "move-hyprland-run")
(match:class "hyprland-run")
(move "20 monitor_h-120")
(float "yes"))))
(define-public %default-hyprland-general
'((gaps_in 5)