anchor.diff:  ;; for resizing display
   (defkeycode "[resize]" #x222)
   (defvar *resizing* nil)
  +(defun now-resizing () *resizing*)
  +(defun (setf now-resizing) (v) (setf *resizing* v))
   (defvar *min-cols*  5)
   (defvar *min-lines* 3)
   
  
positive.code: 
  ;; clip string to fit inside of view
  (defun clip-string (view x y string)
    (let ((disp-width (ncurses-view-width view)))
      (cond
        ((>= x disp-width)
  
negative.code:   *windows-term-type*)
  (defun (setf windows-term-type) (v)
    (setf *windows-term-type* v)
    (update-windows-term-setting)
    v)
  
  ;; windows terminal setting
  