;;; -*-Emacs-Lisp-*-

;; FLIM-CFG: installation setting about FLIM.

;;; Code:

(defvar default-load-path load-path)

(add-to-list 'load-path
	     (expand-file-name "../../site-lisp/apel" data-directory))

(if (boundp 'LISPDIR)
    (progn
      (add-to-list 'default-load-path LISPDIR)
      (add-to-list 'load-path LISPDIR)
      (add-to-list 'load-path (expand-file-name "apel" LISPDIR))))

(if (boundp 'VERSION_SPECIFIC_LISPDIR)
    (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))

(require 'install)

(add-latest-path "custom")

(add-path default-directory)

;; (or (fboundp 'write-region-as-binary)
;;     (error "Please install latest APEL 7.3 or later."))
;; (or (fboundp 'insert-file-contents-as-binary)
;;     (error "Please install latest APEL 7.3 or later."))


;;; @ Please specify prefix of install directory.
;;;

;; Please specify install path prefix.
;; If it is omitted, shared directory (maybe /usr/local is used).
(defvar PREFIX install-prefix)
;;(setq PREFIX "~/")

;; Please specify prefix for ``FLIM'' [optional]
(setq FLIM_PREFIX "flim")



;;; @ optional settings
;;;

;; It is generated by automatically. Please set variable `PREFIX'.
;; If you don't like default directory tree, please set it.
(defvar LISPDIR (install-detect-elisp-directory PREFIX))
;; (setq install-default-elisp-directory "~/lib/emacs/lisp")

(defvar VERSION_SPECIFIC_LISPDIR
  (install-detect-elisp-directory PREFIX nil 'version-specific))

;; (setq FLIM_DIR (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_LISPDIR))
(setq FLIM_DIR (expand-file-name FLIM_PREFIX LISPDIR))

(setq FLIM_VERSION_SPECIFIC_DIR
      (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_LISPDIR))

(defvar PACKAGEDIR
  (let ((dirs (append
	       (cond ((boundp 'early-package-hierarchies)
		      (append (if early-package-load-path
				  early-package-hierarchies)
			      (if late-package-load-path
				  late-package-hierarchies)
			      (if last-package-load-path
				  last-package-hierarchies)))
		     ((boundp 'early-packages)
		      (append (if early-package-load-path
				  early-packages)
			      (if late-package-load-path
				  late-packages)
			      (if last-package-load-path
				  last-packages))))
	       (if (and (boundp 'configure-package-path)
			(listp configure-package-path))
		   (delete "" configure-package-path))))
	dir)
    (while (and (setq dir (car dirs))
		(not (file-exists-p dir)))
      (setq dirs (cdr dirs)))
    dir))

;;; FLIM-CFG ends here