;;
;; $Id: apex-and-home.el,v 1.16 1999/03/26 15:08:01 ejb Exp $
;; $Source: /home/ejb/elisp/q/RCS/apex-and-home.el,v $
;; $Author: ejb $
;;

(set-variable 'load-path
	      (append (list
		       (expand-file-name "/usr/apex/share/elisp")
		       (expand-file-name "/usr/apex/share/elisp/initload")
		      )
		      load-path))

(autoload 'eql-mode "eql")
(autoload 'datfile-mode "datfile")

(set-variable 'auto-mode-alist
	      (append '(
			("\\.eql\\'" . eql-mode)
			("\\.da[0-9t]\\'" . datfile-mode)
			("\\.[im]nv\\'" . datfile-mode)
			("\\.lst\\'" . datfile-mode)
			("\\.ppf\\'" . datfile-mode)
		      )
		      auto-mode-alist
	      )
)


(add-hook 'eql-mode-hook
	  (function
	   (lambda()
	     (if (not suppress-font-lock)
		 (turn-on-font-lock)
	     )
	   )
	  )
)

(if (not (boundp 'project-alist))
    (setq project-alist nil))


;; Adept
(if (eq system-type 'windows-nt)
    (setq project-alist
	  (append
	   (list
	    (list "C:/adept" " Adept" 'Adept-hooks nil)
	   )
	   project-alist)
    )
  ;; Not NT
  (setq project-alist
	(append
	 (list
	  (list "/dark/adept" " Adept" 'Adept-hooks nil)
	 )
	 project-alist)
  )
)

(add-hook 'Adept-hooks 'Adept-setup)

(defun Adept-setup ()
  (make-local-variable 'tab-width)
  (setq tab-width 4)
  )


;; pproc
(setq project-alist
      (append
       (list
	(list (expand-file-name "~/apex/devel") " pproc" 'pproc-hooks nil)
	(list "/u1/q/devel" " pproc" 'pproc-hooks nil)
	(list "/u2/q/devel" " pproc" 'pproc-hooks nil)
	(list (expand-file-name "~/source/rubik4d") " rubik4d"
	      'rubik4d-hooks nil)
       )
       project-alist)
)

(add-hook 'pproc-hooks 'pproc-setup)

(defvar cur-binext (command-output "binext"))

(defun pproc-setup ()
  (make-local-variable 'obj-file-prefix)
  (setq obj-file-prefix (concat cur-binext "/"))
)

(add-hook 'rubik4d-hooks 'rubik4d-setup)

(defun rubik4d-setup ()
  (make-local-variable 'tab-width)
  (setq tab-width 4)
)