NABE-CFG

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