home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / lisp / term / intuition-win.el < prev    next >
Lisp/Scheme  |  1996-09-28  |  2KB  |  51 lines
  1. ;(setq stack-trace-on-error t) ; CHFIXME
  2. ;(load "s:.emacs-menu" t t)
  3. (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font)
  4.                      ("-fg" . amiga-handle-set-foreground)
  5.                      ("-bg" . amiga-handle-set-background)
  6.                      ("-geometry" . amiga-handle-set-geometry)
  7.                      ("-screen" . amiga-handle-set-screen))
  8.                    command-switch-alist))
  9.  
  10. (defun amiga-handle-set-font (switch)
  11.   (condition-case err
  12.       (let ((wfont (car command-line-args-left))
  13.         (height (car (read-from-string (car (cdr command-line-args-left))))))
  14.     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  15.     (amiga-set-font wfont height))
  16.     (error (message "Failed to load font"))))
  17.  
  18. (defun amiga-handle-set-foreground (switch)
  19.   (condition-case err
  20.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  21.     (setq command-line-args-left (cdr command-line-args-left))
  22.     (amiga-set-foreground-color pen))
  23.     (error (message "Failed to set foreground colour"))))
  24.  
  25. (defun amiga-handle-set-background (switch)
  26.   (condition-case err
  27.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  28.     (setq command-line-args-left (cdr command-line-args-left))
  29.     (amiga-set-background-color pen))
  30.     (error (message "Failed to set background colour"))))
  31.  
  32. (defun amiga-handle-set-screen (switch)
  33.   (condition-case err
  34.       (let ((name (car command-line-args-left)))
  35.     (setq command-line-args-left (cdr command-line-args-left))
  36.     (amiga-set-geometry nil nil nil nil name))
  37.     (error (message "Couldn't open on public screen"))))
  38.  
  39. (defun amiga-handle-set-geometry (switch)
  40.   (condition-case err
  41.       (let ((x (car (read-from-string (car command-line-args-left))))
  42.         (y (car (read-from-string (car (cdr command-line-args-left)))))
  43.         (w (car (read-from-string (car (cdr (cdr command-line-args-left))))))
  44.         (h (car (read-from-string (car (cdr (cdr (cdr command-line-args-left)))))))
  45. )
  46.     (setq command-line-args-left (cdr (cdr (cdr (cdr command-line-args-left)))))
  47.     (amiga-set-geometry x y w h nil))
  48.     (error (message "Couldn't set window size"))))
  49.  
  50.  
  51.