More work with el-get and wanderlust

activator.d/85wanderlust.el

@@ -0,0 +1,58 @@
+(setq user-mail-address "rayners@gmail.com")
+
+(add-to-list 'el-get-sources '(:name wanderlust
+				     :after (lambda ()
+					      (setq wl-from "David Raynes <rayners@gmail.com>")
+					      (setq wl-user-mail-address-list '("rayners@gmail.com"
+										"rayners@rayners.org"
+										"rayners@endevver.com"))
+					      (setq wl-forward-subject-prefix "Fwd: ")
+					      (setq
+					       wl-message-ignored-field-list '("^.*:")
+					       wl-message-visible-field-list
+					       '("^\\(To\\|Cc\\):"
+
+						 "^Subject:"
+						 "^\\(From\\|Reply-To\\):"
+						 "^Organization:"
+						 "^Message-Id:"
+						 "^\\(Posted\\|Date\\):"
+						 )
+					       wl-message-sort-field-list
+					       '("^From"
+
+						 "^Organization:"
+						 "^X-Attribution:"
+						 "^Subject"
+						 "^Date"
+						 "^To"
+						 "^Cc"))
+					      (setq wl-draft-always-delete-myself t)
+					      (setq wl-smtp-connection-type 'starttls
+						    wl-smtp-posting-port 587
+						    wl-smtp-authenticate-type "plain"
+						    wl-smtp-posting-user "rayners"
+						    wl-smtp-posting-server "smtp.gmail.com"
+						    wl-local-domain "gmail.com")
+					      (setq elmo-imap4-default-server "imap.gmail.com")
+					      (setq elmo-imap4-default-user "rayners@gmail.com") 
+					      (setq elmo-imap4-default-authenticate-type 'clear)
+					      (setq elmo-imap4-default-port 993)
+					      (setq elmo-imap4-default-stream-type 'ssl)
+					      (setq elmo-imap4-use-modified-utf7 t)
+					      (setq wl-default-folder "%[GMail]/Important")
+					      (setq wl-default-spec "%")
+					      (add-hook 'wl-hook 
+							(lambda ()
+							  (require 'bbdb-wl)
+							  (bbdb-wl-setup)
+
+							  ;; i don't want to store addresses from my mailing folders
+							  (setq 
+							   bbdb-wl-folder-regexp    ;; get addresses only from these folders
+							   "^\.inbox$\\|^.sent")    ;;
+							  ))
+)))
+(add-to-list 'el-get-sources 'apel)
+(add-to-list 'el-get-sources 'flim)
+(add-to-list 'el-get-sources 'semi)

activator.d/86bbdb.el

@@ -0,0 +1,4 @@
+(add-to-list 'el-get-sources '(:name bbdb
+				     :after (lambda ()
+					      (setq bbdb-file "~/Dropbox/emacs-private/bbdb")
+					      )))

activator.d/99el-get.el

@@ -0,0 +1,4 @@
+
+;; all the packages have been setup by now
+;; so we run the bit to sync and set
+(el-get)

gnus.el

@@ -10,3 +10,5 @@
 	 (display . all))))
 (setq gnus-permanently-visible-groups ".*")
 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
+
+(setq mm-text-html-renderer 'gnus-w3m)

rayners/buffers.el

@@ -1,4 +1,30 @@
 
-(require 'ido)
-(ido-mode t)
+;; swiped from http://tsdh.wordpress.com/2007/08/14/directory-local-variables/
+(defvar th-dir-local-variables-alist
+  '(("~/repos/gnus/" . ((indent-tabs-mode . t)
+                        (tab-width . 8))))
+  "An alist with (PATH . LIST) pairs.  PATH is a path and LIST is
+a list of variables to set locally for files below that path.  It
+has elements of the form (VAR . VAL) where VAR is a symbol and
+VAL is its value.")
 
+(defun th-set-dir-local-variables ()
+  "Locally set the variables defined in
+`th-dir-local-variables-alist' for the current buffer."
+  (interactive)
+  (let ((file (buffer-file-name (current-buffer))))
+    (when file
+      (dolist (pair th-dir-local-variables-alist)
+        (when (string-match (concat "^" (regexp-quote (expand-file-name (car pair))))
+                            file)
+          (dolist (var (cdr pair))
+            (if (local-variable-if-set-p (car var))
+                (set (car var) (cdr var))
+              (set (make-local-variable (car var)) (cdr var)))))))))
+
+(add-hook 'find-file-hook
+          'th-set-dir-local-variables)
+
+; now set my own bits
+(setq th-dir-local-variables-alist
+      '(("~/repositories/buzzfeed" . ((perltidy-bin . "perltidy -q -buzzfeed")))))

rayners/gui.el

@@ -5,18 +5,20 @@
   (tool-bar-mode -1))
 
 ; load that spiffy zenburn theme
-(vendor 'color-theme)
-(require 'zenburn)
-(load "~/.emacs.d/vendor/color-theme-twilight")
-(eval-after-load "color-theme"
-                '(progn
-                (color-theme-initialize)
-                (color-theme-twilight)))
+;(vendor 'color-theme)
+;(require 'zenburn)
+;(load "~/.emacs.d/vendor/color-theme-twilight")
+;(eval-after-load "color-theme"
+;                '(progn
+;                (color-theme-initialize)
+;                (color-theme-twilight)))
+(load-theme 'wheatgrass) ; this looks spiffy, and it's core!
 
 ;; use that fancy font I downloaded
 ;; but only if we're using the GUI
 ;; because this barfs otherwise
 (if (not noninteractive)
-    (set-face-font 'default "-apple-DejaVu_Sans_Mono-medium-normal-normal-*-11-*-*-*-m-0-iso10646-1"))
+    (set-face-font 'default "-apple-Droid_Sans_Mono-medium-normal-normal-*-10-*-*-*-m-0-iso10646-1"))
 
-;(add-to-list 'default-frame-alist '(width . 120))
+(add-to-list 'default-frame-alist '(width . 128))
+(add-to-list 'default-frame-alist '(height . 50))

rayners/irc.el

@@ -11,12 +11,14 @@
 ; plus I might not be back on the VPN
 (setq erc-server-auto-reconnect nil)
 
-(setq rayners/which-irc 'erc)
+(setq rayners/which-irc 'rcirc)
 (setq rayners/freenode-channels 
       '("#git" "#emacs" "#perl" "#movabletype" "#movabletype-talk" 
 	"#openmelody" "#zsh"))
 (setq rayners/perl-channels
-      '("#dbix-class" "#moose"))
+      '("#dbix-class" "#moose" "#catalyst"))
+(setq rayners/thinstack-channels
+      '("#frogpants"))
 (cond ((eq rayners/which-irc 'rcirc)
        (add-to-list 'rayners/freenode-channels "#rcirc"))
       ((eq rayners/which-irc 'erc)
@@ -105,7 +107,7 @@
        (delete-process process)
        (rcirc-connect server port nick
 		      rcirc-default-user-name
-		      rcirc-default-user-full-name
+		      rcirc-default-user-full-name1
 		      channels))))
 
 ;; growl bits for erc
@@ -142,10 +144,34 @@
        (1+ erc-fill-column)))
 (add-hook 'erc-mode-hook 'exal-erc-mode-stuff)
 
+;; my attempt to port it to rcirc
+(defun exal-rcirc-mode-stuff ()
+  (set (make-local-variable 'rcirc-fill-column) (- (frame-width) 10))
+  )
+(add-hook 'rcirc-mode-hook 'exal-rcirc-mode-stuff)
 
 (defun rayners/growl-erc-invite-hook (proc parsed)
   "Growl notification for invitations"
   (let ((nick (car (erc-parse-user (erc-response.sender parsed)))))
     (growl (concat "<irc> " nick ": ") "Invitation!" "Colloquy")))
 
 (add-hook 'erc-server-INVITE-functions 'rayners/growl-erc-invite-hook)
+
+;; buffer switching
+(defun rayners/irc-buffer-switch ()
+  "Switch irc buffers"
+  (interactive)
+  (let ((irc-mode (if (eq rayners/which-irc 'erc) 'erc-mode 'rcirc-mode)))
+    (switch-to-buffer
+     (ido-completing-read "Channel: "
+			  (save-excursion
+			    (delq
+			     nil
+			     (mapcar (lambda (buf)
+				       (when (buffer-live-p buf)
+					 (with-current-buffer buf
+					   (and (eq major-mode irc-mode)
+						(buffer-name buf)))))
+				     (buffer-list))))))))
+
+(global-set-key (kbd "C-c I b") 'rayners/irc-buffer-switch)

rayners/paths.el

@@ -4,5 +4,6 @@
 (push "/usr/local/bin" exec-path)
 
 (add-to-list 'exec-path (expand-file-name "~/perl5/perlbrew/bin"))
+(add-to-list 'exec-path "/usr/local/mysql/bin")
 
 (setenv "PATH" (mapconcat 'identity exec-path ":"))

rayners/wl.el

@@ -17,4 +17,6 @@
 (autoload 'wl-other-frame "wl" "Wanderlust on new frame" t)
 (autoload 'wl-draft "wl-draft" "Write draft with Wanderlust" t)
 
-(setq wl-init-file "~/.emacs.d/rayners/my-wl.el")
+;; setup files
+(setq wl-init-file "~/.emacs.d/rayners/wl/wl.el"
+      wl-folders-file "~/.emacs.d/rayners/wl/folders")