From 00556c5ab0003c6cec8d0c18e6e03500ab2ef206 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Feb 2012 00:49:50 +0100
Subject: Oops

---
 .xinitrc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/.xinitrc b/.xinitrc
index a7956b8..0d1c74e 100644
--- a/.xinitrc
+++ b/.xinitrc
@@ -1,5 +1,4 @@
-case
-        # -*- mode: shell-script; eval: (git-auto-commit-mode 1) -*-
+# -*- mode: shell-script; eval: (git-auto-commit-mode 1) -*-
 
 # -----[ Set background ]---------------------------------------------
 hsetroot -center ~/pictures/wallpapers/3600x1080/wallpaper-1460625.jpg
-- 
cgit v1.2.3-54-g00ecf


From 54bbb081a9cbf078188bec90ed6575271348b63d Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Feb 2012 00:50:27 +0100
Subject: New names for my mailboxes, mostly for screen space on my netbook

---
 .config/herbstluftwm/panel.sh | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/.config/herbstluftwm/panel.sh b/.config/herbstluftwm/panel.sh
index 38c365f..52bcaa5 100755
--- a/.config/herbstluftwm/panel.sh
+++ b/.config/herbstluftwm/panel.sh
@@ -64,7 +64,9 @@ function print_tags() {
 }
 
 function print_mailboxes() {
+    declare -A mailnames
     mailboxes=(ninthfloor gmail arch aethon ryuslash.org)
+    mailnames=([ninthfloor]="9f" [gmail]="gm" [arch]="arc" [aethon]="aet" [ryuslash.org]="ryu")
     mailtxt=""
     for j in "${mailboxes[@]}"; do
         mailfile="$HOME/documents/mail/$j/INBOX/new/"
@@ -77,7 +79,7 @@ function print_mailboxes() {
             mailcolor=$bgcolor
         fi
 
-        mailtxt="$mailtxt${separator}^bg($mailcolor)^fg(#ffffff) $j ^fg()^bg()"
+        mailtxt="$mailtxt${separator}^bg($mailcolor)^fg(#ffffff) ${mailnames[$j]} ^fg()^bg()"
 #        echo -n "^fg($mailcolor)^ro(${tag_width}x$height)^fg()$separator"
     done
     mailtxt_only=$(echo -n "$mailtxt" | sed 's.\^[^(]*([^)]*)..g')
-- 
cgit v1.2.3-54-g00ecf


From c7c4a984361b31477b611a60067910d88346a086 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Feb 2012 00:53:01 +0100
Subject: XBINDKEYS: use system where possible, which block where run-command
 doesn't

---
 .xbindkeysrc.scm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm
index bf5a77d..295fb17 100644
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@@ -27,10 +27,8 @@
     (close-port file)
     tags))
 
-(define (get-tag tags pipe)
-  (read-line pipe))
-
 (define (choose-tag prompt tags)
+  "Ask to choose a tag"
   (let* ((file (open-input-pipe
                 (string-append "echo '" (string-join tags "\n")
                                "' | " dmenu-cmd " -p '" prompt ":'")))
@@ -45,7 +43,7 @@
     (if (string? tag)
         (begin
           (if (not (member tag tags))
-              (run-command (string-append "herbstclient add " tag)))
+              (system (string-append "herbstclient add " tag)))
           (run-command (string-append "herbstclient use " tag))))
     (reset-main-binding)))
 
@@ -56,7 +54,7 @@
     (if (string? tag)
         (begin
           (if (member tag tags)
-              (run-command (string-append "herbstclient merge_tag " tag)))))
+              (system (string-append "herbstclient merge_tag " tag)))))
     (reset-main-binding)))
 
 (define (move-to-tag)
@@ -66,7 +64,7 @@
     (if (string? tag)
         (begin
           (if (not (member tag tags))
-              (run-command (string-append "herbstclient add " tag)))
+              (system (string-append "herbstclient add " tag)))
           (run-command (string-append "herbstclient move " tag))))
     (reset-main-binding)))
 
-- 
cgit v1.2.3-54-g00ecf


From 4c877f0c7b7bb54e8fc8c55d5da4625772af1dcf Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Feb 2012 00:54:15 +0100
Subject: Woops, not with kill-tag

---
 .xbindkeysrc.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm
index 295fb17..a58c09a 100644
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@@ -54,7 +54,7 @@
     (if (string? tag)
         (begin
           (if (member tag tags)
-              (system (string-append "herbstclient merge_tag " tag)))))
+              (run-command (string-append "herbstclient merge_tag " tag)))))
     (reset-main-binding)))
 
 (define (move-to-tag)
-- 
cgit v1.2.3-54-g00ecf