;;;; init.jl -- Standard initialisation script
;;;  Copyright (C) 1993, 1994 John Harper <jsh@ukc.ac.uk>

;;; This file is part of Jade.

;;; Jade is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.

;;; Jade is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.

;;; You should have received a copy of the GNU General Public License
;;; along with Jade; see the file COPYING.  If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

(message "Initialising; wait..." t)

(load "lisp")
(load "loadkeys")
(load "autoload.jl")	; don't want any compiled version
(load "windows")
(load "buffers")
(load "modes")
(load "edit")
(load "prompt")

(load "site-init" t)

;; Now try to interpret the user's startup file
(or
  (load (file-name-concat (user-home-directory) ".jaderc") t t)
  (load "default" t))

;; If we're on an Amiga and the variable `amiga-no-menus' isn't set load
;; some menus.
(when (and (amiga-p) (not (boundp 'amiga-no-menus)))
  (load "loadmenus"))

;; Set up the first window as command shell type thing
(set-buffer-special default-buffer t)
(with-buffer default-buffer
  (lisp-mode))

;; Print a message in the first buffer
(format default-buffer
	";; Jade version %d.%d, Copyright (C) 1993, 1994 John Harper
;; Jade comes with ABSOLUTELY NO WARRANTY; for details see the file COPYING\n\n"
	(major-version-number)
	(minor-version-number))
;; Don't want it in the undo list
(setq buffer-undo-list nil)

;; Use all arguments which are left.
(let
    (arg)
  (while (setq arg (car command-line-args))
    (cond
      ((equal "-f" arg)
	(setq command-line-args (cdr command-line-args))
	(funcall (read-from-string (car command-line-args))))
      ((equal "-l" arg)
	(setq command-line-args (cdr command-line-args))
	(load (car command-line-args)))
      ((equal "-q" arg)
	(throw 'quit 0))
      (t
	(set-current-buffer (open-file arg))))
    (setq command-line-args (cdr command-line-args))))

(princ "ok." t)