;;; -*- Mode:LISP; Readtable:CL -*-

(login-setq
  si:user-id				 "CStacy"
  fs:user-personal-name                  "Stacy, Christopher C."
  fs:user-personal-name-first-name-first "Christopher C. Stacy")

(gc:gc-on :degree 2)

(let ((fs:this-is-a-patch-file nil))
  (load-patches :noselective)
  (make-system 'hun-la :noconfirm))

(common-lisp t t)

(login-setq
  *package*				si:pkg-user-package
  *read-base*				10.
  *print-base*				10.

  tv:beep-duration 20000
  tv:beep-wavelength 35
  format:*allow-fquery-timeouts* nil)

(fs:file-host-user-id "cstacy" (si:parse-host "ANGEL"))
(fs:reset-file-access '("ANGEL") 'fs:ftp-access)

ZWEI:
(login-setq
  *point-pdl-max* 30
  *check-unbalanced-parentheses-when-saving* t
  *file-versions-kept* 1
  *hack-buffers-requires-confirmation-p* nil
  *read-only-logical-hosts* '("SYS:"))

ZWEI:
(login-setq
  zwei:*notify-on-new-mail-in-background* nil	;:converse
  zwei:*inhibit-background-mail-checks* t)

ZWEI:
(set-comtab
  *zmacs-comtab*
  '(#\control-C      com-prefix-control-meta
    #\control-M      (0 #\CR)
    #\control-J      (0 #\LF)
    #\control-I      (0 #\TAB)
    #\control-]      (0 #\ABORT)
    #\Clear-input    com-beep
    
    #\control-S      com-char-search
    #\control-R      com-reverse-char-search
    #\control-meta-S com-incremental-search
    #\control-\\     com-just-one-space
    #\mouse-m        com-mouse-copy-thing
    #\c-mouse-m      com-mouse-mark-thing
    #\hyper-Space    com-hyperspace
    #\sh-c-m-L       com-rotate-three-buffers
    #\meta-\|        com-draw-vertical-line))

ZWEI:
(set-comtab
  *zmacs-control-x-comtab*
  '(#\U              com-quick-undo
    #\control-K      com-kill-region
    #\control-B      com-hack-buffers
    #\control-Y      com-insert-file
    #\control-N      com-beep))

(hl:adjust-all-process-quanta 6)

(send tv:who-line-documentation-window :set-font-map '(hl12b))
(send tv:who-line-documentation-window :refresh)