ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge the default tag into the first defined tag if any were defined

Browse source
This commit is contained in:
Tom Willemse 2022-04-15 23:39:06 -07:00
parent a1a6300851
commit 8c51baf726
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
oni/home/services/herbstluftwm.scm
View file

@ -73,7 +73,7 @@
(length tags)) (length tags))
tags) tags)
(if (> (length tags) 0) (if (> (length tags) 0)
(list "herbstclient merge_tag default\n") (list (format #f "herbstclient merge_tag default ~s\n" (car tags)))
'()) '())
(map (lambda (attribute-pair) (map (lambda (attribute-pair)
(format #f "herbstclient attr ~a ~s\n" (format #f "herbstclient attr ~a ~s\n"