1 ;; -*-emacs-lisp-*- |
1 ;; -*-emacs-lisp-*- |
2 ;; |
2 ;; |
3 ;; Emacs startup file, e.g. /etc/emacs/site-start.d/50ha-config.el |
3 ;; Emacs startup file, e.g. /etc/emacs/site-start.d/50ha-sync.el |
4 ;; for the Debian ha-config package |
4 ;; for the Debian ha-sync package |
5 ;; |
5 ;; |
6 ;; Originally contributed by Nils Naumann <naumann@unileoben.ac.at> |
6 ;; Originally contributed by Nils Naumann <naumann@unileoben.ac.at> |
7 ;; Modified by Dirk Eddelbuettel <edd@debian.org> |
7 ;; Modified by Dirk Eddelbuettel <edd@debian.org> |
8 ;; Adapted for dh-make by Jim Van Zandt <jrv@debian.org> |
8 ;; Adapted for dh-make by Jim Van Zandt <jrv@debian.org> |
9 |
9 |
10 ;; The ha-config package follows the Debian/GNU Linux 'emacsen' policy and |
10 ;; The ha-sync package follows the Debian/GNU Linux 'emacsen' policy and |
11 ;; byte-compiles its elisp files for each 'emacs flavor' (emacs19, |
11 ;; byte-compiles its elisp files for each 'emacs flavor' (emacs19, |
12 ;; xemacs19, emacs20, xemacs20...). The compiled code is then |
12 ;; xemacs19, emacs20, xemacs20...). The compiled code is then |
13 ;; installed in a subdirectory of the respective site-lisp directory. |
13 ;; installed in a subdirectory of the respective site-lisp directory. |
14 ;; We have to add this to the load-path: |
14 ;; We have to add this to the load-path: |
15 (let ((package-dir (concat "/usr/share/" |
15 (let ((package-dir (concat "/usr/share/" |
16 (symbol-name flavor) |
16 (symbol-name flavor) |
17 "/site-lisp/ha-config"))) |
17 "/site-lisp/ha-sync"))) |
18 ;; If package-dir does not exist, the ha-config package must have |
18 ;; If package-dir does not exist, the ha-sync package must have |
19 ;; removed but not purged, and we should skip the setup. |
19 ;; removed but not purged, and we should skip the setup. |
20 (when (file-directory-p package-dir) |
20 (when (file-directory-p package-dir) |
21 (setq load-path (cons package-dir load-path)) |
21 (setq load-path (cons package-dir load-path)) |
22 (autoload 'ha-config-mode "ha-config-mode" |
22 (autoload 'ha-sync-mode "ha-sync-mode" |
23 "Major mode for editing ha-config files." t) |
23 "Major mode for editing ha-sync files." t) |
24 (add-to-list 'auto-mode-alist '("\\.ha-config$" . ha-config-mode)))) |
24 (add-to-list 'auto-mode-alist '("\\.ha-sync$" . ha-sync-mode)))) |
25 |
25 |