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
  10 (require 'poe);; Pickup `eval-when-compile'.
  11 (require 'install)
  12
  13
  14 ;;;
  15 ;;; @@ Please specify CUSTOM path.
  16 ;;;
  17
  18 (add-latest-path "custom")
  19
  20
  21 ;;; @ Please specify prefix of install directory.
  22 ;;;
  23
  24 ;; Please specify install path prefix.
  25 ;; If it is omitted, shared directory (maybe /usr/local is used).
  26 (defvar PREFIX install-prefix)
  27 ;;(setq PREFIX "~/")
  28
  29 ;; Please specify emu prefix [optional]
  30 (setq EMU_PREFIX
  31       (if (or (featurep 'xemacs)
  32               (and (fboundp 'set-buffer-multibyte)
  33                    (subrp (symbol-function 'set-buffer-multibyte))))
  34           "emu"
  35         ""))
  36
  37 ;; Please specify prefix for ``apel'' [optional]
  38 (setq APEL_PREFIX "apel")
  39
  40 \f
  41
  42 ;;; @ optional settings
  43 ;;;
  44
  45 (defvar VERSION_SPECIFIC_LISPDIR
  46   (install-detect-elisp-directory PREFIX nil 'version-specific))
  47
  48 (setq EMU_DIR (expand-file-name EMU_PREFIX VERSION_SPECIFIC_LISPDIR))
  49
  50 ;; It is generated by automatically. Please set variable `PREFIX'.
  51 ;; If you don't like default directory tree, please set it.
  52 (defvar LISPDIR (install-detect-elisp-directory PREFIX))
  53 ;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
  54
  55 (setq APEL_DIR (expand-file-name APEL_PREFIX LISPDIR))
  56 ;; (setq APEL_DIR (expand-file-name APEL_PREFIX VERSION_SPECIFIC_LISPDIR))
  57
  58 (defvar PACKAGEDIR
  59   (if (boundp 'early-packages)
  60       (let ((dirs (append (if early-package-load-path
  61                               early-packages)
  62                           (if late-package-load-path
  63                               late-packages)
  64                           (if last-package-load-path
  65                               last-packages)))
  66             dir)
  67         (while (not (file-exists-p
  68                      (setq dir (car dirs))))
  69           (setq dirs (cdr dirs)))
  70         dir)))
  71
  72 ;;; APEL-CFG ends here