Commit | Line | Data |
---|---|---|
863e5e39 BW |
1 | ;;; mh-print.el --- MH-E printing support |
2 | ||
49f70d46 | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 |
dcf71371 | 4 | ;; Free Software Foundation, Inc. |
863e5e39 BW |
5 | |
6 | ;; Author: Jeffrey C Honig <jch@honig.net> | |
7 | ;; Maintainer: Bill Wohler <wohler@newt.com> | |
8 | ;; Keywords: mail | |
9 | ;; See: mh-e.el | |
10 | ||
11 | ;; This file is part of GNU Emacs. | |
12 | ||
5e809f55 | 13 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
863e5e39 | 14 | ;; it under the terms of the GNU General Public License as published by |
5e809f55 GM |
15 | ;; the Free Software Foundation, either version 3 of the License, or |
16 | ;; (at your option) any later version. | |
863e5e39 BW |
17 | |
18 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 | ;; GNU General Public License for more details. | |
22 | ||
23 | ;; You should have received a copy of the GNU General Public License | |
5e809f55 | 24 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
863e5e39 BW |
25 | |
26 | ;;; Commentary: | |
863e5e39 BW |
27 | |
28 | ;;; Change Log: | |
29 | ||
30 | ;;; Code: | |
31 | ||
dda00b2c BW |
32 | (require 'mh-e) |
33 | (require 'mh-scan) | |
34 | ||
863e5e39 | 35 | (require 'ps-print) |
863e5e39 | 36 | |
863e5e39 | 37 | (defvar mh-ps-print-color-option ps-print-color-p |
553fb735 BW |
38 | "Specify how buffer's text color is printed. |
39 | ||
40 | Valid values are: | |
41 | ||
42 | nil - Do not print colors. | |
43 | t - Print colors. | |
44 | black-white - Print colors on black/white printer. | |
dda00b2c | 45 | See also `ps-black-white-faces'. |
553fb735 | 46 | |
2dcf34f9 BW |
47 | Any other value is treated as t. This variable is initialized |
48 | from `ps-print-color-p'.") | |
863e5e39 BW |
49 | |
50 | (defvar mh-ps-print-func 'ps-spool-buffer-with-faces | |
51 | "Function to use to spool a buffer. | |
553fb735 | 52 | |
863e5e39 BW |
53 | Sensible choices are the functions `ps-spool-buffer' and |
54 | `ps-spool-buffer-with-faces'.") | |
55 | ||
863e5e39 BW |
56 | ;;;###mh-autoload |
57 | (defun mh-ps-print-msg (range) | |
2be362c2 | 58 | "Print RANGE\\<mh-folder-mode-map>. |
863e5e39 | 59 | |
2dcf34f9 BW |
60 | Check the documentation of `mh-interactive-range' to see how RANGE is |
61 | read in interactive use. | |
62 | ||
63 | This command will print inline text attachments but will not decrypt | |
64 | messages. However, when a message is displayed in an MH-Show buffer, | |
65 | then that buffer is used verbatim for printing with the caveat that | |
66 | only text attachments, if opened inline, are printed. Therefore, | |
67 | encrypted messages can be printed by showing and decrypting them | |
68 | first. | |
69 | ||
70 | MH-E uses the \"ps-print\" package to do the printing, so you can | |
71 | customize the printing further by going to the `ps-print' | |
72 | customization group. This command does not use the options | |
73 | `mh-lpr-command-format' or `mh-print-background-flag'. See also the | |
74 | commands \\[mh-ps-print-toggle-color] and | |
75 | \\[mh-ps-print-toggle-faces]." | |
553fb735 BW |
76 | (interactive (list (mh-interactive-range "Print"))) |
77 | (mh-ps-print-range range nil)) | |
863e5e39 | 78 | |
dda00b2c BW |
79 | (defun mh-ps-print-range (range file) |
80 | "Print RANGE to FILE. | |
81 | ||
82 | This is the function that actually does the work. | |
83 | If FILE is nil, then the messages are spooled to the printer." | |
84 | (mh-iterate-on-range msg range | |
85 | (unwind-protect | |
86 | (mh-ps-spool-msg msg)) | |
87 | (mh-notate msg mh-note-printed mh-cmd-note)) | |
88 | (ps-despool file)) | |
89 | ||
90 | (defun mh-ps-spool-msg (msg) | |
91 | "Spool MSG." | |
92 | (let* ((folder mh-current-folder) | |
93 | (buffer (mh-in-show-buffer (mh-show-buffer) | |
94 | (if (not (equal (mh-msg-filename msg folder) | |
95 | buffer-file-name)) | |
96 | (get-buffer-create mh-temp-buffer))))) | |
97 | (unwind-protect | |
98 | (save-excursion | |
99 | (if buffer | |
100 | (let ((mh-show-buffer buffer)) | |
101 | (mh-display-msg msg folder))) | |
102 | (mh-ps-spool-buffer (if buffer buffer mh-show-buffer))) | |
103 | (if buffer | |
104 | (kill-buffer buffer))))) | |
105 | ||
106 | (defun mh-ps-spool-buffer (buffer) | |
107 | "Spool BUFFER." | |
b5553d47 | 108 | (with-current-buffer buffer |
dda00b2c BW |
109 | (let ((ps-print-color-p mh-ps-print-color-option) |
110 | (ps-left-header | |
111 | (list | |
112 | (concat "(" (mh-get-header-field "Subject:") ")") | |
113 | (concat "(" (mh-get-header-field "From:") ")"))) | |
114 | (ps-right-header | |
115 | (list | |
116 | "/pagenumberstring load" | |
117 | (concat "(" (mh-get-header-field "Date:") ")")))) | |
118 | (funcall mh-ps-print-func)))) | |
119 | ||
863e5e39 | 120 | ;;;###mh-autoload |
553fb735 | 121 | (defun mh-ps-print-msg-file (range file) |
2be362c2 | 122 | "Print RANGE to FILE\\<mh-folder-mode-map>. |
863e5e39 | 123 | |
2dcf34f9 BW |
124 | Check the documentation of `mh-interactive-range' to see how RANGE is |
125 | read in interactive use. | |
126 | ||
127 | This command will print inline text attachments but will not decrypt | |
128 | messages. However, when a message is displayed in an MH-Show buffer, | |
129 | then that buffer is used verbatim for printing with the caveat that | |
130 | only text attachments, if opened inline, are printed. Therefore, | |
131 | encrypted messages can be printed by showing and decrypting them | |
132 | first. | |
133 | ||
134 | MH-E uses the \"ps-print\" package to do the printing, so you can | |
135 | customize the printing further by going to the `ps-print' | |
136 | customization group. This command does not use the options | |
137 | `mh-lpr-command-format' or `mh-print-background-flag'. See also the | |
138 | commands \\[mh-ps-print-toggle-color] and | |
139 | \\[mh-ps-print-toggle-faces]." | |
553fb735 BW |
140 | (interactive (list (mh-interactive-range "Print") (mh-ps-print-preprint 1))) |
141 | (mh-ps-print-range range file)) | |
863e5e39 | 142 | |
dda00b2c BW |
143 | (defun mh-ps-print-preprint (prefix-arg) |
144 | "Provide a better default file name for `ps-print-preprint'. | |
145 | Pass along the PREFIX-ARG to it." | |
146 | (let ((buffer-file-name (format "mh-%s" (substring (buffer-name) 1)))) | |
147 | (ps-print-preprint prefix-arg))) | |
148 | ||
863e5e39 BW |
149 | ;;;###mh-autoload |
150 | (defun mh-ps-print-toggle-faces () | |
553fb735 BW |
151 | "Toggle whether printing is done with faces or not. |
152 | ||
2dcf34f9 BW |
153 | When faces are enabled, the printed message will look very |
154 | similar to the message in the MH-Show buffer." | |
863e5e39 BW |
155 | (interactive) |
156 | (if (eq mh-ps-print-func 'ps-spool-buffer-with-faces) | |
157 | (progn | |
158 | (setq mh-ps-print-func 'ps-spool-buffer) | |
159 | (message "Printing without faces")) | |
160 | (setq mh-ps-print-func 'ps-spool-buffer-with-faces) | |
161 | (message "Printing with faces"))) | |
162 | ||
163 | ;;;###mh-autoload | |
164 | (defun mh-ps-print-toggle-color () | |
553fb735 BW |
165 | "Toggle whether color is used in printing messages. |
166 | ||
2dcf34f9 BW |
167 | Colors are emulated on black-and-white printers with shades of |
168 | gray. This might produce illegible output, even if your screen | |
169 | colors only use shades of gray. If this is the case, try using | |
170 | this command to toggle between color, no color, and a black and | |
171 | white representation of the colors and see which works best. You | |
172 | change this setting permanently by customizing the option | |
553fb735 | 173 | `ps-print-color-p'." |
863e5e39 BW |
174 | (interactive) |
175 | (if (eq mh-ps-print-color-option nil) | |
176 | (progn | |
177 | (setq mh-ps-print-color-option 'black-white) | |
93eece98 | 178 | (message "Colors will be printed as black & white")) |
863e5e39 BW |
179 | (if (eq mh-ps-print-color-option 'black-white) |
180 | (progn | |
dda00b2c BW |
181 | (setq mh-ps-print-color-option t) |
182 | (message "Colors will be printed")) | |
863e5e39 | 183 | (setq mh-ps-print-color-option nil) |
93eece98 | 184 | (message "Colors will not be printed")))) |
863e5e39 | 185 | |
cee9f5c6 | 186 | ;; Old non-PS based printing |
863e5e39 BW |
187 | ;;;###mh-autoload |
188 | (defun mh-print-msg (range) | |
2be362c2 | 189 | "Print RANGE the old fashioned way\\<mh-folder-mode-map>. |
553fb735 | 190 | |
2dcf34f9 BW |
191 | The message is formatted with \"mhl\" (see option |
192 | `mh-mhl-format-file') and printed with the \"lpr\" command (see | |
193 | option `mh-lpr-command-format'). | |
863e5e39 | 194 | |
2dcf34f9 BW |
195 | Check the documentation of `mh-interactive-range' to see how |
196 | RANGE is read in interactive use. | |
863e5e39 | 197 | |
553fb735 | 198 | Consider using \\[mh-ps-print-msg] instead." |
863e5e39 BW |
199 | (interactive (list (mh-interactive-range "Print"))) |
200 | (message "Printing...") | |
201 | (let (msgs) | |
202 | ;; Gather message numbers and add them to "printed" sequence. | |
203 | (mh-iterate-on-range msg range | |
204 | (mh-add-msgs-to-seq msg 'printed t) | |
205 | (mh-notate nil mh-note-printed mh-cmd-note) | |
206 | (push msg msgs)) | |
207 | (setq msgs (nreverse msgs)) | |
208 | ;; Print scan listing if we have more than one message. | |
209 | (if (> (length msgs) 1) | |
210 | (let* ((msgs-string | |
211 | (mapconcat 'identity (mh-list-to-string | |
212 | (mh-coalesce-msg-list msgs)) " ")) | |
213 | (lpr-command | |
214 | (format mh-lpr-command-format | |
215 | (cond ((listp range) | |
216 | (format "Folder: %s, Messages: %s" | |
217 | mh-current-folder msgs-string)) | |
218 | ((symbolp range) | |
219 | (format "Folder: %s, Sequence: %s" | |
220 | mh-current-folder range))))) | |
221 | (scan-command | |
222 | (format "scan %s | %s" msgs-string lpr-command))) | |
223 | (if mh-print-background-flag | |
224 | (mh-exec-cmd-daemon shell-file-name nil "-c" scan-command) | |
225 | (call-process shell-file-name nil nil nil "-c" scan-command)))) | |
226 | ;; Print the messages | |
227 | (dolist (msg msgs) | |
228 | (let* ((mhl-command (format "%s %s %s" | |
229 | (expand-file-name "mhl" mh-lib-progs) | |
553fb735 BW |
230 | (if mh-mhl-format-file |
231 | (format " -form %s" mh-mhl-format-file) | |
863e5e39 BW |
232 | "") |
233 | (mh-msg-filename msg))) | |
234 | (lpr-command | |
235 | (format mh-lpr-command-format | |
236 | (format "%s/%s" mh-current-folder msg))) | |
237 | (print-command | |
238 | (format "%s | %s" mhl-command lpr-command))) | |
239 | (if mh-print-background-flag | |
240 | (mh-exec-cmd-daemon shell-file-name nil "-c" print-command) | |
241 | (call-process shell-file-name nil nil nil "-c" print-command))))) | |
242 | (message "Printing...done")) | |
243 | ||
244 | (provide 'mh-print) | |
245 | ||
cee9f5c6 BW |
246 | ;; Local Variables: |
247 | ;; indent-tabs-mode: nil | |
248 | ;; sentence-end-double-space: nil | |
249 | ;; End: | |
863e5e39 | 250 | |
b22103fe | 251 | ;; arch-tag: 8d84d50b-2a49-4d0d-b51e-ba9c9b6fc679 |
863e5e39 | 252 | ;;; mh-print.el ends here |