|
1 ;;;_ Helpers |
|
2 |
|
3 (setq load-path |
|
4 (cons "~/lisp" load-path)) |
|
5 (defun join (SEQUENCES sep) |
|
6 (mapconcat 'copy-sequence SEQUENCES sep)) |
|
7 |
|
8 |
|
9 ;;;_ Version control |
|
10 |
|
11 ;(require 'vc-svn) |
|
12 (require 'vc-svk) |
|
13 ;(require 'vc-svk2) |
|
14 (add-to-list 'vc-handled-backends 'SVK) |
|
15 ;(require 'psvn) |
|
16 (require 'psvk) |
|
17 |
|
18 ;;;_ EShell configuration |
|
19 (setenv "EDITOR" "gnuclient") |
|
20 (setenv "VISUAL" "gnuclient") |
|
21 (setenv "DEBIAN_FRONTEND" "editor") |
|
22 (defun local-init-eshell () |
|
23 "Local customization of eshell." |
|
24 (defsubst eshell/make (&rest args) |
|
25 "run make in lisp compile." |
|
26 (compile (join (push "make" args) " ")))) |
|
27 |
|
28 ;;; ISpell configuration |
|
29 (if (fboundp 'debian-ispell-add-dictionary-entry) |
|
30 (debian-ispell-add-dictionary-entry |
|
31 (quote ("francais-intl" |
|
32 "[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜŒÑæàâçèéêëîïôùûüœñ]" |
|
33 "[^A-Za-zÆÀÂÇÈÉÊËÎÏÔÙÛÜÑŒæàâçèéêëîïôùûüœñ]" |
|
34 "[-']" |
|
35 nil |
|
36 ("-d" "french") |
|
37 "~list" iso-8859-15)) |
|
38 "aspell")) |
|
39 (setq ispell-dictionary-alist debian-ispell-dictionary-alist) |
|
40 |
|
41 |
|
42 ;;;_ Planner configuration |
|
43 |
|
44 ;; In emacs21/sarge, schedule doesn't exist. |
|
45 ;; But in planner-el/etch, schedule is in contrib. |
|
46 (if (not (locate-library "schedule")) |
|
47 (setcdr (last load-path) |
|
48 '("/usr/share/emacs/site-lisp/planner-el/contrib"))) |
|
49 (if (locate-library "schedule") |
|
50 (require 'planner-timeclock)) |
|
51 (require 'planner-wl) |
|
52 (planner-wl-insinuate) |
|
53 (require 'planner-diary) |
|
54 (planner-diary-insinuate) |
|
55 (planner-calendar-insinuate) |
|
56 (require 'planner-appt) |
|
57 (planner-appt-use-tasks) |
|
58 (planner-appt-insinuate) |
|
59 (require 'planner-cyclic) |
|
60 (planner-appt-schedule-cyclic-insinuate) |
|
61 (planner-appt-calendar-insinuate) |
|
62 (require 'planner-timeclock-summary) |
|
63 (planner-timeclock-summary-insinuate) |
|
64 (require 'planner-timeclock-summary-proj) |
|
65 (planner-timeclock-summary-proj-insinuate) |
|
66 (require 'planner-schedule) |
|
67 (require 'planner-bbdb) |
|
68 (require 'planner-erc) |
|
69 (require 'planner-bookmark) |
|
70 (require 'remember-planner) |
|
71 (require 'planner-log-edit) |
|
72 (planner-install-extra-task-keybindings) |
|
73 (planner-install-extra-context-keybindings) |
|
74 (require 'planner-trunk) |
|
75 (require 'planner-multi) |
|
76 ; Local functions for planner |
|
77 (require 'my-planner) |
|
78 |
|
79 (require 'my-mailto) |
|
80 ;;;_ Wanderlust settings |
|
81 |
|
82 (autoload 'wl-user-agent-compose "wl-draft" nil t) |
|
83 (if (boundp 'mail-user-agent) |
|
84 (setq mail-user-agent 'wl-user-agent)) |
|
85 (if (fboundp 'define-mail-user-agent) |
|
86 (define-mail-user-agent |
|
87 'wl-user-agent |
|
88 'wl-user-agent-compose |
|
89 'wl-draft-send |
|
90 'wl-draft-kill |
|
91 'mail-send-hook)) |
|
92 (setq wl-draft-init-config-alist |
|
93 '((reply "^\\(To\\|CC\\): .*@alteranode.com" |
|
94 ("From" . "Fabien Ninoles <fabien@alteranode.com>")) |
|
95 (reply "^\\(To\\|CC\\): .*fabien@flipr.com" |
|
96 ("From" . "Fabien Ninoles <fabien@flipr.com>")))) |
|
97 (setq wl-draft-send-config-alist |
|
98 '(("^From: .*fabien\\(\\+.*\\)?@tzone.org" |
|
99 ("BCC" . "fabien+sentmail@tzone.org")) |
|
100 ("From: .*fabien\\(\\+.*\\)?@alteranode.com" |
|
101 ("Organisation" . "Alteranode, inc.") |
|
102 ("BCC" . "fabien+sentmail@alteranode.com")) |
|
103 ("From: .*fabien\\(\\+.*\\)?@flipr.com" |
|
104 ("BCC" . "fabien+sentmail@alteranode.com")))) |
|
105 (add-hook 'wl-mail-setup-hook |
|
106 '(lambda () |
|
107 (wl-draft-config-exec wl-draft-init-config-alist) |
|
108 (setq wl-draft-config-exec-flag t))) |
|
109 (add-hook 'wl-draft-send-hook |
|
110 '(lambda () |
|
111 (setq wl-draft-config-exec-flag t) |
|
112 (wl-draft-config-exec wl-draft-send-config-alist) |
|
113 )) |
|
114 (require 'bbdb-wl) |
|
115 (bbdb-wl-setup) |
|
116 ;; enable pop-ups |
|
117 (setq bbdb-use-pop-up t) |
|
118 ;; auto collection |
|
119 (setq bbdb/mail-auto-create-p t) |
|
120 ;; exceptional folders against auto collection |
|
121 (setq bbdb-wl-ignore-folder-regexp "^@") |
|
122 (setq signature-use-bbdb t) |
|
123 (setq bbdb-north-american-phone-numbers-p nil) |
|
124 ;; shows the name of bbdb in the summary :-) |
|
125 (setq wl-summary-from-function 'bbdb-wl-from-func) |
|
126 ;; automatically add mailing list fields |
|
127 (add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook) |
|
128 (setq bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0)))) |
|
129 |
|
130 |
|
131 ;;;_ Auto outline Allout |
|
132 |
|
133 ;(require 'allout) |
|
134 ;(outline-init t) |
|
135 |
|
136 ;;;_ Start up command |
|
137 |
|
138 ;; (server-start) |
|
139 (display-time) |
|
140 (diary 0) |
|
141 (plan 31) |
|
142 (iconify-frame) |