APEL-CFG

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; APEL-CFG: installation setting about APEL.
   4
   5 ;;; Code:
   6
   7 (defvar default-load-path load-path)
   8 (setq load-path (cons (expand-file-name ".") load-path))
   9 (require 'install)
  10
  11
  12 ;;; @ Please specify prefix of install directory.
  13 ;;;
  14
  15 ;; Please specify install path prefix.
  16 ;; If it is omitted, shared directory (maybe /usr/local is used).
  17 (defvar PREFIX install-prefix)
  18 ;;(setq PREFIX "~/")
  19
  20 ;; Please specify emu prefix [optional]
  21 (setq EMU_PREFIX
  22       (if (or (featurep 'xemacs)
  23               (and (fboundp 'set-buffer-multibyte)
  24                    (subrp (symbol-function 'set-buffer-multibyte))))
  25           "emu"
  26         ""))
  27
  28 ;; Please specify prefix for ``apel'' [optional]
  29 (setq APEL_PREFIX "apel")
  30
  31 \f
  32
  33 ;;; @ optional settings
  34 ;;;
  35
  36 (defvar VERSION_SPECIFIC_LISPDIR
  37   (install-detect-elisp-directory PREFIX nil 'version-specific))
  38
  39 (setq EMU_DIR (expand-file-name EMU_PREFIX VERSION_SPECIFIC_LISPDIR))
  40
  41 ;; It is generated by automatically. Please set variable `PREFIX'.
  42 ;; If you don't like default directory tree, please set it.
  43 (defvar LISPDIR (install-detect-elisp-directory PREFIX))
  44 ;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
  45
  46 (setq APEL_DIR (expand-file-name APEL_PREFIX LISPDIR))
  47
  48 (defvar PACKAGEDIR
  49   (if (boundp 'early-packages)
  50       (let ((dirs (append (if early-package-load-path
  51                               early-packages)
  52                           (if late-package-load-path
  53                               late-packages)
  54                           (if last-package-load-path
  55                               last-packages)))
  56             dir)
  57         (while (not (file-exists-p
  58                      (setq dir (car dirs))))
  59           (setq dirs (cdr dirs)))
  60         dir)))
  61
  62 ;;; APEL-CFG ends here