SEMI-CFG

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

;; SEMI-CFG: installation setting about SEMI.

;;; Code:

(defvar default-load-path load-path)

(add-to-list 'load-path
	     (expand-file-name "../../site-lisp/apel" data-directory))
(add-to-list 'load-path
	     (expand-file-name "." 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 "emu" LISPDIR))
      (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
      ))

(defvar VERSION_SPECIFIC_LISPDIR nil)

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

(condition-case nil
    (require 'install)
  (error (error "Please install APEL 8.7 or later.")))

(add-path "bitmap-mule")
(add-path "flim")

(add-to-list 'load-path (expand-file-name "."))

(or (module-installed-p 'calist)
    (error "Please install APEL 8.7 or later."))
(or (module-installed-p 'mime)
    (error "Please install FLIM 1.6.0 or later."))
(if (module-installed-p 'tm-view)
    (message "Please remove tm from load-path."))


;;; @ Please specify optional package directory if you use them.
;;;

;; It is only necessary to use `add-path' if these packages are not
;; already on the standard load-path of Emacs.

;; Function `get-latest-path' detect latest version of such package
;; under load-path directories. If you want to use a version of a
;; package instead of latest version, please specify by argument of
;; function `add-path'.

;; Function `add-path' finds path under load-path directories. If a
;; package does not exist in load-path, please specify by absolutely
;; (`~/' is available), for example
;;	(add-path "~/lib/elisp/bbdb")
;; or
;;	(add-path "/opt/share/xmule/site-lisp/bbdb")


;;; @@ Please specify BBDB path.
;;;

(let ((path (get-latest-path "bbdb" 'all-paths)))
  (if path
      (progn
	(add-path path)
	(add-path (expand-file-name "lisp" path)) ; run-in-place installation
	)))

;; Or please specify path.
;; (add-path "bbdb-1.50" 'all-paths)


;;;
;;; @@ Please specify Emacs/W3 path.
;;;

(let ((path (get-latest-path "w3" 'all-paths)))
  (if path
      (progn
	(add-path path)
	(add-path (expand-file-name "lisp" path)) ; run-in-place installation
	)))

;; Or please specify path.
;; (add-path "w3-4.0pre.20" 'all-paths)


;;;
;;; @@ Please specify CUSTOM path.
;;;

(add-latest-path "custom")


;;; @ 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 emu prefix [optional]
(setq EMU_PREFIX
      (if (string-match "XEmacs" emacs-version)
	  "emu"
	""))

;; Please specify SEMI prefix [optional]
(setq SEMI_PREFIX "semi")


;;; @ executables
;;;

;; Please specify binary path. (for external method scripts)
(setq METHOD_DIR (expand-file-name "share/semi" PREFIX))




;;; @ 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")

(setq SEMI_KERNEL_DIR	(expand-file-name SEMI_PREFIX	LISPDIR))
(setq SETUP_FILE_DIR	SEMI_KERNEL_DIR)

(defvar PACKAGEDIR (install-get-default-package-directory))

;;; SEMI-CFG ends here