Switch to the first tag before deleting the default tag

Without this, even with a target, the command will complain that the current tag
can't be merged.
This commit is contained in:
Tom Willemse 2022-04-19 01:16:11 -07:00
parent 067c524ffe
commit edba4af64d

View file

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