From 00556c5ab0003c6cec8d0c18e6e03500ab2ef206 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 7 Feb 2012 00:49:50 +0100 Subject: [PATCH 1/4] 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 From 54bbb081a9cbf078188bec90ed6575271348b63d Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 7 Feb 2012 00:50:27 +0100 Subject: [PATCH 2/4] 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') From c7c4a984361b31477b611a60067910d88346a086 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 7 Feb 2012 00:53:01 +0100 Subject: [PATCH 3/4] 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))) From 4c877f0c7b7bb54e8fc8c55d5da4625772af1dcf Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 7 Feb 2012 00:54:15 +0100 Subject: [PATCH 4/4] 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)