--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/my-emacs.el	Thu Oct 13 08:46:42 2011 -0400
@@ -0,0 +1,142 @@
+;;;_ Helpers
+
+(setq load-path
+      (cons "~/lisp" load-path))
+(defun join (SEQUENCES sep)
+  (mapconcat 'copy-sequence SEQUENCES sep))
+
+
+;;;_ Version control
+
+;(require 'vc-svn)
+(require 'vc-svk)
+;(require 'vc-svk2)
+(add-to-list 'vc-handled-backends 'SVK)
+;(require 'psvn)
+(require 'psvk)
+
+;;;_ EShell configuration
+(setenv "EDITOR" "gnuclient")
+(setenv "VISUAL" "gnuclient")
+(setenv "DEBIAN_FRONTEND" "editor")
+(defun local-init-eshell ()
+  "Local customization of eshell."
+  (defsubst eshell/make (&rest args)
+    "run make in lisp compile."
+    (compile (join (push "make" args) " "))))
+
+;;; ISpell configuration
+(if (fboundp 'debian-ispell-add-dictionary-entry)
+    (debian-ispell-add-dictionary-entry 
+     (quote ("francais-intl"
+	     "[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜŒÑæàâçèéêëîïôùûüœñ]" 
+	     "[^A-Za-zÆÀÂÇÈÉÊËÎÏÔÙÛÜÑŒæàâçèéêëîïôùûüœñ]"
+	     "[-']"
+	     nil 
+	     ("-d" "french") 
+	     "~list" iso-8859-15))
+     "aspell"))
+(setq ispell-dictionary-alist debian-ispell-dictionary-alist)
+
+
+;;;_ Planner configuration
+
+;; In emacs21/sarge, schedule doesn't exist.
+;; But in planner-el/etch, schedule is in contrib.
+(if (not (locate-library "schedule"))
+    (setcdr (last load-path)
+		     '("/usr/share/emacs/site-lisp/planner-el/contrib")))
+(if (locate-library "schedule")
+    (require 'planner-timeclock))
+(require 'planner-wl)
+(planner-wl-insinuate)
+(require 'planner-diary)
+(planner-diary-insinuate)
+(planner-calendar-insinuate)
+(require 'planner-appt)
+(planner-appt-use-tasks)
+(planner-appt-insinuate)
+(require 'planner-cyclic)
+(planner-appt-schedule-cyclic-insinuate)
+(planner-appt-calendar-insinuate)
+(require 'planner-timeclock-summary)
+(planner-timeclock-summary-insinuate)
+(require 'planner-timeclock-summary-proj)
+(planner-timeclock-summary-proj-insinuate)
+(require 'planner-schedule)
+(require 'planner-bbdb)
+(require 'planner-erc)
+(require 'planner-bookmark)
+(require 'remember-planner)
+(require 'planner-log-edit)
+(planner-install-extra-task-keybindings)
+(planner-install-extra-context-keybindings)
+(require 'planner-trunk)
+(require 'planner-multi)
+; Local functions for planner
+(require 'my-planner)
+
+(require 'my-mailto)
+;;;_ Wanderlust settings
+
+(autoload 'wl-user-agent-compose "wl-draft" nil t)
+(if (boundp 'mail-user-agent)
+    (setq mail-user-agent 'wl-user-agent))
+(if (fboundp 'define-mail-user-agent)
+    (define-mail-user-agent
+      'wl-user-agent
+      'wl-user-agent-compose
+      'wl-draft-send
+      'wl-draft-kill
+      'mail-send-hook))
+(setq wl-draft-init-config-alist
+      '((reply "^\\(To\\|CC\\): .*@alteranode.com" 
+	       ("From" . "Fabien Ninoles <fabien@alteranode.com>")) 
+	(reply "^\\(To\\|CC\\): .*fabien@flipr.com" 
+	       ("From" . "Fabien Ninoles <fabien@flipr.com>"))))
+(setq wl-draft-send-config-alist 
+      '(("^From: .*fabien\\(\\+.*\\)?@tzone.org"
+	 ("BCC" . "fabien+sentmail@tzone.org"))
+	("From: .*fabien\\(\\+.*\\)?@alteranode.com" 
+	 ("Organisation" . "Alteranode, inc.")
+	 ("BCC" . "fabien+sentmail@alteranode.com")) 
+	("From: .*fabien\\(\\+.*\\)?@flipr.com" 
+	 ("BCC" . "fabien+sentmail@alteranode.com"))))
+(add-hook 'wl-mail-setup-hook
+	  '(lambda ()
+	     (wl-draft-config-exec wl-draft-init-config-alist)
+	     (setq wl-draft-config-exec-flag t)))
+(add-hook 'wl-draft-send-hook
+	  '(lambda ()
+	     (setq wl-draft-config-exec-flag t)
+	     (wl-draft-config-exec wl-draft-send-config-alist)
+	     ))
+(require 'bbdb-wl)
+(bbdb-wl-setup)
+;; enable pop-ups
+(setq bbdb-use-pop-up t)
+;; auto collection
+(setq bbdb/mail-auto-create-p t)
+;; exceptional folders against auto collection
+(setq bbdb-wl-ignore-folder-regexp "^@")
+(setq signature-use-bbdb t)
+(setq bbdb-north-american-phone-numbers-p nil)
+;; shows the name of bbdb in the summary :-)
+(setq wl-summary-from-function 'bbdb-wl-from-func)
+;; automatically add mailing list fields
+(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
+(setq bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0))))
+
+
+;;;_ Auto outline Allout
+
+;(require 'allout)
+;(outline-init t)
+
+;;;_ Start up command
+
+;; (server-start)
+(display-time)
+(diary 0)
+(plan 31)
+(iconify-frame)