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)) (length tags))
tags) tags)
(if (> (length tags) 0) (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) (map (lambda (attribute-pair)
(format #f "herbstclient attr ~a ~s\n" (format #f "herbstclient attr ~a ~s\n"