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

7 files changed, 164 insertions, 85 deletions

diff --git a/.conkerorrc/init.js b/.conkerorrc/init.js
index 5d03951..f4818d8 100644
--- a/.conkerorrc/init.js
+++ b/.conkerorrc/init.js
@@ -17,6 +17,11 @@ define_browser_object_class(
     }
 );
 
+function ext_title_format(window) {
+    return '(' + get_current_profile() +') '
+        + window.buffers.current.description;
+}
+
 function oni_before_quit_func() {
     var w = get_recent_conkeror_window();
     var result = (w == null) ||
@@ -154,6 +159,7 @@ content_policy_bytype_table.object = oni_block_flash;
 cwd = make_file("/home/slash/downloads/");
 hint_digits = "arstdhneio";
 read_buffer_show_icons = true;
+title_format_fn = ext_title_format;
 url_remoting_fn = load_url_in_new_buffer;
 
 define_key(content_buffer_normal_keymap, "h",
diff --git a/.emacs.d/gnus.el b/.emacs.d/gnus.el
index a13a1ad..03f1b41 100644
--- a/.emacs.d/gnus.el
+++ b/.emacs.d/gnus.el
@@ -14,9 +14,6 @@
 (setq gnus-read-newsrc-file nil)
 (setq gnus-novice-user t)
 (setq gnus-article-truncate-lines nil)
-(setq message-send-mail-function 'message-send-mail-with-sendmail)
-(setq sendmail-program "/usr/bin/msmtp")
-(setq message-sendmail-extra-arguments '("-a" "gmail"))
 ;; (setq gnus-parameters
 ;;       '(("gmail"
 ;;          (display . all))
@@ -51,8 +48,6 @@
          (signature-file "~/documents/work/aethon/signature.txt")
          (eval (setq message-sendmail-extra-arguments '("-a" "aethon")
                      flyspell-default-dictionary "nl")))))
-(setq user-mail-address "tom@ryuslash.org")
-(setq user-full-name "Tom Willemsen")
 
 ;-----[ BBDB ]--------------------------------------------------------
 ;; (require 'bbdb)
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 6af7c3e..b99ce68 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -42,6 +42,7 @@
 
 (defalias 'yes-or-no-p 'y-or-n-p)
 (defalias 'list-buffers 'ibuffer)
+(defalias 'dabbrev-expand 'hippie-expand)
 
 (defface git-commit-summary-face
   '((t (:inherit org-level-1)))
@@ -97,13 +98,13 @@
       'flymake-allowed-file-name-masks  ; flymaking 'easy'.
       '("\\.go$" flymake-simple-make-init))))
 
+(eval-after-load "hippie-exp"
+  '(oni:load-hippie-exp 'yasnippet))
+
 (eval-after-load "ido"
   '(setq ido-ignore-buffers `(,@ido-ignore-buffers
                               "^\\*.*\\*$" "^irc\\." "^\\#")))
 
-(eval-after-load "info"
-  '(require 'info+))
-
 (eval-after-load "jabber"
   '(remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo))
 
@@ -118,6 +119,9 @@
      (global-set-key (kbd "M-x") 'smex)
      (global-set-key (kbd "C-M-x") 'smex-major-mode-commands)))
 
+(eval-after-load "yasnippet"
+  '(oni:load-hippie-exp 'hippie-exp))
+
 (put 'upcase-region 'disabled nil)
 (put 'downcase-region 'disabled nil)
 (put 'narrow-to-region 'disabled nil)
@@ -252,6 +256,7 @@
 (setq magit-repo-dirs '("~/var/src/"))
 (setq message-log-max 1000)
 (setq message-send-mail-function 'message-send-mail-with-sendmail)
+(setq message-sendmail-extra-arguments '("-a" "ryuslash"))
 (setq mode-line-position nil)
 (setq package-archives
       '(("melpa" . "http://melpa.milkbox.net/packages/")
@@ -264,9 +269,10 @@
 (setq php-function-call-face 'font-lock-function-name-face)
 (setq php-mode-force-pear t)
 (setq pony-tpl-indent-moves t)
+(setq pp^L-^L-string-function 'oni:pretty-control-l-function)
+(setq pp^L-^L-string-pre nil)
 (setq rainbow-delimiters-max-face-count 12)
 (setq redisplay-dont-pause t)
-(setq scroll-conservatively 101)
 (setq send-mail-function 'smtpmail-send-it)
 (setq sendmail-program "/usr/bin/msmtp")
 (setq smex-key-advice-ignore-menu-bar t)
@@ -277,6 +283,7 @@
 (setq uniquify-buffer-name-style 'post-forward)
 (setq use-dialog-box nil)
 (setq user-full-name "Tom Willemsen")
+(setq user-mail-address "tom@ryuslash.org")
 (setq window-combination-resize t)
 
 (add-hook 'after-save-hook 'oni:after-save-func t)
@@ -365,10 +372,6 @@
 (add-to-list 'debug-ignored-errors "^Can't shift all lines enough")
 
 (add-to-list 'display-buffer-alist
-             '(".*" . ((bw-display-in-other-window . nil))))
-(add-to-list 'display-buffer-alist
-             '("^\\*.*\\*$" . ((bw-display-in-bottom-window . nil))))
-(add-to-list 'display-buffer-alist
              '("^\\*magit: .*\\*$" . ((display-buffer-same-window . nil))))
 (add-to-list 'display-buffer-alist
              '("^\\*git-project-list\\*$" . ((git-project-show-window . nil))))
diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el
index 439be25..251dca2 100644
--- a/.emacs.d/site-lisp/oni.el
+++ b/.emacs.d/site-lisp/oni.el
@@ -272,6 +272,13 @@ If COUNT has been specified indent by that much, otherwise look at
       (kill-region (region-beginning) (region-end))
     (kill-line)))
 
+(defun oni:load-hippie-exp (other)
+  "Make sure both hippie-expand and yasnippet are loaded in order
+  to add yasnippet's expand function to hippie-expand."
+  (require other)
+  (add-to-list 'hippie-expand-try-functions-list
+               'yas/hippie-try-expand))
+
 (defun oni:lua-mode-func()
   "Function for `lua-mode-hook'."
   (local-unset-key (kbd ")"))
@@ -394,6 +401,12 @@ When dealing with braces, add another line and indent that too."
   (rainbow-delimiters-mode)
   (setq fci-rule-column 80))
 
+(defun oni:pretty-control-l-function (win)
+  "Just make a string of either `fci-rule-colum' or `fill-column'
+length -1.  Use the `-' character.  WIN is ignored."
+  (make-string
+   (1- (if (boundp 'fci-rule-column) fci-rule-column fill-column)) ?-))
+
 (defun oni:prog-mode-func ()
   "Function for `prog-mode-hook'."
   (rainbow-delimiters-mode)
diff --git a/.offlineimap.py b/.offlineimap.py
index a63709b..fb4f66e 100644
--- a/.offlineimap.py
+++ b/.offlineimap.py
@@ -1,8 +1,50 @@
+from offlineimap import imaputil
+
+
+def lld_flagsimap2maildir(flagstring):
+    flagmap = {'\\seen': 'S',
+               '\\answered': 'R',
+               '\\flagged': 'F',
+               '\\deleted': 'T',
+               '\\draft': 'D',
+               'gnus-expire': 'E'}
+    retval = []
+    imapflaglist = [x.lower() for x in flagstring[1:-1].split()]
+
+    for imapflag in imapflaglist:
+        if imapflag in flagmap:
+            retval.append(flagmap[imapflag])
+
+    retval.sort()
+    return set(retval)
+
+
+def lld_flagsmaildir2imap(list):
+    flagmap = {'S': '\\Seen',
+               'R': '\\Answered',
+               'F': '\\Flagged',
+               'T': '\\Deleted',
+               'D': '\\Draft',
+               'E': 'gnus-expire'}
+    retval = []
+
+    for mdflag in list:
+        if mdflag in flagmap:
+            retval.append(flagmap[mdflag])
+
+    retval.sort()
+    return '(' + ' '.join(retval) + ')'
+
+imaputil.flagsmaildir2imap = lld_flagsmaildir2imap
+imaputil.flagsimap2maildir = lld_flagsimap2maildir
+
+
 def getuser(host):
     import netrc
     mynet = netrc.netrc()
     return mynet.authenticators(host)[0]
 
+
 def getpassword(host):
     import netrc
     mynet = netrc.netrc()
diff --git a/.sawfish/rc b/.sawfish/rc
index 23fd5e6..684ce1d 100644
--- a/.sawfish/rc
+++ b/.sawfish/rc
@@ -1,47 +1,103 @@
+;; -*- mode: sawfish; -*-
+(require 'rep.regexp)
+(require 'sawfish.wm.commands.grow-pack)
+(require 'sawfish.wm.commands.shrink-yank)
+(require 'sawfish.wm.ext.match-window)
+(require 'sawfish.wm.util.display-window)
+(require 'sawfish.wm.util.prompt)
+(require 'sawfish.wm.util.window-order)
+(require 'sawfish.wm.commands.x-cycle)
+
+(define oni:window-packing-keymap (make-keymap))
+(define oni:window-growing-keymap (make-keymap))
+(define oni:window-shrinking-keymap (make-keymap))
+(define oni:window-yanking-keymap (make-keymap))
+(define oni:window-management-keymap (make-keymap))
+(define oni:extended-keymap (make-keymap))
+
+(defun oni:emacs-main-window-p (window)
+  "Check wether or not WINDOW is Emacs' main window."
+  (let ((name (window-name window)))
+    (and (string-match "^emacs: " name)
+         (not (string= "emacs: *Sauron*" name)))))
+
+(defun oni:place-emacs-windows ()
+  "Place Emacs' main, sauron and optionally speedbar windows the
+way I like them."
+  (let ((main-window (car (filter-windows oni:emacs-main-window-p)))
+        (sauron-window (get-window-by-name "emacs: *Sauron*"))
+        (speedbar-window (get-window-by-name "^Speedbar " #:regex t)))
+    (move-window-to main-window 0 0)
+    (move-window-to sauron-window 0 0)
+
+    (set-window-type sauron-window 'transient)
+    (pack-window-down sauron-window)
+    (grow-window-right sauron-window)
+
+    (when speedbar-window
+      (move-window-to speedbar-window 0 0)
+      (set-window-type speedbar-window 'transient)
+      (yank-window-right main-window)
+      (grow-window-down speedbar-window))
+
+    (grow-window-down main-window)
+    (grow-window-right main-window)))
+
+(define-command 'oni:place-emacs-windows oni:place-emacs-windows)
+
+(defun oni:run-or-raise (command #!key id name class role)
+  "Either run COMMAND, or if a window with class CLASS is found,
+raise it."
+  (let* ((windows (filter
+                   (lambda (x)
+                     (and (or (not id) (equal (window-id x) id))
+                          (or (not name (equal (window-name x) name)))
+                          (or (not class) (equal (window-class x) class))
+                          (or (not role) (equal (window-role x) role))))
+                   (window-order)))
+         (first (car windows))
+         (w (if (equal first (input-focus)) (last windows) first)))
+    (if w (display-window w)
+      (call-command `(run-shell-command ,command)))))
+
+(setq default-frame-style 'naquadah)
+(setq prompt-color (cons (get-color "#eeeeec")
+                         (get-color "#111113")))
 (setq user-apps-menu
       '(("Emacs" (system "emacsclient -c &"))
         ("Terminal" (system "urxvt &"))))
 
-(define oni:window-packing-keymap (make-keymap))
-
 (bind-keys oni:window-packing-keymap
            "p" 'pack-window-up
            "n" 'pack-window-down
            "b" 'pack-window-left
            "f" 'pack-window-right)
 
-(define oni:window-growing-keymap (make-keymap))
-
 (bind-keys oni:window-growing-keymap
            "p" 'grow-window-up
            "n" 'grow-window-down
            "b" 'grow-window-left
            "f" 'grow-window-right)
 
-(define oni:window-shrinking-keymap (make-keymap))
-
 (bind-keys oni:window-shrinking-keymap
            "p" 'shrink-window-up
            "n" 'shrink-window-down
            "b" 'shrink-window-left
            "f" 'shrink-window-right)
 
-(define oni:window-yanking-keymap (make-keymap))
-
 (bind-keys oni:window-yanking-keymap
            "p" 'yank-window-up
            "n" 'yank-window-down
            "b" 'yank-window-left
            "f" 'yank-window-right)
 
-(define oni:window-management-keymap (make-keymap))
-
 (bind-keys oni:window-management-keymap
            "M" 'maximize-window-toggle
            "p" oni:window-packing-keymap
            "g" oni:window-growing-keymap
            "s" oni:window-shrinking-keymap
-           "y" oni:window-yanking-keymap)
+           "y" oni:window-yanking-keymap
+           "E" 'oni:place-emacs-windows)
 
 (bind-keys global-keymap
            "XF86AudioPlay" '(run-shell-command "mpc toggle")
@@ -52,68 +108,32 @@
            "XF86AudioPrev" '(run-shell-command "mpc prev")
            "XF86AudioNext" '(run-shell-command "mpc next"))
 
-(require 'sawfish.wm.util.prompt)
-
-(define oni:extended-keymap (make-keymap))
-
 (bind-keys oni:extended-keymap
-           "w" oni:window-management-keymap)
+           "w" oni:window-management-keymap
+           "Super-b" 'popup-window-list-menu)
 
 ;; (ungrab-keymap global-keymap)
-(bind-keys global-keymap
-           "Super-!" '(run-shell-command (prompt-for-string "Run: "))
-           "C-M-l" '(run-shell-command "i3lock -c \"#000000\"")
-           "Super-e" '(run-shell-command (getenv "EDITOR"))
-           "Super-w" '(run-shell-command (getenv "BROWSER"))
-           "Super-c" '(run-shell-command "urxvt")
-           "Super-TAB" 'cycle-windows
-           "Super-x" oni:extended-keymap
-           "Menu" 'popup-root-menu)
+(bind-keys
+ global-keymap
+ "Super-!" '(run-shell-command (prompt-for-string "Run: "))
+ "C-M-l" '(run-shell-command "i3lock -c \"#000000\"")
+ "Super-e" '(oni:run-or-raise (getenv "EDITOR") #:class "Emacs")
+ "Super-E" '(run-shell-command (getenv "EDITOR"))
+ "Super-w" '(oni:run-or-raise (getenv "BROWSER") #:class "Conkeror")
+ "Super-W" '(run-shell-command (getenv "BROWSER"))
+ "Super-c" '(oni:run-or-raise "urxvt" #:class "URxvt")
+ "Super-C" '(run-shell-command "urxvt")
+ "Super-TAB" 'cycle-windows
+ "C-Super-TAB" 'cycle-class
+ "Super-x" oni:extended-keymap
+ "Super-f" 'pack-window-right
+ "Super-b" 'pack-window-left
+ "Super-n" 'pack-window-down
+ "Super-p" 'pack-window-up
+ "Menu" 'popup-root-menu
+ "Super-M" 'maximize-window-toggle)
 ;; (grab-keymap global-keymap)
 
-(setq prompt-color (cons (get-color "#eeeeec")
-                         (get-color "#252e2b")))
-
-(setq default-frame-style 'naquadah)
-
-(require 'sawfish.wm.ext.match-window)
-
-(add-window-matcher '((WM_CLASS . "^Firefox/Navigator$"))
-                    '((position . north-east)))
-
-(require 'rep.regexp)
-(require 'sawfish.wm.commands.grow-pack)
-(require 'sawfish.wm.commands.shrink-yank)
-
-(defun oni:emacs-main-window-p (window)
-  "Check wether or not WINDOW is Emacs' main window."
-  (let ((name (window-name window)))
-    (and (string-match "^emacs: " name)
-         (not (string= "emacs: *Sauron*" name)))))
-
-(defun oni:place-emacs-windows ()
-  "Place Emacs' main, sauron and optionally speedbar windows the
-way I like them."
-  (let ((main-window (car (filter-windows oni:emacs-main-window-p)))
-        (sauron-window (get-window-by-name "emacs: *Sauron*"))
-        (speedbar-window (get-window-by-name "^Speedbar " #:regex t)))
-    (move-window-to main-window 0 0)
-    (move-window-to sauron-window 0 0)
-
-    (set-window-type sauron-window 'transient)
-    (pack-window-down sauron-window)
-    (grow-window-right sauron-window)
-
-    (when speedbar-window
-      (move-window-to speedbar-window 0 0)
-      (set-window-type speedbar-window 'transient)
-      (yank-window-right main-window)
-      (grow-window-down speedbar-window))
-
-    (grow-window-down main-window)
-    (grow-window-right main-window)))
-
-(define-command 'oni:place-emacs-windows oni:place-emacs-windows)
-
-(bind-keys oni:window-management-keymap
-           "E" 'oni:place-emacs-windows)
+(add-window-matcher '((WM_CLASS . "^(Firefox|Conkeror)/Navigator$"))
+                    '((position . north-east)
+                      (maximized . all)))
diff --git a/.xinitrc b/.xinitrc
index 3f10143..9684c80 100755
--- a/.xinitrc
+++ b/.xinitrc
@@ -12,5 +12,5 @@ fi
 emacs --daemon &
 fehlstart &
 
-test -n "$1" && wm=$1 || wm="herbstluftwm"
+test -n "$1" && wm=$1 || wm="sawfish"
 exec $wm