EMH-CFG

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; EMH-CFG: installation setting about EMH.
   4
   5 ;;; Code:
   6
   7 (defvar default-load-path load-path)
   8
   9 (add-to-list 'load-path
  10              (expand-file-name "../../site-lisp/apel" data-directory))
  11 (add-to-list 'load-path
  12              (expand-file-name "." data-directory))
  13
  14 (if (boundp 'LISPDIR)
  15     (progn
  16       (add-to-list 'default-load-path LISPDIR)
  17       (add-to-list 'load-path LISPDIR)
  18       (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
  19       ))
  20
  21 (defvar VERSION_SPECIFIC_LISPDIR nil)
  22
  23 (if VERSION_SPECIFIC_LISPDIR
  24     (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
  25
  26 (condition-case nil
  27     (require 'install)
  28   (error (error "Please install APEL 8.2 or later.")))
  29
  30 (add-latest-path "custom")
  31 (add-path "flim")
  32 (add-path "semi")
  33
  34 (add-to-list 'load-path (expand-file-name "."))
  35
  36
  37 ;;; @ Please specify prefix of install directory.
  38 ;;;
  39
  40 ;; Please specify install path prefix.
  41 ;; If it is omitted, shared directory (maybe /usr/local is used).
  42 (defvar PREFIX install-prefix)
  43 ;;(setq PREFIX "~/")
  44
  45 (defvar PACKAGEDIR
  46   (if (boundp 'early-packages)
  47       (let ((dirs (append (if early-package-load-path
  48                               early-packages)
  49                           (if late-package-load-path
  50                               late-packages)
  51                           (if last-package-load-path
  52                               last-packages)))
  53             dir)
  54         (while (not (file-exists-p
  55                      (setq dir (car dirs))))
  56           (setq dirs (cdr dirs)))
  57         dir)))
  58
  59 ;; Please specify prefix for ``emh'' [optional]
  60 (setq EMH_PREFIX
  61       (if PACKAGEDIR
  62           "emh"
  63         "semi"))
  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 (setq EMH_DIR (expand-file-name EMH_PREFIX LISPDIR))
  76
  77 ;;; EMH-CFG ends here