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

This commit is contained in:
Tom Willemse 2022-04-15 23:39:06 -07:00
parent a1a6300851
commit 8c51baf726

View file

@ -73,7 +73,7 @@
(length tags))
tags)
(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)
(format #f "herbstclient attr ~a ~s\n"