;;;_ 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)