;; Copyright (c) 1988, 1989 Envos & Fuji Xerox

;; Generic Medley site initialization file.  Edit for your site.

;; The environment variable LDEINIT should name this file if it is not
;; filed as /usr/local/lde/site-init.lisp.

;; Establish the Interlisp package for this file.
(CL:IN-PACKAGE "INTERLISP")

;; Search path for (from valueof lispusersdirectories), includes library.
(SETQ LISPUSERSDIRECTORIES
  '("{DSK}/usr/local/lde/lispusers/" 
    "{DSK}/usr/local/lde/lisplibrary/"))

;; search path when file not found on current directory
(SETQ DIRECTORIES (COPYALL LISPUSERSDIRECTORIES))

;; paths for display fonts; list the ones that are installed
(SETQ DISPLAYFONTDIRECTORIES
  '("{DSK}/usr/local/lde/fonts/display/presentation/"
    "{DSK}/usr/local/lde/fonts/display/publishing/"
    "{DSK}/usr/local/lde/fonts/display/printwheel/"
    "{DSK}/usr/local/lde/fonts/display/miscellaneous/"
    "{DSK}/usr/local/lde/fonts/display/jis1/"
    "{DSK}/usr/local/lde/fonts/display/jis2/"
    "{DSK}/usr/local/lde/fonts/display/chinese/"))

;; paths for interpress font widths; list the ones that are installed
(SETQ INTERPRESSFONTDIRECTORIES
  '("{DSK}/usr/local/lde/fonts/interpress/presentation/"
    "{DSK}/usr/local/lde/fonts/interpress/publishing/"
    "{DSK}/usr/local/lde/fonts/interpress/printwheel/"
    "{DSK}/usr/local/lde/fonts/interpress/miscellaneous/"
    "{DSK}/usr/local/lde/fonts/interpress/jis1/"
    "{DSK}/usr/local/lde/fonts/interpress/jis2/"
    "{DSK}/usr/local/lde/fonts/interpress/chinese/"))

;; name/location of press font widths
(SETQ PRESSFONTWIDTHFILES
  '("{DSK}/usr/local/lde/fonts/press/FONTS.WIDTHS"))

;; path patterns for individual initialization file
(SETQ USERGREETFILES '(("{DSK}~/lde/INIT.LISP") ("{DSK}~/INIT.LISP")))

;; only for chat, PUP and XNS services
(SETQ DEFAULTOSTYPE 'UNIX)

;; can be reset for XNS/Interpress printers, or using other printer drivers
(SETQ DEFAULTPRINTINGHOST NIL)
(SETQ DEFAULTPRINTERTYPE NIL)

;; let any user with a valid UNIX login to exit Idle mode
(LISTPUT IDLE.PROFILE 'AUTHENTICATE 'UNIX)
(LISTPUT IDLE.PROFILE 'ALLOWED.LOGINS '(*))

;; don't save VM while idling

(LISTPUT IDLE.PROFILE 'SAVEVM NIL)

;; These values are for establishing where DST begins and ends. These are the
;; default for the US in 1988

(SETQ |\\BeginDST| 98)
(SETQ |\\EndDST| 305)

;; edit to have your particular site parameters-- for standalone, short
;; site name is host name

(SETQ XCL:*LONG-SITE-NAME* 
(SETQ XCL:*SHORT-SITE-NAME* (UNIX-GETPARM "HOSTNAME")))