From edba4af64db8808fae99e8327251af1283a35a91 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 19 Apr 2022 01:16:11 -0700
Subject: 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.
---
 oni/home/services/herbstluftwm.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/oni/home/services/herbstluftwm.scm b/oni/home/services/herbstluftwm.scm
index 2d0ef82..a563aa6 100644
--- a/oni/home/services/herbstluftwm.scm
+++ b/oni/home/services/herbstluftwm.scm
@@ -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"
-- 
cgit v1.2.3-54-g00ecf