home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 8
/
FreshFishVol8-CD1.bin
/
new
/
util
/
edit
/
jade
/
lisp
/
init.jl
< prev
next >
Wrap
Lisp/Scheme
|
1994-09-20
|
2KB
|
75 lines
;;;; 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)