;;; -*- Mode: Lisp;  -*-
;;; File: .epoch
;;; Author: Heinz Schmidt (hws@ICSI.Berkeley.EDU)
;;; Copyright (C) International Computer Science Institute, 1991
;;; Changes: Heinz Schmidt (hws@csis.dit.csiro.AU)
;;; Copyright (C) CSIRO Division of Information Technology, 1992
;;;
;;; COPYRIGHT NOTICE: This code is provided "AS IS" WITHOUT ANY WARRANTY.
;;; It is subject to the terms of the GNU EMACS GENERAL PUBLIC LICENSE
;;; described in a file COPYING in the GNU EMACS distribution or to be obtained
;;; from Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139
;;;*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;;;* FUNCTION: Emacs Customization: Epoch specific setup
;;;*
;;;* RELATED PACKAGES:
;;;*
;;;* HISTORY:
;;;* Last edited: Mar  8 15:03 1992 (hws)
;;;*  Feb 20 22:17 1992 (hws): simplified.
;;;* Created: Sun Nov 24 13:51:07 1991 (hws)
;;;*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;;; Screen and window control
;;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

(load-library "ep-minibuf")

(setq epoch::nonlocal-minibuffer nil 	 
      epoch::synchronize-minibuffers nil
      auto-raise-screen 'minibuf	; only minibuf tries to be visible
      )
;;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
(setq include-system-name t)
(load-library "ep-scrtitl")

;;; Customize screen sizes on a mode basis.
;;;
;;; 68 northwest arrow
;;; 60 northwest hand

(push '(sather-mode (geometry . "81x50+10+150") (cursor-glyph . 68) 
		    (title . "Sather") (icon-name . "Sather")) epoch-mode-alist)
(push '(eiffel-mode (geometry . "81x50+10+150") (cursor-glyph . 68)
		    (title "Eiffel") (icon-name "Eiffel")) epoch-mode-alist)
(push '(lisp-mode (geometry . "81x50+20+100") (cursor-glyph . 68)
		  (title . "Lisp") (icon-name . "Lisp")) epoch-mode-alist)
(push '(emacs-lisp-mode (geometry . "81x50+20+100") (cursor-glyph . 68)
			(title . "Lisp") (icon-name . "Lisp")) epoch-mode-alist)
(push '(c-mode (geometry . "81x50+30+50") (cursor-glyph . 68)
	       (title . "C") (icon-name . "C")) epoch-mode-alist)

(push '(Info-mode (cursor-glyph . 60) 
		  (font . "6x13") ;"-*-fixed-medium-r-normal-*-13-120-*"
		  (boldFont . "6x13bold")) ;"-*-fixed-bold-r-normal-*-13-120-*"
      epoch-mode-alist)

(push '(server-mode (cursor-glyph . 60) 
		    (geometry . "81x40+10+150")
		    (title . "GnuServer")
		    (icon-name "GnuServer"))
      epoch-mode-alist)

;;;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

(defvar running-epoch (and (boundp 'epoch::version) epoch::version))

(setq term-file-prefix nil
      target-buffer (get-buffer "*scratch*"))

(defun my-exit-from-emacs ()  
  (interactive)              
  (if (yes-or-no-p "Do you want to exit ")
      (save-buffers-kill-emacs)))
 
(global-set-key "\C-x\C-c" 'my-exit-from-emacs)

;; Load epoch elisp code.  Most/all of this should have been loaded at the
;; time epoch was dumped.  Load any of these files if necessary.  Change
;; these "require" statements to "load-file" to pick up local changes to 
;; standard code that was dumped.

;(require 'mini-cl)
;(require 'wrapper)
;(require 'epoch-util)
;(require 'epoch)	
;(require 'event)
;(require 'button)
;(require 'mouse)
;(require 'motion)
;(require 'property)
;(require 'message)
;(require 'server)			;not dumped - this will always load


