1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
;;; -*-Emacs-Lisp-*-
;; MU-CFG: installation setting about mu-cite.
;;; Code:
(defvar default-load-path load-path)
(condition-case nil
(require 'poe);; Attempt to pickup the function `add-to-list'.
(error
(if (fboundp 'add-to-list)
nil
;; This function is limited to only manage the value of
;; `load-path'. It will be overridden by the proper one later.
(defun add-to-list (list-var element)
(let ((paths (mapcar 'intern (delq nil (symbol-value list-var))))
(elem (if (string-match "/$" element)
(substring element 0 (1- (length element)))
element)))
(or (memq (intern elem) paths)
(memq (intern (concat elem "/")) paths)
(set list-var (cons element (symbol-value list-var))))))
(put 'add-to-list 'defun-maybe t))))
;;; @ Please correct the directories where APEL or FLIM modules are
;;; installed.
(add-to-list 'load-path
(expand-file-name "../../site-lisp/apel" data-directory))
(add-to-list 'load-path
(expand-file-name "../../site-lisp/flim" data-directory))
(require 'poe)
(if (boundp 'LISPDIR)
(progn
(add-to-list 'default-load-path LISPDIR)
(add-to-list 'load-path LISPDIR)
(add-to-list 'load-path (expand-file-name "apel" LISPDIR))
(add-to-list 'load-path (expand-file-name "flim" LISPDIR))
))
(if (boundp 'VERSION_SPECIFIC_LISPDIR)
(add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
(require 'install)
(add-latest-path "custom")
(add-path default-directory)
;;; @ Please specify prefix of install directory.
;;;
;; Please specify install path prefix.
;; If it is omitted, shared directory (maybe /usr/local is used).
(defvar PREFIX install-prefix)
;;(setq PREFIX "~/")
;; Please specify prefix for ``mu'' [optional]
(setq MU_PREFIX "mu")
;;; @ optional settings
;;;
;; It is generated by automatically. Please set variable `PREFIX'.
;; If you don't like default directory tree, please set it.
(defvar LISPDIR (install-detect-elisp-directory PREFIX))
;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
(defvar VERSION_SPECIFIC_LISPDIR
(install-detect-elisp-directory PREFIX nil 'version-specific))
(setq MU_DIR (expand-file-name MU_PREFIX LISPDIR))
(defvar PACKAGEDIR
(if (boundp 'early-packages)
(let ((dirs (append (if early-package-load-path
early-packages)
(if late-package-load-path
late-packages)
(if last-package-load-path
last-packages)))
dir)
(while (not (file-exists-p
(setq dir (car dirs))))
(setq dirs (cdr dirs)))
dir)))
;;; MU-CFG ends here
|
