Merge remote-tracking branch 'gitorious/master' into phoenix

.config/herbstluftwm/panel.sh

@@ -94,7 +94,7 @@ function print_services() {
         servicetxt="$servicetxt$separator$(status $j)"
     done
     servicetxt_only=$(echo -n "$servicetxt" | sed 's.\^[^(]*([^)]*)..g')
-    let servicetxt_width=$(textwidth "$font" "$servicetxt_only")/2
+    let servicetxt_width=($(textwidth "$font" "$servicetxt_only")+7)/2
 
     echo -n "^p(_CENTER)^p(-$servicetxt_width)$servicetxt"
 }
@@ -150,3 +150,7 @@ herbstclient pad $monitor2 -5 -5 -5 -5
     done
 } 2> /dev/null | dzen2 -w $width -x $x -y $y -fn "$font" -h $height \
     -ta l -bg "$bgcolor"
+
+# Local Variables:
+# eval: (git-auto-commit-mode 1)
+# End:

.config/newsbeuter/config

@@ -1,5 +1,6 @@
+# -*- eval: (git-auto-commit-mode 1) -*-
 auto-reload               yes
-browser                   "$BROWSER"
+browser                   conkeror
 confirm-exit              yes
 feedlist-format           "%-35t %?d?- %-35d&? %> %u"
 max-items                 500

.config/newsbeuter/urls

@@ -75,6 +75,7 @@ http://planet.emacsen.org/atom.xml emacs
 http://emacsblog.org/feed/ emacs
 http://www.emacswiki.org/emacs?action=rss emacs
 http://feeds.feedburner.com/XahsEmacsBlog
+http://www.masteringemacs.org/feed/
 
 #-----[ N900 ]--------------------------------------------------------
 http://www.reddit.com/r/n900/.rss n900

.conkerorrc/modeline.js

@@ -1,4 +1,6 @@
+// -*- eval: (git-auto-commit-mode 1) -*-
 require("favicon");
 
 add_hook("mode_line_hook", mode_line_adder(buffer_icon_widget, true));
 add_hook("mode_line_hook", mode_line_adder(buffer_count_widget, true));
+add_hook("mode_line_hook", mode_line_adder(downloads_status_widget));

.conkerorrc/settings.js

@@ -1,3 +1,4 @@
+// -*- eval: (git-auto-commit-mode 1) -*-
 cwd = make_file("/home/slash/downloads/");
 url_remoting_fn = load_url_in_new_buffer;
 read_buffer_show_icons = true;
@@ -12,3 +13,5 @@ add_hook("before_quit_hook",
                      $options = ["y", "n"]));
              yield co_return(result);
          });
+
+remove_hook("download_added_hook", open_download_buffer_automatically);

.xbindkeysrc.scm

@@ -4,18 +4,38 @@
 
 ;;; Variables
 (define modkey 'mod4)
-(define font "-misc-tamsyn-medium-r-normal-*-17-*-*-*-*-*-iso8859-*")
+(define dmenu-font
+  "-misc-tamsyn-medium-r-normal-*-14-*-*-*-*-*-iso8859-*")
 (define dmenu-cmd "dmenu")
 (define dmenu-args
-  (string-append "-b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000' -fn '" font "'"))
+  (string-append
+   "-b -nb '#000000' -nf '#15abc3' -sb '#e0c625' -sf '#000000' -fn '"
+   dmenu-font "'"))
+(define dzen-font
+  "-misc-tamsyn-medium-r-normal-*-17-*-*-*-*-*-iso8859-*")
+(define dzen-cmd "dzen2")
+(define dzen-args
+  (string-append " -fn '" dzen-font
+                 "' -x 5 -y 5 -bg '#000000' -fg '#15abc3'"))
 (define dzen-pipe '())
 
+(define previous-tag '())
+(define current-tag "default")
+
 ;;; Macros
 (define-macro (cmd command)
   `(lambda ()
      (run-command ,command)
      (reset-main-binding)))
 
+(define-macro (create-map name binding . more)
+  `(define (,name)
+     (ungrab-all-keys)
+     (remove-all-keys)
+     (begin ,binding . ,more)
+     (xbindkey-function `(,modkey g) reset-main-binding)
+     (grab-all-keys)))
+
 ;;; Functions
 (define (reset-main-binding)
   "reset first binding"
@@ -26,11 +46,16 @@
   (grab-all-keys))
 
 (define (get-tags)
+  "Get a list of tags"
   (let* ((file (open-input-pipe
                 "TAGS=( $(herbstclient tag_status 0 | tr \":\\!.+#\" \" \") ); echo ${TAGS[@]}"))
          (tags (string-split (read-line file) #\ )))
     (close-port file)
-    tags))
+    (set! tags (delete current-tag tags))
+    (set! tags (delete previous-tag tags))
+    (if (not (null? previous-tag))
+        (append `(,previous-tag) (append tags `(,current-tag)))
+        (append tags `(,current-tag)))))
 
 (define (choose-tag prompt tags)
   "Ask to choose a tag"
@@ -49,6 +74,8 @@
         (begin
           (if (not (member tag tags))
               (system (string-append "herbstclient add " tag)))
+          (set! previous-tag current-tag)
+          (set! current-tag tag)
           (run-command (string-append "herbstclient use " tag))))
     (reset-main-binding)))
 
@@ -82,10 +109,11 @@
         -1)))
 
 (define (gui-print text)
-  (let ((width (+ (text-width font text) 10)))
+  (close-gui-window)
+  (let ((width (+ (text-width dzen-font text) 10)))
     (set! dzen-pipe (open-output-pipe
-                     (string-append "dzen2 -w " (number->string width)
-                                    " -fn '" font "' -x 5 -y 5 -bg '#000000' -fg '#15abc3'"))))
+                     (string-append dzen-cmd " -w " (number->string width)
+                                    " " dzen-args))))
   (display text dzen-pipe)
   (newline dzen-pipe))
 
@@ -99,9 +127,9 @@
 (define (main-binding)
   "First binding"
   (xbindkey `(,modkey shift "1") (string-append "dmenu_run -p 'Run:' " dmenu-args))
-  (xbindkey-function `(,modkey x) X-functions)
-  (xbindkey-function `(,modkey w) W-functions)
-  (xbindkey-function `(,modkey s) S-functions)
+  (xbindkey-function `(,modkey x) X-function-map)
+  (xbindkey-function `(,modkey w) W-function-map)
+  (xbindkey-function `(,modkey s) S-function-map)
   (xbindkey `(,modkey Return) "urxvt")
   (xbindkey '(control alt l) "i3lock -c 000000")
   (xbindkey '(XF86HomePage) "conkeror")
@@ -116,11 +144,8 @@
   (xbindkey '(XF86Tools) "ncmpcpp")
   (xbindkey-function `(,modkey g) reset-main-binding))
 
-(define (X-functions)
-  "Second binding"
+(create-map X-function-map
             (gui-print "S-x")
-  (ungrab-all-keys)
-  (remove-all-keys)
             (xbindkey-function '(b) switch-tags)
             (xbindkey-function `(,modkey c) (cmd "herbstclient quit"))
             (xbindkey-function `(,modkey r) (cmd "herbstclient reload"))
@@ -133,14 +158,10 @@
             (xbindkey-function '(shift f) (cmd "herbstclient fullscreen toggle"))
             (xbindkey-function '(p) (cmd "herbstclient pseudotile toggle"))
             (xbindkey-function '(r) resize-map)
-  (xbindkey-function '(m) move-to-tag)
-  (xbindkey-function `(,modkey g) reset-main-binding)
-  (grab-all-keys))
+            (xbindkey-function '(m) move-to-tag))
 
-(define (W-functions)
+(create-map W-function-map
             (gui-print "S-w")
-  (ungrab-all-keys)
-  (remove-all-keys)
             (xbindkey-function '(k) (cmd "herbstclient close"))
             (xbindkey-function '(w) (cmd "herbstclient cycle"))
             (xbindkey-function '(o) (cmd "herbstclient cycle_all +1"))
@@ -151,35 +172,19 @@
             (xbindkey-function '(shift b) (cmd "herbstclient shift left"))
             (xbindkey-function '(shift n) (cmd "herbstclient shift down"))
             (xbindkey-function '(shift p) (cmd "herbstclient shift up"))
-  (xbindkey-function '(shift f) (cmd "herbstclient shift right"))
-  (xbindkey-function `(,modkey g) reset-main-binding)
-  (grab-all-keys))
+            (xbindkey-function '(shift f) (cmd "herbstclient shift right")))
 
-(define (S-functions)
+(create-map S-function-map
             (gui-print "S-s")
-  (ungrab-all-keys)
-  (remove-all-keys)
-  (xbindkey-function '(o) (cmd "herbstclient cycle_monitor"))
-  (xbindkey-function `(,modkey g) reset-main-binding)
-  (grab-all-keys))
+            (xbindkey-function '(o) (cmd "herbstclient cycle_monitor")))
 
-(define (P-functions)
-  (ungrab-all-keys)
-  (remove-all-keys)
-
-  (grab-all-keys))
-
-(define (resize-map)
+(create-map resize-map
             (gui-print "Resizing")
-  (ungrab-all-keys)
-  (remove-all-keys)
             (xbindkey `(,modkey b) "herbstclient resize left +0.05")
-  (xbindkey `(,modkey n) "herbstclient rezise down +0.05")
+            (xbindkey `(,modkey n) "herbstclient resize down +0.05")
             (xbindkey `(,modkey p) "herbstclient resize up +0.05")
             (xbindkey `(,modkey f) "herbstclient resize right +0.05")
-  (xbindkey-function '(Return) reset-main-binding)
-  (xbindkey-function `(,modkey g) reset-main-binding)
-  (grab-all-keys))
+            (xbindkey-function '(Return) reset-main-binding))
 
 ;;; Main
 (main-binding)

.zsh/functions/prompt

@@ -4,17 +4,12 @@ local pac_cnt=$(get_cnt updates)
 local aur_cnt=$(get_cnt aur)
 local hostname=$(hostname | cut -d . -f 1)
 
-printf "%s " \
-    "%B%(?.%{${fg[green]}%}^_^.%{${fg[red]}%}T_T)%b%{${fg[default]}%}"
-line 4 15
-printf " %s " "$(date +%Y%m%d%H.%M)"
-
 if [ $pac_cnt -gt 0 -o $aur_cnt -gt 0 ]; then
     printf "%s%d%s/%s%d%s:" \
         "%{${fg[cyan]}%}" $pac_cnt "%{${fg[default]}%}" \
         "%{${fg[cyan]}%}" $aur_cnt "%{${fg[default]}%}"
 fi
 
-printf '%s %s%s%s:%s%s%s ' \
+printf '%s%s%s:%s%s%s%s ' \
     "%{${fg[magenta]}%}" $hostname "%{${fg[default]}%}" \
-    "%{${fg[green]}%}" "%~" "%{${fg[default]}%}"
+    "%(?.%{${fg[green]}%}.%{${fg[red]}%})" "%~" "%{${fg[default]}%}"

.zshenv

@@ -9,7 +9,6 @@ export LESS_TERMCAP_so=$'\e[1;47;30m'
 export LESS_TERMCAP_ue=$'\e[0m'
 export LESS_TERMCAP_us=$'\e[0;36m'
 
-export BROWSER=firefox
 export PAGER=$LESSCMD
 export EDITOR="emacsclient -c"
 

.zshrc

@@ -4,6 +4,7 @@ PATH="${HOME}/bin:${PATH}:/usr/local/bin"
 INFOPATH="${HOME}/documents/info:${INFOPATH}"
 
 export INFOPATH
+export BROWSER=conkeror
 
 HISTFILE=~/.zsh/histfile
 HISTSIZE=1000
@@ -91,6 +92,8 @@ bindkey "\e0F"   end-of-line
 bindkey "\e[H"   beginning-of-line
 bindkey "\e[F"   end-of-line
 
+bindkey "^W" backward-delete-char
+
 # Show syntax highlighting when we're not running in emacs
 if [ -z $EMACS ]; then
     source ~/.zsh/syntax-highlighting/zsh-syntax-highlighting.zsh
@@ -98,5 +101,3 @@ if [ -z $EMACS ]; then
     ZSH_HIGHLIGHT_STYLES[double-hyphen-option]='fg=blue'
     ZSH_HIGHLIGHT_STYLES[single-hyphen-option]='fg=blue'
 fi
-
-welcome