home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / term / intuition-win.el < prev    next >
Encoding:
Text File  |  1992-11-21  |  2.0 KB  |  48 lines
  1. (load "s:.emacs-menu" t t)
  2. (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font)
  3.                      ("-fg" . amiga-handle-set-foreground)
  4.                      ("-bg" . amiga-handle-set-background)
  5.                      ("-geometry" . amiga-handle-set-geometry)
  6.                      ("-screen" . amiga-handle-set-screen))
  7.                    command-switch-alist))
  8.  
  9. (defun amiga-handle-set-font (switch)
  10.   (condition-case err
  11.       (let ((wfont (car command-line-args-left))
  12.         (height (car (read-from-string (car (cdr command-line-args-left))))))
  13.     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  14.     (amiga-set-font wfont height))
  15.     (error (message "Failed to load font"))))
  16.  
  17. (defun amiga-handle-set-foreground (switch)
  18.   (condition-case err
  19.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  20.     (setq command-line-args-left (cdr command-line-args-left))
  21.     (amiga-set-foreground-color pen))
  22.     (error (message "Failed to set foreground colour"))))
  23.  
  24. (defun amiga-handle-set-background (switch)
  25.   (condition-case err
  26.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  27.     (setq command-line-args-left (cdr command-line-args-left))
  28.     (amiga-set-background-color pen))
  29.     (error (message "Failed to set background colour"))))
  30.  
  31. (defun amiga-handle-set-screen (switch)
  32.   (condition-case err
  33.       (let ((name (car command-line-args-left)))
  34.     (setq command-line-args-left (cdr command-line-args-left))
  35.     (amiga-set-geometry nil nil nil nil name))
  36.     (error (message "Couldn't open on public screen"))))
  37.  
  38. (defun amiga-handle-set-geometry (switch)
  39.   (condition-case err
  40.       (let ((x (car (read-from-string (car command-line-args-left))))
  41.         (y (car (read-from-string (car (cdr command-line-args-left)))))
  42.         (w (car (read-from-string (car (cdr (cdr command-line-args-left))))))
  43.         (h (car (read-from-string (car (cdr (cdr (cdr command-line-args-left)))))))
  44. )
  45.     (setq command-line-args-left (cdr (cdr (cdr (cdr command-line-args-left)))))
  46.     (amiga-set-geometry x y w h nil))
  47.     (error (message "Couldn't set window size"))))
  48.