FLIM-CFG

   1 ;;; -*-Emacs-Lisp-*-
   2
   3 ;; FLIM-CFG: installation setting about FLIM.
   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
  12 (if (boundp 'LISPDIR)
  13     (progn
  14       (add-to-list 'default-load-path LISPDIR)
  15       (add-to-list 'load-path LISPDIR)
  16       (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
  17       ))
  18
  19 (if (boundp 'VERSION_SPECIFIC_LISPDIR)
  20     (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
  21
  22 (require 'install)
  23
  24 (add-latest-path "custom")
  25
  26 (add-path default-directory)
  27
  28 (or (fboundp 'write-region-as-binary)
  29     (error "Please install latest APEL 7.3 or later."))
  30 (or (fboundp 'insert-file-contents-as-binary)
  31     (error "Please install latest APEL 7.3 or later."))
  32
  33
  34 ;;; @ Please specify prefix of install directory.
  35 ;;;
  36
  37 ;; Please specify install path prefix.
  38 ;; If it is omitted, shared directory (maybe /usr/local is used).
  39 (defvar PREFIX install-prefix)
  40 ;;(setq PREFIX "~/")
  41
  42 ;; Please specify prefix for ``FLIM'' [optional]
  43 (setq FLIM_PREFIX "flim")
  44
  45 \f
  46
  47 ;;; @ optional settings
  48 ;;;
  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 (defvar VERSION_SPECIFIC_LISPDIR
  56   (install-detect-elisp-directory PREFIX nil 'version-specific))
  57
  58 ;; (setq FLIM_DIR (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_LISPDIR))
  59 (setq FLIM_DIR (expand-file-name FLIM_PREFIX LISPDIR))
  60
  61 (defvar PACKAGEDIR
  62   (if (boundp 'early-packages)
  63       (let ((dirs (append (if early-package-load-path
  64                               early-packages)
  65                           (if late-package-load-path
  66                               late-packages)
  67                           (if last-package-load-path
  68                               last-packages)))
  69             dir)
  70         (while (not (file-exists-p
  71                      (setq dir (car dirs))))
  72           (setq dirs (cdr dirs)))
  73         dir)))
  74
  75 ;;; FLIM-CFG ends here