MU-CFG

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