Update of /project/gsharp/cvsroot/gsharp In directory clnet:/tmp/cvs-serv25528

Modified Files: gui.lisp Log Message: Make the Print Buffer To File command output eps if the pathname type is "eps".

No error-checking for multiple pages or anything sensible like that.

--- /project/gsharp/cvsroot/gsharp/gui.lisp 2007/11/21 19:22:03 1.89 +++ /project/gsharp/cvsroot/gsharp/gui.lisp 2007/11/22 09:33:03 1.90 @@ -1530,17 +1530,19 @@ :default (print-buffer-filename) :default-type 'pathname :insert-default t)) (with-open-file (ps filepath :direction :output :if-exists :supersede) - (with-output-to-postscript-stream (s ps) - (setf (stream-default-view s) - ;; FIXME: should probably get the class of the view from - ;; the current buffer or window or something. - (make-instance 'orchestra-view :light-glyphs-ink +black+ - :buffer (current-buffer) :cursor (current-cursor))) - (setf (medium-transformation s) - ;; FIXME: This scaling works for me (A4 paper, default - ;; gsharp buffer sizes. - (compose-scaling-with-transformation (medium-transformation s) - 0.8 0.8)) - (print-buffer s (current-buffer) (current-cursor) - (left-margin (current-buffer)) 100)))) - + (let* ((type (pathname-type filepath)) + (epsp (string-equal type "EPS"))) + (with-output-to-postscript-stream (s ps :device-type (when epsp :eps)) + (setf (stream-default-view s) + ;; FIXME: should probably get the class of the view from + ;; the current buffer or window or something. + (make-instance 'orchestra-view :light-glyphs-ink +black+ + :buffer (current-buffer) + :cursor (current-cursor))) + (setf (medium-transformation s) + ;; FIXME: This scaling works for me (A4 paper, default + ;; gsharp buffer sizes. + (compose-scaling-with-transformation + (medium-transformation s) 0.8 0.8)) + (print-buffer s (current-buffer) (current-cursor) + (left-margin (current-buffer)) 100)))))