;;; -*- Mode: LISP; Syntax: Zetalisp; Package: ZETALISP-USER; Base: 10; -*-

(setf zwei::*KILL-BUFFER-PROMPTS-FOR-NEW-BUFFER* nil)
(setf si:*default-lisp-syntax* ':ansi-common-lisp)
(setf tv:*wholine-clock-24hour-p* t)
(setf tv:*wholine-clock-delimiters* nil)
(setf fs:*remember-passwords* t)
(setf cp:*prompt* 'si:arrow-prompt)
(setf si:*kbd-auto-repeat-enabled-p* t)
;(setf (tv:screen-brightness tv:main-screen) 0.8937008)
(setf zwei:*region-marking-mode* :underline) ;:reverse-video
(setf telnet:*host-default-terminal-simulators*
      (cons '(otherwise telnet:vt100-terminal-simulator)
	    telnet:*host-default-terminal-simulators*))
(tv:set-screen-options
  :dim-screen-after-n-minutes-idle 7
  :screen-dimness-percent 70
  :background-gray stipples:50%-gray
  :deexposed-gray nil)

(TV:SETUP-SELECT-KEYS '((#\C . "Converse") (#\D . "Document Examiner") (#\E . "Editor")
                        (#\F . "File System Operations") (#\H . "Hermes") (#\I . "Inspector")
                        (#\L . "Lisp") (#\M . "Zmail") (#\N . "Namespace Editor")
                        (#\O . "Mailer") (#\P . "Peek") (#\Q . "Frame-Up") (#\T . "Terminal")
                        (#\Square . "X11 Server") (#\X . "X11 Server")
                        (#\= . "Select Key Selector"))
                      NIL)

;; For Macintoshes
(sys:set-keyboard-table-mapping :mouse-r :apple-extended #x78 :all-shifts t)
(sys:set-keyboard-table-mapping :mouse-m :apple-extended #x7A :all-shifts t)