1 line
2.5 KiB
Plaintext
1 line
2.5 KiB
Plaintext
;; 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")))
|