github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

more greet file tweaks

Browse Source
This commit is contained in:
Larry Masinter 2022-02-28 21:23:58 -08:00
parent f0f8b59ad8
commit 8eb9efdcc7
2 changed files with 71 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
greetfiles/MEDLEYDIR-INIT
View File

@ -1,11 +1,8 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 2-Dec-2021 21:13:55" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;3 2392
(FILECREATED "28-Feb-2022 21:13:20" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;2 4677
changes to%: (VARS MEDLEYDIR-INITCOMS)
(FNS INTERLISPMODE)
previous date%: "14-Nov-2021 22:34:49" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
:PREVIOUS-DATE "20-Feb-2022 11:47:18" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
(PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@ -16,14 +13,24 @@
"/sources/MEDLEYDIR.LCOM"))
(MEDLEY-INIT-VARS)
(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
(FILES BACKGROUND-YIELD)
(VARS (FILING.ENUMERATION.DEPTH 1)
(FILES BACKGROUND-YIELD PAGEHOLD VTCHAT)
(VARS
(* ;; "settings for new users")
(DWIMWAIT 180)
(HELPDEPTH 4)
(HELPTIME 10)
(FILING.ENUMERATION.DEPTH 1)
[LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME"]
[USERGREETFILES `((,LOGINDIR "INIT" COM)
(,LOGINDIR "INIT"]
(COPYRIGHTSRESERVED NIL))
(FNS INTERLISPMODE)))
(COPYRIGHTSRESERVED NIL)
(AUTOBACKTRACEFLG 'ALWAYS)
(MAXLEVEL 30000)
(MAXLOOP 30000))
(FNS INTERLISPMODE)
(ALISTS (FONTDEFS LARGER))))
(LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
"")
@ -33,17 +40,29 @@
(KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
(FILESLOAD BACKGROUND-YIELD)
(FILESLOAD BACKGROUND-YIELD PAGEHOLD VTCHAT)
(RPAQQ DWIMWAIT 180)
(RPAQQ HELPDEPTH 4)
(RPAQQ HELPTIME 10)
(RPAQQ FILING.ENUMERATION.DEPTH 1)
(RPAQ LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
(UNIX-GETENV "HOME"))))
(UNIX-GETENV "HOME"))))
(RPAQ USERGREETFILES `((,LOGINDIR "INIT" COM)
(,LOGINDIR "INIT")))
(,LOGINDIR "INIT")))
(RPAQQ COPYRIGHTSRESERVED NIL)
(RPAQQ AUTOBACKTRACEFLG ALWAYS)
(RPAQQ MAXLEVEL 30000)
(RPAQQ MAXLOOP 30000)
(DEFINEQ
(INTERLISPMODE
@ -59,6 +78,45 @@
else "INTERLISP")
:PACKAGE "INTERLISP"])
)
(ADDTOVAR FONTDEFS
[LARGER (FONTCHANGEFLG . ALL)
(FILELINELENGTH . 102)
(FONTPROFILE (DEFAULTFONT 1 (GACHA 12)
(GACHA 10)
(TERMINAL 10)
(POSTSCRIPT (TERMINAL 10)))
(ITALICFONT 1 (HELVETICA 12 MIR)
(GACHA 10 MIR)
(MODERN 10 MIR)
(POSTSCRIPT (MODERN 10 MIR)))
(BOLDFONT 2 (HELVETICA 12 BRR)
(HELVETICA 10 BRR)
(MODERN 10 BRR)
(POSTSCRIPT (HELVETICA 12 BRR)))
(LITTLEFONT 3 (HELVETICA 10)
(HELVETICA 6 MIR)
(MODERN 10 MIR)
(POSTSCRIPT (MODERN 10 MIR)))
(TINYFONT 6 (GACHA 10)
(GACHA 6)
(TERMINAL 6)
(POSTSCRIPT (TERMINAL 6)))
(BIGFONT 4 (HELVETICA 12 BRR)
NIL
(MODERN 12 BRR)
(POSTSCRIPT (MODERN 12 BRR)))
(MENUFONT 5 (HELVETICA 12)
(HELVETICA 12)
(POSTSCRIPT (HELVETICA 12)))
(COMMENTFONT 6 (HELVETICA 12)
(HELVETICA 10)
(MODERN 10)
(POSTSCRIPT (MODERN 10)))
(TEXTFONT 7 (TIMESROMAN 12)
NIL
(CLASSIC 12)
(POSTSCRIPT (CLASSIC 12])
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1544 2369 (INTERLISPMODE 1554 . 2367)))))
(FILEMAP (NIL (1936 2761 (INTERLISPMODE 1946 . 2759)))))
STOP

BIN
greetfiles/MEDLEYDIR-INIT.LCOM
View File

Binary file not shown.