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