emacs/lisp/printing.el

15 Please send all bug fixes and enhancements to
44 ;; certain special modes like mh-folder-mode, rmail-summary-mode,
45 ;; gnus-summary-mode, etc.  This package also includes a PostScript/text
139 ;; documentation, please, send an email to maintainer.  All printing users
232 ;;    local system can get it to send to the printer.
405 ;;    `*-print'			send PostScript directly to printer.
406 ;;    `*-ps-print'		send PostScript directly to printer or use
430 ;; have a PostScript printer) or send directly to printer a PostScript code
461 ;; major mode usage is when you're using gnus (or mh, or rmail, etc.) and
465 ;; to switch from gnus *Summary* buffer first.
710 ;;		 example for major mode usage is when you're using gnus (or mh,
715 ;;		 switch from gnus *Summary* buffer first.
719 ;;		 Ia. Print the file *No Preprocessing*, that is, send it
748 ;;    3. You can select a new PostScript printer to send PostScript code
767 ;;    6. You can select a new text printer to send text generated.  For
813 ;;    18. If you don't have a PostScript printer to send PostScript files, turn
2015   '((mh-folder-mode			; mh summary buffer
2029     (rmail-summary-mode			; rmail summary buffer
2043     (gnus-summary-mode			; gnus summary buffer
2044      pr-gnus-lpr  pr-gnus-print
2046      (ps-article-subject ps-article-author gnus-newsgroup-name)
2050     (gnus-article-mode			; gnus article buffer
2051      pr-gnus-lpr  pr-gnus-print
2053      (ps-article-subject ps-article-author gnus-newsgroup-name)
2076 mode usage is when you're using gnus (or mh, or rmail, etc.) and you're in the
2079 the printer.  With major mode printing you don't need to switch from gnus
2102 		process the buffer and send it to text printer.
2119 		process the buffer and send it to PostScript printer.
3103 	  (easy-menu-add-item global-map menu-file
3109 	    (easy-menu-remove-item global-map menu-file item))
3115 	  (easy-menu-add-item global-map menu-file
3224 	      example for major mode usage is when you're using gnus (or mh,
3229 	      switch from gnus *Summary* buffer first.
3232 	      Ia. Print the file *No Preprocessing*, that is, send it
3261    3. You can select a new PostScript printer to send PostScript code
3280    6. You can select a new text printer to send text generated.  For
3326    18. If you don't have a PostScript printer to send PostScript files, turn
3407 	      example for major mode usage is when you're using gnus (or mh,
3412 	      switch from gnus *Summary* buffer first.
3446       You can select a new PostScript printer to send PostScript code
3472       Specify a file name to send the PostScript generated.
3480       Select a new text printer to send text generated.  For selection it's used
3565 	 If you don't have a PostScript printer to send PostScript files, turn
3748 argument FILENAME is treated as follows: if it's nil, send the image to the
3767 argument FILENAME is treated as follows: if it's nil, send the image to the
3788 argument FILENAME is treated as follows: if it's nil, send the image to the
4017 send the image to the printer.  If FILENAME is a string, save the PostScript
4036 send the image to the printer.  If FILENAME is a string, save the PostScript
4056 send the image to the printer.  If FILENAME is a string, save the PostScript
4145   "Process a PostScript file IFILENAME and send it to printer.
4156 nil, send the image to the printer.  If OFILENAME is a string, save the
4412    If it's nil, send the image to the printer.
4431    Otherwise, send the image to the printer.
4668   (pr-lpr-message-from-summary header-list
4669 			       'rmail-buffer 'rmail-summary-buffer))
4674   (pr-ps-message-from-summary n-up filename header-list
4675 			      'rmail-buffer 'rmail-summary-buffer))
4678 (defun pr-ps-message-from-summary (n-up filename header-list
4679 					summary-buffer summary-default)
4681   (let ((buf (or (and (boundp summary-buffer)
4682 		      (symbol-value summary-buffer))
4683 		 (symbol-value summary-default))))
4690 (defun pr-lpr-message-from-summary (header-list summary-buffer summary-default)
4692   (let ((buf (or (and (boundp summary-buffer)
4693 		      (symbol-value summary-buffer))
4694 		 (symbol-value summary-default))))
4702 ;; gnus (hacked from ps-print.el)
4705 (defvar pr-gnus-article "*Article*")
4708 (defun pr-gnus-print (n-up filename header-list)
4710   (pr-ps-message-from-summary n-up filename header-list
4711 			      'gnus-article-buffer 'pr-gnus-article))
4714 (defun pr-gnus-lpr (header-list)
4716   (pr-lpr-message-from-summary header-list
4717 			       'gnus-article-buffer 'pr-gnus-article))
4724 (defvar pr-vm-summary "")
4729   (pr-ps-message-from-summary n-up filename header-list
4730 			      'vm-mail-buffer 'pr-vm-summary))
4735   (pr-lpr-message-from-summary header-list
4736 			       'vm-mail-buffer 'pr-vm-summary))
4907     (lookup-key global-map
5152 		       global-map
6019 (defvar pr-i-ps-send    'printer)
6022 (defvar pr-interface-map nil
6025 (unless pr-interface-map
6026   (setq pr-interface-map (make-sparse-keymap))
6028 	 (pr-f-set-keymap-parents pr-interface-map (list widget-keymap))
6029 	 (pr-f-set-keymap-name pr-interface-map 'pr-interface-map))
6031 	 (pr-f-set-keymap-parents pr-interface-map widget-keymap)))
6032   (define-key pr-interface-map "q" 'pr-interface-quit)
6033   (define-key pr-interface-map "?" 'pr-interface-help))
6050   (put 'pr-i-ps-send 'pr-widget-list nil)
6077   (use-local-map pr-interface-map)
6234   (pr-insert-radio-button 'pr-i-ps-send 'printer)
6237   (pr-insert-radio-button 'pr-i-ps-send 'file)
6478 			 (pr-i-ps-send))))
6522 (defun pr-i-ps-send ()
6523   (cond ((eq pr-i-ps-send 'printer)
6525 	((not (eq pr-i-ps-send 'file))
6526 	 (error "Internal error: `pr-i-ps-send' = %S" pr-i-ps-send))