From 8c51baf7267f0725e6b98c8a554d6593f7066ae6 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Fri, 15 Apr 2022 23:39:06 -0700
Subject: Merge the default tag into the first defined tag if any were defined

---
 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 0b73ce5..2d0ef82 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 "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"
-- 
cgit v1.2.3-54-g00ecf