1 ;;; printing.el --- printing utilities
3 ;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
4 ;; 2006, 2007 Free Software Foundation, Inc.
6 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
7 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
8 ;; Keywords: wp, print, PostScript
10 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
12 (defconst pr-version
"6.9"
13 "printing.el, v 6.9 <2007/02/11 vinicius>
15 Please send all bug fixes and enhancements to
16 Vinicius Jose Latorre <viniciusjl@ig.com.br>
19 ;; This file is part of GNU Emacs.
21 ;; GNU Emacs is free software; you can redistribute it and/or modify it under
22 ;; the terms of the GNU General Public License as published by the Free
23 ;; Software Foundation; either version 2, or (at your option) any later
26 ;; GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY
27 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
28 ;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
31 ;; You should have received a copy of the GNU General Public License along with
32 ;; GNU Emacs; see the file COPYING. If not, write to the Free Software
33 ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
37 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42 ;; With `printing' you can preview or print a PostScript file. You can also
43 ;; print a text file using PostScript, and preview or print buffers that use
44 ;; certain special modes like mh-folder-mode, rmail-summary-mode,
45 ;; gnus-summary-mode, etc. This package also includes a PostScript/text
48 ;; There are two user interfaces:
51 ;; The `printing' menu replaces the usual print options in the menu bar.
52 ;; This is the default user interface.
54 ;; * Buffer interface:
55 ;; You can use a buffer interface instead of menus. It looks like a
56 ;; customization buffer. Basically, it has the same options found in the
57 ;; menu and some extra options, all this on a buffer.
59 ;; `printing' is prepared to run on GNU, Unix and NT systems.
60 ;; On GNU or Unix system, `printing' depends on gs and gv utilities.
61 ;; On NT system, `printing' depends on gstools (gswin32.exe and gsview32.exe).
62 ;; To obtain ghostscript, ghostview and GSview see the URL
63 ;; `http://www.gnu.org/software/ghostscript/ghostscript.html'.
65 ;; `printing' depends on ps-print package to generate PostScript files, to
66 ;; spool and to despool PostScript buffer. So, `printing' provides an
67 ;; interface to ps-print package and it also provides some extra stuff.
69 ;; To download the latest ps-print package see
70 ;; `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'.
71 ;; Please, see README file for ps-print installation instructions.
73 ;; `printing' was inspired on:
75 ;; print-nt.el Frederic Corne <frederic.corne@erli.fr>
76 ;; Special printing functions for Windows NT
78 ;; mh-e-init.el Tom Vogels <tov@ece.cmu.edu>
79 ;; PS-print for mail messages
81 ;; win32-ps-print.el Matthew O. Persico <mpersico@erols.com>
82 ;; PostScript printing with ghostscript
84 ;; ps-print-interface.el Volker Franz <volker.franz@tuebingen.mpg.de>
85 ;; Graphical front end for ps-print and previewing
91 ;; The buffer *Printing Command Output* is where the `printing' log messages
92 ;; are inserted. All program called by `printing' has a log entry in the
93 ;; buffer *Printing Command Output*. A log entry has the following form:
100 ;; PROGRAM is the program activated by `printing',
101 ;; ARG is an argument passed to PROGRAM (it can have more than one argument),
102 ;; MESSAGE is an error message returned by PROGRAM (it can have no message, if
103 ;; PROGRAM is successful),
104 ;; and CODE is a numeric exit status or a signal description string.
106 ;; For example, after previewing a PostScript file, *Printing Command Output*
107 ;; will have the following entry:
109 ;; /usr/X11R6/bin/gv ("/home/user/example/file.ps")
112 ;; In the example above, the previewing was successful. If during previewing,
113 ;; you quit gv execution (by typing C-g during Emacs session), the log entry
116 ;; /usr/X11R6/bin/gv ("/home/user/example/file.ps")
119 ;; So, if something goes wrong, a good place to take a look is the buffer
120 ;; *Printing Command Output*. Don't forget to see also the buffer *Messages*,
124 ;; Novices (First Users)
125 ;; ---------------------
127 ;; First of all, see printing documentation only to get an idea of what
128 ;; `printing' is capable.
130 ;; Then try to set the variables: `pr-ps-name', `pr-ps-printer-alist',
131 ;; `pr-txt-name', `pr-txt-printer-alist' and `pr-path-alist'. These variables
132 ;; are the main variables for printing processing.
134 ;; Now, please, see these variables documentation deeper. You can do this by
135 ;; typing C-h v pr-ps-name RET (for example) if you already loaded printing
136 ;; package, or by browsing printing.el source file.
138 ;; If the documentation isn't clear or if you find a way to improve the
139 ;; documentation, please, send an email to maintainer. All printing users
142 ;; One way to set variables is by calling `pr-customize', customize all
143 ;; variables and save the customization by future sessions (see Options
144 ;; section). Other way is by coding your settings on Emacs init file (that is,
145 ;; ~/.emacs file), see below for a first setting template that it should be
146 ;; inserted on your ~/.emacs file (or c:/_emacs, if you're using Windows 9x/NT
149 ;; * Example of setting for Windows system:
151 ;; (require 'printing) ; load printing package
152 ;; (setq pr-path-alist
153 ;; '((windows "c:/applications/executables" PATH ghostview mpage)
154 ;; (ghostview "c:/gs/gsview-dir")
155 ;; (mpage "c:/mpage-dir")
157 ;; (setq pr-txt-name 'prt_06a)
158 ;; (setq pr-txt-printer-alist
159 ;; '((prt_06a "print" nil "/D:\\\\printers\\prt_06a")
160 ;; (prt_07c nil nil "/D:\\\\printers\\prt_07c")
161 ;; (PRN "" nil "PRN")
162 ;; (standard "redpr.exe" nil "")
164 ;; (setq pr-ps-name 'lps_06b)
165 ;; (setq pr-ps-printer-alist
166 ;; '((lps_06a "print" nil "/D:" "\\\\printers\\lps_06a")
167 ;; (lps_06b "print" nil nil "\\\\printers\\lps_06b")
168 ;; (lps_07c "print" nil "" "/D:\\\\printers\\lps_07c")
169 ;; (lps_08c nil nil nil "\\\\printers\\lps_08c")
170 ;; (LPT1 "" nil "" "LPT1:")
171 ;; (PRN "" nil "" "PRN")
172 ;; (standard "redpr.exe" nil "" "")
174 ;; (pr-update-menus t) ; update now printer and utility menus
176 ;; * Example of setting for GNU or Unix system:
178 ;; (require 'printing) ; load printing package
179 ;; (setq pr-path-alist
180 ;; '((unix "." "~/bin" ghostview mpage PATH)
181 ;; (ghostview "$HOME/bin/gsview-dir")
182 ;; (mpage "$HOME/bin/mpage-dir")
184 ;; (setq pr-txt-name 'prt_06a)
185 ;; (setq pr-txt-printer-alist
186 ;; '((prt_06a "lpr" nil "prt_06a")
187 ;; (prt_07c nil nil "prt_07c")
189 ;; (setq pr-ps-name 'lps_06b)
190 ;; (setq pr-ps-printer-alist
191 ;; '((lps_06b "lpr" nil "-P" "lps_06b")
192 ;; (lps_07c "lpr" nil nil "lps_07c")
193 ;; (lps_08c nil nil nil "lps_08c")
195 ;; (pr-update-menus t) ; update now printer and utility menus
198 ;; NOTE 1: Don't forget to download and install ghostscript utilities (see
199 ;; Utilities section).
201 ;; NOTE 2: The `printer-name' and `ps-printer-name' variables don't need to be
202 ;; set, as they are implicit set by `pr-ps-printer-alist' and
203 ;; `pr-txt-printer-alist'.
205 ;; NOTE 3: The duplex feature will only work on PostScript printers that
206 ;; support this feature.
207 ;; You can check if your PostScript printer supports duplex feature
208 ;; by checking the printer manual. Or you can try these steps:
209 ;; 1. Open a buffer (or use the *scratch* buffer).
211 ;; First line (on first page)
213 ;; Second line (on second page)
214 ;; 3. Print this buffer with duplex turned on.
215 ;; If it's printed 2 (two) sheets of paper, then your PostScript
216 ;; printer doesn't have duplex feature; otherwise, it's ok, your
217 ;; printer does have duplex feature.
219 ;; NOTE 4: See Tips section.
225 ;; 1. If you have a local printer, that is, a printer which is connected
226 ;; directly to your computer, don't forget to connect the printer to your
227 ;; computer before printing.
229 ;; 2. If you try to print a file and it seems that the file was printed, but
230 ;; there is no paper in the printer, then try to set `pr-delete-temp-file'
231 ;; to nil. Probably `printing' is deleting the temporary file before your
232 ;; local system can get it to send to the printer.
234 ;; 3. Don't try to print a dynamic buffer, that is, a buffer which is
235 ;; modifying while `printing' tries to print. Eventually you got an error
236 ;; message. Instead, save the dynamic buffer to a file or copy it in
237 ;; another buffer and, then, print the file or the new static buffer.
238 ;; An example of dynamic buffer is the *Messages* buffer.
240 ;; 4. When running Emacs on Windows (with or without cygwin), check if your
241 ;; printer is a text printer or not by typing in a DOS window:
243 ;; print /D:\\host\printer somefile.txt
245 ;; Where, `host' is the machine where the printer is directly connected,
246 ;; `printer' is the printer name and `somefile.txt' is a text file.
248 ;; If the printer `\\host\printer' doesn't print the content of
249 ;; `somefile.txt' or, instead, it returns the following message:
251 ;; PostScript Error Handler
252 ;; Offending Command = CCC
255 ;; Where `CCC' is whatever is at the beginning of the text to be printed.
257 ;; Therefore, the printer `\\host\printer' is not a text printer, but a
258 ;; PostScript printer. So, please, don't include this printer in
259 ;; `pr-txt-printer-alist' (which see).
261 ;; 5. You can use gsprint instead of ghostscript to print monochrome PostScript
262 ;; files in Windows. The gsprint utility documentation says that it is more
263 ;; efficient than ghostscript to print monochrome PostScript.
265 ;; To print non-monochrome PostScript file, the efficiency of ghostscript
266 ;; is similar to gsprint.
268 ;; Also the gsprint utility comes together with gsview distribution.
270 ;; For more information about gsprint see
271 ;; `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'.
273 ;; As an example of gsprint declaration:
275 ;; (setq pr-ps-printer-alist
276 ;; '((A "gsprint" ("-all" "-twoup") "-printer " "my-b/w-printer-name")
277 ;; (B "gsprint" ("-all" "-twoup") nil "-printer my-b/w-printer-name")
278 ;; ;; some other printer declaration
281 ;; The example above declares that printer A prints all pages (-all) and two
282 ;; pages per sheet (-twoup). The printer B declaration does the same as the
283 ;; printer A declaration, the only difference is the printer name selection.
285 ;; There are other command line options like:
287 ;; -mono Render in monochrome as 1bit/pixel (only black and white).
288 ;; -grey Render in greyscale as 8bits/pixel.
289 ;; -color Render in color as 24bits/pixel.
291 ;; The default is `-mono'. So, printer A and B in the example above are
292 ;; using implicitly the `-mono' option. Note that in `-mono' no gray tone
293 ;; or color is printed, this includes the zebra stripes, that is, in `-mono'
294 ;; the zebra stripes are not printed.
296 ;; See also documentation for `pr-ps-printer-alist'.
302 ;; To use `printing' insert in your ~/.emacs file (or c:/_emacs, if you're
303 ;; using Windows 9x/NT or MS-DOS):
305 ;; (require 'printing)
306 ;; ;; ...some user settings...
307 ;; (pr-update-menus t)
309 ;; During `pr-update-menus' evaluation:
311 ;; it replaces the Tools/Print menu by Tools/Printing menu.
313 ;; it replaces the File/Print* menu entries by File/Print menu.
314 ;; Please, see section Menu Layout below for menu explanation.
316 ;; To use `printing' utilities you can use the Printing menu options, type M-x
317 ;; followed by one of the commands below, or type a key associated with the
318 ;; command you want (if there is a key binding).
320 ;; `printing' has the following commands:
323 ;; pr-ps-directory-preview
324 ;; pr-ps-directory-using-ghostscript
325 ;; pr-ps-directory-print
326 ;; pr-ps-directory-ps-print
327 ;; pr-ps-buffer-preview
328 ;; pr-ps-buffer-using-ghostscript
329 ;; pr-ps-buffer-print
330 ;; pr-ps-buffer-ps-print
331 ;; pr-ps-region-preview
332 ;; pr-ps-region-using-ghostscript
333 ;; pr-ps-region-print
334 ;; pr-ps-region-ps-print
335 ;; pr-ps-mode-preview
336 ;; pr-ps-mode-using-ghostscript
338 ;; pr-ps-mode-ps-print
339 ;; pr-ps-file-preview
340 ;; pr-ps-file-up-preview
341 ;; pr-ps-file-using-ghostscript
343 ;; pr-ps-file-ps-print
344 ;; pr-ps-file-up-ps-print
346 ;; pr-despool-preview
347 ;; pr-despool-using-ghostscript
349 ;; pr-despool-ps-print
350 ;; pr-printify-directory
351 ;; pr-printify-buffer
352 ;; pr-printify-region
358 ;; pr-toggle-file-duplex
359 ;; pr-toggle-file-tumble
360 ;; pr-toggle-file-landscape
361 ;; pr-toggle-ghostscript
366 ;; pr-toggle-landscape
367 ;; pr-toggle-upside-down
384 ;; The general meanings of above commands are:
387 ;; `pr-interface' buffer interface for printing package.
388 ;; `pr-help' help for printing package.
389 ;; `pr-ps-name' interactively select a PostScript printer.
390 ;; `pr-txt-name' interactively select a text printer.
391 ;; `pr-ps-utility' interactively select a PostScript utility.
392 ;; `pr-show-*-setup' show current settings.
393 ;; `pr-ps-*' deal with PostScript code generation.
394 ;; `pr-txt-*' deal with text generation.
395 ;; `pr-toggle-*' toggle on/off some boolean variable.
396 ;; `pr-despool-*' despool the PostScript spooling buffer.
397 ;; `pr-printify-*' replace nonprintable ASCII by printable ASCII
401 ;; `*-customize' customization.
402 ;; `*-preview' preview a PostScript file.
403 ;; `*-using-ghostscript' use ghostscript to print.
404 ;; `*-fast-fire' fast fire command (see it for documentation).
405 ;; `*-print' send PostScript directly to printer.
406 ;; `*-ps-print' send PostScript directly to printer or use
407 ;; ghostscript to print. It depends on
408 ;; `pr-print-using-ghostscript' option.
411 ;; `*-directory*' process a directory.
412 ;; `*-buffer*' process a buffer.
413 ;; `*-region*' process a region.
414 ;; `*-mode*' process a major mode (see explanation below).
415 ;; `*-file-*' process a PostScript file.
416 ;; `*-file-up-*' process a PostScript file using a filter utility.
418 ;; Here are some examples:
420 ;; `pr-ps-buffer-using-ghostscript'
421 ;; Use ghostscript to print a buffer.
423 ;; `pr-ps-file-print'
424 ;; Print a PostScript file.
427 ;; Toggle spooling buffer.
429 ;; So you can preview through ghostview, use ghostscript to print (if you don't
430 ;; have a PostScript printer) or send directly to printer a PostScript code
431 ;; generated by `ps-print' package.
433 ;; Besides operating one buffer or region each time, you also can postpone
434 ;; previewing or printing by saving the PostScript code generated in a
435 ;; temporary Emacs buffer. This way you can save banner pages between
436 ;; successive printing. You can toggle on/off spooling by invoking
437 ;; `pr-toggle-spool' interactively or through menu bar.
439 ;; If you type, for example:
441 ;; C-u M-x pr-ps-buffer-print RET
443 ;; The `pr-ps-buffer-print' command prompts you for a n-up printing number and
444 ;; a file name, and save the PostScript code generated to the file name instead
445 ;; of sending to printer.
447 ;; This behavior is similar with the commands that deal with PostScript code
448 ;; generation, that is, with `pr-ps-*' and `pr-despool-*' commands. If
449 ;; spooling is on, only `pr-despool-*' commands prompt for a file name and save
450 ;; the PostScript code spooled in this file.
452 ;; Besides the behavior described above, the `*-directory*' commands also
453 ;; prompt for a directory and a file name regexp. So, it's possible to process
454 ;; all or certain files on a directory at once (see also documentation for
455 ;; `pr-list-directory').
457 ;; `printing' has also a special way to handle some major mode through
458 ;; `*-mode*' commands. So it's possible to customize a major mode printing,
459 ;; it's only needed to declare the customization in `pr-mode-alist' (see
460 ;; section Options) and invoke some of `*-mode*' commands. An example for
461 ;; major mode usage is when you're using gnus (or mh, or rmail, etc.) and
462 ;; you're in the *Summary* buffer, if you forget to switch to the *Article*
463 ;; buffer before printing, you'll get a nicely formatted list of article
464 ;; subjects shows up at the printer. With major mode printing you don't need
465 ;; to switch from gnus *Summary* buffer first.
467 ;; Current global keyboard mapping for GNU Emacs is:
469 ;; (global-set-key [print] 'pr-ps-fast-fire)
470 ;; (global-set-key [M-print] 'pr-ps-mode-using-ghostscript)
471 ;; (global-set-key [S-print] 'pr-ps-mode-using-ghostscript)
472 ;; (global-set-key [C-print] 'pr-txt-fast-fire)
473 ;; (global-set-key [C-M-print] 'pr-txt-fast-fire)
475 ;; And for XEmacs is:
477 ;; (global-set-key 'f22 'pr-ps-fast-fire)
478 ;; (global-set-key '(meta f22) 'pr-ps-mode-using-ghostscript)
479 ;; (global-set-key '(shift f22) 'pr-ps-mode-using-ghostscript)
480 ;; (global-set-key '(control f22) 'pr-txt-fast-fire)
481 ;; (global-set-key '(control meta f22) 'pr-txt-fast-fire)
483 ;; As a suggestion of global keyboard mapping for some `printing' commands:
485 ;; (global-set-key "\C-ci" 'pr-interface)
486 ;; (global-set-key "\C-cbp" 'pr-ps-buffer-print)
487 ;; (global-set-key "\C-cbx" 'pr-ps-buffer-preview)
488 ;; (global-set-key "\C-cbb" 'pr-ps-buffer-using-ghostscript)
489 ;; (global-set-key "\C-crp" 'pr-ps-region-print)
490 ;; (global-set-key "\C-crx" 'pr-ps-region-preview)
491 ;; (global-set-key "\C-crr" 'pr-ps-region-using-ghostscript)
497 ;; Below it's shown a brief description of `printing' options, please, see the
498 ;; options declaration in the code for a long documentation.
500 ;; `pr-path-style' Specify which path style to use for external
503 ;; `pr-path-alist' Specify an alist for command paths.
505 ;; `pr-txt-name' Specify a printer for printing a text file.
507 ;; `pr-txt-printer-alist' Specify an alist of all text printers.
509 ;; `pr-ps-name' Specify a printer for printing a PostScript
512 ;; `pr-ps-printer-alist' Specify an alist for all PostScript printers.
514 ;; `pr-temp-dir' Specify a directory for temporary files during
517 ;; `pr-ps-temp-file' Specify PostScript temporary file name prefix.
519 ;; `pr-file-modes' Specify the file permission bits for newly
522 ;; `pr-gv-command' Specify path and name of the gsview/gv
525 ;; `pr-gs-command' Specify path and name of the ghostscript
528 ;; `pr-gs-switches' Specify ghostscript switches.
530 ;; `pr-gs-device' Specify ghostscript device switch value.
532 ;; `pr-gs-resolution' Specify ghostscript resolution switch value.
534 ;; `pr-print-using-ghostscript' Non-nil means print using ghostscript.
536 ;; `pr-faces-p' Non-nil means print with face attributes.
538 ;; `pr-spool-p' Non-nil means spool printing in a buffer.
540 ;; `pr-file-landscape' Non-nil means print PostScript file in
541 ;; landscape orientation.
543 ;; `pr-file-duplex' Non-nil means print PostScript file in duplex
546 ;; `pr-file-tumble' Non-nil means print PostScript file in tumble
549 ;; `pr-auto-region' Non-nil means region is automagically detected.
551 ;; `pr-auto-mode' Non-nil means major-mode specific printing is
552 ;; prefered over normal printing.
554 ;; `pr-mode-alist' Specify an alist for a major-mode and printing
557 ;; `pr-ps-utility' Specify PostScript utility processing.
559 ;; `pr-ps-utility-alist' Specify an alist for PostScript utility
562 ;; `pr-menu-lock' Non-nil means menu is locked while selecting
565 ;; `pr-menu-char-height' Specify menu char height in pixels.
567 ;; `pr-menu-char-width' Specify menu char width in pixels.
569 ;; `pr-setting-database' Specify an alist for settings in general.
571 ;; `pr-visible-entry-list' Specify a list of Printing menu visible
574 ;; `pr-delete-temp-file' Non-nil means delete temporary files.
576 ;; `pr-list-directory' Non-nil means list directory when processing a
579 ;; `pr-buffer-name' Specify the name of the buffer interface for
582 ;; `pr-buffer-name-ignore' Specify a regexp list for buffer names to be
583 ;; ignored in interface buffer.
585 ;; `pr-buffer-verbose' Non-nil means to be verbose when editing a
586 ;; field in interface buffer.
588 ;; To set the above options you may:
590 ;; a) insert the code in your ~/.emacs, like:
592 ;; (setq pr-faces-p t)
594 ;; This way always keep your default settings when you enter a new Emacs
597 ;; b) or use `set-variable' in your Emacs session, like:
599 ;; M-x set-variable RET pr-faces-p RET t RET
601 ;; This way keep your settings only during the current Emacs session.
603 ;; c) or use customization, for example:
604 ;; click on menu-bar *Help* option,
605 ;; then click on *Customize*,
606 ;; then click on *Browse Customization Groups*,
607 ;; expand *PostScript* group,
608 ;; expand *Printing* group
609 ;; and then customize `printing' options.
610 ;; Through this way, you may choose if the settings are kept or not when
611 ;; you leave out the current Emacs session.
613 ;; d) or see the option value:
615 ;; C-h v pr-faces-p RET
617 ;; and click the *customize* hypertext button.
618 ;; Through this way, you may choose if the settings are kept or not when
619 ;; you leave out the current Emacs session.
623 ;; M-x pr-customize RET
625 ;; and then customize `printing' options.
626 ;; Through this way, you may choose if the settings are kept or not when
627 ;; you leave out the current Emacs session.
629 ;; f) or use menu bar, for example:
630 ;; click on menu-bar *File* option,
631 ;; then click on *Printing*,
632 ;; then click on *Customize*,
633 ;; then click on *printing*
634 ;; and then customize `printing' options.
635 ;; Through this way, you may choose if the settings are kept or not when
636 ;; you leave out the current Emacs session.
642 ;; The `printing' menu (Tools/Printing or File/Print) has the following layout:
644 ;; +-----------------------------+
645 ;; A 0 | Printing Interface |
646 ;; +-----------------------------+ +-A---------+ +-B------+
647 ;; I 1 | PostScript Preview >|-------|Directory >|-----|1-up |
648 ;; 2 | PostScript Print >|---- A |Buffer >|-- B |2-up |
649 ;; 3 | PostScript Printer: name >|---- C |Region >|-- B |4-up |
650 ;; +-----------------------------+ |Mode >|-- B |Other...|
651 ;; II 4 | Printify >|-----\ |File >|--\ +--------+
652 ;; 5 | Print >|---\ | |Despool... | |
653 ;; 6 | Text Printer: name >|-\ | | +-----------+ |
654 ;; +-----------------------------+ | | | +---------+ +------------+
655 ;; III 7 |[ ]Landscape | | | \-|Directory| | No Prep... | Ia
656 ;; 8 |[ ]Print Header | | | |Buffer | +------------+ Ib
657 ;; 9 |[ ]Print Header Frame | | | |Region | | name >|- C
658 ;; 10 |[ ]Line Number | | | +---------+ +------------+
659 ;; 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic
660 ;; 12 |[ ]Duplex | | \---|Directory| | 2-up... |
661 ;; 13 |[ ]Tumble | \--\ |Buffer | | 4-up... |
662 ;; 14 |[ ]Upside-Down | | |Region | | Other... |
663 ;; 15 | Print All Pages >|--\ | |Mode | +------------+
664 ;; +-----------------------------+ | | +---------+ |[ ]Landscape| Id
665 ;; IV 16 |[ ]Spool Buffer | | | +-C-------+ |[ ]Duplex | Ie
666 ;; 17 |[ ]Print with faces | | \--|( )name A| |[ ]Tumble | If
667 ;; 18 |[ ]Print via Ghostscript | | |( )name B| +------------+
668 ;; +-----------------------------+ | |... |
669 ;; V 19 |[ ]Auto Region | | |(*)name |
670 ;; 20 |[ ]Auto Mode | | |... |
671 ;; 21 |[ ]Menu Lock | | +---------+ +--------------+
672 ;; +-----------------------------+ \------------------|(*)All Pages |
673 ;; VI 22 | Customize >|--- D +-D------+ |( )Even Pages |
674 ;; 23 | Show Settings >|-------|printing| |( )Odd Pages |
675 ;; 24 | Help | |ps-print| |( )Even Sheets|
676 ;; +-----------------------------+ |lpr | |( )Odd Sheets |
677 ;; +--------+ +--------------+
679 ;; See `pr-visible-entry-list' for hiding some parts of the menu.
681 ;; The menu has the following sections:
685 ;; 0. You can use a buffer interface instead of menus. It looks like the
686 ;; customization buffer. Basically, it has the same options found in the
687 ;; menu and some extra options, all this on a buffer.
689 ;; I. PostScript printing:
691 ;; 1. You can generate a PostScript file (if you type C-u before activating
692 ;; menu) or PostScript temporary file for a directory, a buffer, a region
693 ;; or a major mode, choosing 1-up, 2-up, 4-up or any other n-up printing;
694 ;; after file generation, ghostview is activated using the file generated
695 ;; as argument. This option is disabled if spooling is on (option 16).
696 ;; Also, if you already have a PostScript file you can preview it.
697 ;; Instead of previewing each buffer, region or major mode at once, you
698 ;; can save temporarily the PostScript code generated in a buffer and
699 ;; preview it later. The option `Despool...' despools the PostScript
700 ;; spooling buffer in a temporary file and uses ghostview to preview it.
701 ;; If you type C-u before choosing this option, the PostScript code
702 ;; generated is saved in a file instead of saving in a temporary file.
703 ;; To spool the PostScript code generated you need to turn on the option
704 ;; 16. The option `Despool...' is enabled if spooling is on (option
707 ;; NOTE 1: It's possible to customize a major mode printing, just declare
708 ;; the customization in `pr-mode-alist' and invoke some of
709 ;; `*-mode*' commands or select Mode option in Printing menu. An
710 ;; example for major mode usage is when you're using gnus (or mh,
711 ;; or rmail, etc.) and you're in the *Summary* buffer, if you
712 ;; forget to switch to the *Article* buffer before printing,
713 ;; you'll get a nicely formatted list of article subjects shows
714 ;; up at the printer. With major mode printing you don't need to
715 ;; switch from gnus *Summary* buffer first.
717 ;; NOTE 2: There are the following options for PostScript file
719 ;; Ia. Print the file *No Preprocessing*, that is, send it
720 ;; directly to PostScript printer.
721 ;; Ib. PostScript utility processing selection.
722 ;; See `pr-ps-utility-alist' and `pr-setting-database' for
724 ;; Ic. Do n-up processing before printing.
725 ;; Id. Toggle on/off landscape for PostScript file processing.
726 ;; Ie. Toggle on/off duplex for PostScript file processing.
727 ;; If. Toggle on/off tumble for PostScript file processing.
729 ;; NOTE 3: Don't forget to download and install the utilities declared on
730 ;; `pr-ps-utility-alist'.
732 ;; 2. Operate the same way as option 1, but it sends directly the PostScript
733 ;; code (or put in a file, if you've typed C-u) or it uses ghostscript to
734 ;; print the PostScript file generated. It depends on option 18, if it's
735 ;; turned on, it uses ghostscript; otherwise, it sends directly to
736 ;; printer. If spooling is on (option 16), the PostScript code is saved
737 ;; temporarily in a buffer instead of printing it or saving it in a file.
738 ;; Also, if you already have a PostScript file you can print it. Instead
739 ;; of printing each buffer, region or major mode at once, you can save
740 ;; temporarily the PostScript code generated in a buffer and print it
741 ;; later. The option `Despool...' despools the PostScript spooling
742 ;; buffer directly on a printer. If you type C-u before choosing this
743 ;; option, the PostScript code generated is saved in a file instead of
744 ;; sending to printer. To spool the PostScript code generated you need
745 ;; to turn on the option 16. This option is enabled if spooling is on
746 ;; (option 16). See also the NOTE 1, NOTE 2 and NOTE 3 on option 1.
748 ;; 3. You can select a new PostScript printer to send PostScript code
749 ;; generated. For selection it's used all PostScript printers defined
750 ;; in `pr-ps-printer-alist' variable (see it for documentation).
751 ;; See also `pr-setting-database'.
753 ;; II. Text printing:
755 ;; 4. If you have control characters (character code from \000 to \037) in a
756 ;; buffer and you want to print them in a text printer, select this
757 ;; option. All control characters in your buffer or region will be
758 ;; replaced by a printable representation. The printable representations
759 ;; use ^ (for ASCII control characters) or hex. The characters tab,
760 ;; linefeed, space, return and formfeed are not affected. You don't need
761 ;; to select this option if you use any option of section I, the
762 ;; PostScript engine treats control characters properly.
764 ;; 5. If you want to print a directory, buffer, region or major mode in a
765 ;; text printer, select this option. See also the NOTE 1 on option 1.
767 ;; 6. You can select a new text printer to send text generated. For
768 ;; selection it's used all text printers defined in
769 ;; `pr-txt-printer-alist' variable (see it for documentation).
770 ;; See also `pr-setting-database'.
772 ;; III. PostScript page toggle options:
774 ;; 7. If you want a PostScript landscape printing, turn on this option.
776 ;; 8. If you want to have a header in each page in your PostScript code,
777 ;; turn on this option.
779 ;; 9. If you want to draw a gaudy frame around the header, turn on this
780 ;; option. This option is enabled if print header is on (option 8).
782 ;; 10. If you want that the line number is printed in your PostScript code,
783 ;; turn on this option.
785 ;; 11. If you want background zebra stripes in your PostScript code, turn on
788 ;; 12. If you want a duplex printing and your PostScript printer has this
789 ;; feature, turn on this option.
791 ;; 13. If you turned on duplex printing, you can choose if you want to have
792 ;; a printing suitable for binding on the left or right (tumble off), or
793 ;; to have a printing suitable for binding at top or bottom (tumble on).
794 ;; This option is enabled if duplex is on (option 12).
796 ;; 14. If you want a PostScript upside-down printing, turn on this option.
798 ;; 15. With this option, you can choose if you want to print all pages, odd
799 ;; pages, even pages, odd sheets or even sheets.
800 ;; See also `ps-even-or-odd-pages'.
802 ;; IV. PostScript processing toggle options:
804 ;; 16. If you want to spool the PostScript code generated, turn on this
805 ;; option. To spool the PostScript code generated use option 2. You
806 ;; can despool later by choosing option 1 or 2, sub-option `Despool...'.
808 ;; 17. If you use colors in your buffers and want to see these colors on
809 ;; your PostScript code generated, turn on this option. If you have a
810 ;; black/white PostScript printer, these colors are displayed in gray
811 ;; scale by PostScript printer interpreter.
813 ;; 18. If you don't have a PostScript printer to send PostScript files, turn
814 ;; on this option. When this option is on, the ghostscript is used to
815 ;; print PostScript files. In GNU or Unix system, if ghostscript is set
816 ;; as a PostScript filter, you don't need to turn on this option.
818 ;; V. Printing customization:
820 ;; 19. If you want that region is automagically detected, turn on this
821 ;; option. Note that this will only work if you're using transient mark
822 ;; mode. When this option is on, the `*-buffer*' commands will behave
823 ;; like `*-region*' commands, that is, `*-buffer*' commands will print
824 ;; only the region marked instead of all buffer.
826 ;; 20. Turn this option on if you want that when current major-mode is
827 ;; declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
828 ;; behave like `*-mode*' commands.
830 ;; 21. If you want that Printing menu stays open while you are setting
831 ;; toggle options, turn on this option. The variables
832 ;; `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
833 ;; menu position, so don't forget to adjust these variables if menu
834 ;; position is not ok.
836 ;; VI. Customization:
838 ;; 22. Besides all options in section III, IV and V, you can customize much
839 ;; more PostScript options in `ps-print' option. Or you can customize
840 ;; some `lpr' options for text printing. Or customize `printing'
843 ;; 23. Show current settings for `printing', `ps-print' or `lpr'.
845 ;; 24. Quick help for printing menu layout.
851 ;; Below it's shown only the main options that affect all `printing' package.
852 ;; Check all the settings below *BEFORE* running `printing' commands.
854 ;; * Example of setting for GNU or Unix system:
856 ;; (require 'printing)
857 ;; (setq pr-path-alist
858 ;; '((unix "." "~/bin" ghostview mpage PATH)
859 ;; (ghostview "$HOME/bin/gsview-dir")
860 ;; (mpage "$HOME/bin/mpage-dir")
862 ;; (setq pr-txt-name 'prt_06a)
863 ;; (setq pr-txt-printer-alist
864 ;; '((prt_06a "lpr" nil "prt_06a")
865 ;; (prt_07c nil nil "prt_07c")
867 ;; (setq pr-ps-name 'lps_06b)
868 ;; (setq pr-ps-printer-alist
869 ;; '((lps_06b "lpr" nil "-P" "lps_06b")
870 ;; (lps_07c "lpr" nil nil "lps_07c")
871 ;; (lps_08c nil nil nil "lps_08c")
873 ;; (setq pr-temp-dir "/tmp/")
874 ;; (setq pr-gv-command "gv")
875 ;; (setq pr-gs-command "gs")
876 ;; (setq pr-gs-switches '("-q -dNOPAUSE -I/usr/share/ghostscript/5.10"))
877 ;; (setq pr-gs-device "uniprint")
878 ;; (setq pr-gs-resolution 300)
879 ;; (setq pr-ps-utility 'mpage)
880 ;; (setq pr-ps-utility-alist
881 ;; '((mpage "mpage" nil "-b%s" "-%d" "-l" "-t" "-T" ">" nil)
882 ;; (psnup "psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil
883 ;; (inherits-from: . no-duplex))
885 ;; (setq pr-setting-database
888 ;; (pr-file-duplex . nil)
889 ;; (pr-file-tumble . nil))
891 ;; (pr-update-menus t) ; update now printer and utility menus
893 ;; * Example of setting for Windows system:
895 ;; (require 'printing)
896 ;; (setq pr-path-alist
897 ;; '((windows "c:/applications/executables" PATH ghostview mpage)
898 ;; (ghostview "c:/gs/gsview-dir")
899 ;; (mpage "c:/mpage-dir")
901 ;; (setq pr-txt-name 'prt_06a)
902 ;; (setq pr-txt-printer-alist
903 ;; '((prt_06a "print" nil "/D:\\\\printers\\prt_06a")
904 ;; (prt_07c nil nil "/D:\\\\printers\\prt_07c")
905 ;; (PRN "" nil "PRN")
906 ;; (standard "redpr.exe" nil "")
908 ;; (setq pr-ps-name 'lps_06b)
909 ;; (setq pr-ps-printer-alist
910 ;; '((lps_06a "print" nil "/D:" "\\\\printers\\lps_06a")
911 ;; (lps_06b "print" nil nil "\\\\printers\\lps_06b")
912 ;; (lps_07c "print" nil "" "/D:\\\\printers\\lps_07c")
913 ;; (lps_08c nil nil nil "\\\\printers\\lps_08c")
914 ;; (b/w "gsprint" ("-all" "-twoup") "-printer " "b/w-pr-name")
915 ;; (LPT1 "" nil "" "LPT1:")
916 ;; (PRN "" nil "" "PRN")
917 ;; (standard "redpr.exe" nil "" "")
919 ;; (setq pr-temp-dir "C:/WINDOWS/TEMP/")
920 ;; (setq pr-gv-command "c:/gs/gsview/gsview32.exe")
921 ;; (setq pr-gs-command "c:/gs/gswin32.exe")
922 ;; (setq pr-gs-switches '("-q -dNOPAUSE -Ic:/gs/gs5.50;c:/gs/gs5.50/fonts"))
923 ;; (setq pr-gs-device "mswinpr2")
924 ;; (setq pr-gs-resolution 300)
925 ;; (setq pr-ps-utility 'psnup)
926 ;; (setq pr-ps-utility-alist
927 ;; '((psnup "c:/psutils/psnup" ("-q") "-P%s" "-%d" "-l" nil nil " "
928 ;; nil (inherits-from: . no-duplex))
930 ;; (setq pr-setting-database
933 ;; (pr-file-duplex . nil)
934 ;; (pr-file-tumble . nil))
936 ;; (pr-update-menus t) ; update now printer and utility menus
938 ;; NOTE: Don't forget to download and install the utilities declared on
939 ;; `pr-ps-utility-alist'.
945 ;; `printing' package has the following utilities:
947 ;; `pr-setup' Return the current `printing' setup.
949 ;; `lpr-setup' Return the current `lpr' setup.
951 ;; `pr-update-menus' Update utility, PostScript and text printer menus.
953 ;; `pr-menu-bind' Install `printing' menu in the menubar.
956 ;; Below are some URL where you can find good utilities.
958 ;; * For `printing' package:
960 ;; printing `http://www.emacswiki.org/cgi-bin/emacs/download/printing.el'
961 ;; ps-print `http://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'
963 ;; * For GNU or Unix system:
965 ;; gs, gv `http://www.gnu.org/software/ghostscript/ghostscript.html'
966 ;; enscript `http://people.ssh.fi/mtr/genscript/'
967 ;; psnup `http://www.knackered.org/angus/psutils/'
968 ;; mpage `http://www.mesa.nl/pub/mpage/'
970 ;; * For Windows system:
973 ;; `http://www.gnu.org/software/ghostscript/ghostscript.html'
974 ;; gsprint `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'.
975 ;; enscript `http://people.ssh.fi/mtr/genscript/'
976 ;; psnup `http://gnuwin32.sourceforge.net/packages/psutils.htm'
977 ;; redmon `http://www.cs.wisc.edu/~ghost/redmon/'
983 ;; Thanks to Stefan Monnier <monnier@iro.umontreal.ca> for GNU Emacs and XEmacs
984 ;; printing menu (in `pr-menu-spec') merging suggestion.
986 ;; Thanks to Lennart Borgman <lennart.borgman.073@student.lu.se> for gsprint
987 ;; suggestion (see tip 5 in section Tips).
989 ;; Thanks to Drew Adams <drew.adams@oracle.com> for suggestions:
990 ;; - directory processing.
991 ;; - `pr-path-alist' variable.
993 ;; - a lot of tests on Windows.
995 ;; Thanks to Fred Labrosse <f.labrosse@maths.bath.ac.uk> for XEmacs tests.
997 ;; Thanks to Klaus Berndl <klaus.berndl@sdm.de> for invaluable help/debugging
998 ;; and for suggestions:
999 ;; - even/odd pages printing.
1000 ;; - ghostscript parameters for `pr-ps-printer-alist'.
1001 ;; - default printer name.
1002 ;; - completion functions.
1003 ;; - automagic region detection.
1004 ;; - menu entry hiding.
1005 ;; - fast fire PostScript printing command.
1006 ;; - `pr-path-style' variable.
1008 ;; Thanks to Kim F. Storm <storm@filanet.dk> for beta-test and for suggestions:
1009 ;; - PostScript Print and PostScript Print Preview merge.
1010 ;; - Tools/Printing menu.
1011 ;; - replace *-using-preview by *-using-ghostscript.
1012 ;; - printer selection.
1013 ;; - extra parameters for `pr-ps-printer-alist'.
1016 ;; Frederic Corne <frederic.corne@erli.fr> print-nt.el
1017 ;; Tom Vogels <tov@ece.cmu.edu> mh-e-init.el
1018 ;; Matthew O. Persico <mpersico@erols.com> win32-ps-print.el
1019 ;; Volker Franz <volker.franz@tuebingen.mpg.de> ps-print-interface.el
1020 ;; And to all people who contributed with them.
1023 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1032 (and (string< ps-print-version
"6.6.4")
1033 (error "`printing' requires `ps-print' package version 6.6.4 or later"))
1036 (defconst pr-cygwin-system
1037 (and ps-windows-system
(getenv "OSTYPE")
1038 (string-match "cygwin" (getenv "OSTYPE"))))
1041 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1042 ;; To avoid compilation gripes
1045 (or (fboundp 'subst-char-in-string
) ; hacked from subr.el
1046 (defun subst-char-in-string (fromchar tochar string
&optional inplace
)
1047 "Replace FROMCHAR with TOCHAR in STRING each time it occurs.
1048 Unless optional argument INPLACE is non-nil, return a new string."
1049 (let ((i (length string
))
1050 (newstr (if inplace string
(copy-sequence string
))))
1051 (while (> (setq i
(1- i
)) 0)
1052 (if (eq (aref newstr i
) fromchar
)
1053 (aset newstr i tochar
)))
1057 (or (fboundp 'make-temp-file
) ; hacked from subr.el
1058 (defun make-temp-file (prefix &optional dir-flag suffix
)
1059 "Create a temporary file.
1060 The returned file name (created by appending some random characters at the end
1061 of PREFIX, and expanding against `temporary-file-directory' if necessary),
1062 is guaranteed to point to a newly created empty file.
1063 You can then use `write-region' to write new data into the file.
1065 If DIR-FLAG is non-nil, create a new empty directory instead of a file.
1067 If SUFFIX is non-nil, add that at the end of the file name."
1068 (let ((umask (default-file-modes))
1072 ;; Create temp files with strict access rights. It's easy to
1073 ;; loosen them later, whereas it's impossible to close the
1074 ;; time-window of loose permissions otherwise.
1075 (set-default-file-modes ?
\700)
1076 (while (condition-case ()
1080 (expand-file-name prefix temporary-file-directory
)))
1082 (setq file
(concat file suffix
)))
1084 (make-directory file
)
1085 (write-region "" nil file nil
'silent nil
'excl
))
1087 (file-already-exists t
))
1088 ;; the file was somehow created by someone else between
1089 ;; `make-temp-name' and `write-region', let's try again.
1093 (set-default-file-modes umask
)))))
1097 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1098 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1099 ;; XEmacs Definitions
1103 ((featurep 'xemacs
) ; XEmacs
1105 (defalias 'pr-f-set-keymap-parents
'set-keymap-parents
)
1106 (defalias 'pr-f-set-keymap-name
'set-keymap-name
)
1109 (defun pr-f-read-string (prompt initial history default
)
1110 (let ((str (read-string prompt initial
)))
1111 (if (and str
(not (string= str
"")))
1116 (defvar zmacs-region-stays nil
)
1119 (defun pr-keep-region-active ()
1120 (setq zmacs-region-stays t
))
1123 (defun pr-region-active-p ()
1124 (and pr-auto-region
(not zmacs-region-stays
) (ps-mark-active-p)))
1127 (defun pr-menu-char-height ()
1128 (font-height (face-font 'default
)))
1131 (defun pr-menu-char-width ()
1132 (font-width (face-font 'default
)))
1135 (defmacro pr-xemacs-global-menubar
(&rest body
)
1137 (let ((temp (get-buffer-create (make-temp-name " *Temp"))))
1138 ;; be sure to access global menubar
1141 (kill-buffer temp
))))
1144 (defun pr-global-menubar (pr-menu-spec)
1146 (pr-xemacs-global-menubar
1147 (add-submenu nil
(cons "Printing" pr-menu-spec
) "Apps"))
1148 (setq pr-menu-print-item nil
))
1151 (defvar current-mouse-event nil
)
1152 (defun pr-menu-position (entry index horizontal
)
1156 'x
(- (event-x-pixel current-mouse-event
) ; X
1157 (* horizontal pr-menu-char-width
))
1158 'y
(- (event-y-pixel current-mouse-event
) ; Y
1159 (* (pr-menu-index entry index
) pr-menu-char-height
)))))
1161 (defvar pr-menu-position nil
)
1162 (defvar pr-menu-state nil
)
1165 (defvar current-menubar nil
) ; to avoid compilation gripes
1166 (defun pr-menu-lookup (path)
1167 (car (find-menu-item current-menubar
(cons "Printing" path
))))
1170 (defun pr-menu-lock (entry index horizontal state path
)
1172 (or (and pr-menu-position
(eq state pr-menu-state
))
1173 (setq pr-menu-position
(pr-menu-position entry index horizontal
)
1174 pr-menu-state state
))
1175 (let* ((menu (pr-menu-lookup path
))
1176 (result (get-popup-menu-response menu pr-menu-position
)))
1177 (and (misc-user-event-p result
)
1178 (funcall (event-function result
)
1179 (event-object result
))))
1180 (setq pr-menu-position nil
)))
1183 (defalias 'pr-update-mode-line
'set-menubar-dirty-flag
)
1186 (defvar pr-ps-name-old
"PostScript Printers")
1187 (defvar pr-txt-name-old
"Text Printers")
1188 (defvar pr-ps-utility-old
"PostScript Utility")
1189 (defvar pr-even-or-odd-old
"Print All Pages")
1192 (defun pr-do-update-menus (&optional force
)
1193 (pr-menu-alist pr-ps-printer-alist
1195 'pr-menu-set-ps-title
1197 'pr-ps-printer-menu-modified
1201 (pr-menu-alist pr-txt-printer-alist
1203 'pr-menu-set-txt-title
1205 'pr-txt-printer-menu-modified
1209 (let ((save-var pr-ps-utility-menu-modified
))
1210 (pr-menu-alist pr-ps-utility-alist
1212 'pr-menu-set-utility-title
1213 '("Printing" "PostScript Print" "File")
1218 (pr-menu-alist pr-ps-utility-alist
1220 'pr-menu-set-utility-title
1221 '("Printing" "PostScript Preview" "File")
1222 'pr-ps-utility-menu-modified
1226 (pr-even-or-odd-pages ps-even-or-odd-pages force
))
1229 (defun pr-menu-alist (alist var-sym fun menu-path modified-sym force name
1231 (when (and alist
(or force
(symbol-value modified-sym
)))
1232 (pr-xemacs-global-menubar
1233 (add-submenu menu-path
1234 (pr-menu-create name alist var-sym
1236 (funcall fun
(symbol-value var-sym
))
1237 (set modified-sym nil
)))
1240 (defun pr-relabel-menu-item (newname var-sym
)
1241 (pr-xemacs-global-menubar
1243 (list "Printing" (symbol-value var-sym
))
1245 (set var-sym newname
)))
1248 (defun pr-menu-set-ps-title (value &optional item entry index
)
1249 (pr-relabel-menu-item (format "PostScript Printer: %s" value
)
1251 (pr-ps-set-printer value
)
1253 (pr-menu-lock entry index
12 'toggle nil
)))
1256 (defun pr-menu-set-txt-title (value &optional item entry index
)
1257 (pr-relabel-menu-item (format "Text Printer: %s" value
)
1259 (pr-txt-set-printer value
)
1261 (pr-menu-lock entry index
12 'toggle nil
)))
1264 (defun pr-menu-set-utility-title (value &optional item entry index
)
1265 (pr-xemacs-global-menubar
1266 (let ((newname (format "%s" value
)))
1268 (list "Printing" "PostScript Print" "File" pr-ps-utility-old
)
1271 (list "Printing" "PostScript Preview" "File" pr-ps-utility-old
)
1273 (setq pr-ps-utility-old newname
)))
1274 (pr-ps-set-utility value
)
1276 (pr-menu-lock entry index
5 nil
'("PostScript Print" "File"))))
1279 (defun pr-even-or-odd-pages (value &optional no-lock
)
1280 (pr-relabel-menu-item (cdr (assq value pr-even-or-odd-alist
))
1281 'pr-even-or-odd-old
)
1282 (setq ps-even-or-odd-pages value
)
1284 (pr-menu-lock 'postscript-options
8 12 'toggle nil
)))
1289 )) ; end cond featurep
1293 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1294 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1295 ;; GNU Emacs Definitions
1299 ((featurep 'xemacs
) ; XEmacs
1304 (defalias 'pr-f-set-keymap-parents
'set-keymap-parent
)
1305 (defalias 'pr-f-set-keymap-name
'ignore
)
1306 (defalias 'pr-f-read-string
'read-string
)
1309 (defvar deactivate-mark nil
)
1312 (defun pr-keep-region-active ()
1313 (setq deactivate-mark nil
))
1316 (defun pr-region-active-p ()
1317 (and pr-auto-region transient-mark-mode mark-active
))
1320 (defun pr-menu-char-height ()
1321 (frame-char-height))
1324 (defun pr-menu-char-width ()
1330 ;; Replace existing "print" item by "Printing" item.
1331 ;; If you're changing this file, you'll load it a second,
1332 ;; third... time, but "print" item exists only in the first load.
1336 ((< emacs-major-version
21)
1337 (defun pr-global-menubar (pr-menu-spec)
1338 (easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item
)
1339 (when pr-menu-print-item
1340 (easy-menu-remove-item nil
'("tools") pr-menu-print-item
)
1341 (setq pr-menu-print-item nil
1342 pr-menu-bar
(vector 'menu-bar
'tools
1343 (pr-get-symbol "Printing")))))
1345 ;; GNU Emacs 21 & 22
1347 (defun pr-global-menubar (pr-menu-spec)
1348 (let ((menu-file (if (= emacs-major-version
21)
1349 '("menu-bar" "files") ; GNU Emacs 21
1350 '("menu-bar" "file")))) ; GNU Emacs 22 or higher
1353 (easy-menu-add-item global-map menu-file
1354 (easy-menu-create-menu "Print" pr-menu-spec
)
1356 (dolist (item '("print-buffer" "print-region"
1357 "ps-print-buffer-faces" "ps-print-region-faces"
1358 "ps-print-buffer" "ps-print-region"))
1359 (easy-menu-remove-item global-map menu-file item
))
1360 (setq pr-menu-print-item nil
1361 pr-menu-bar
(vector 'menu-bar
1362 (pr-get-symbol (nth 1 menu-file
))
1363 (pr-get-symbol "Print"))))
1365 (easy-menu-add-item global-map menu-file
1366 (easy-menu-create-menu "Print" pr-menu-spec
)))
1373 ;; GNU Emacs for Windows 9x/NT
1374 (defun pr-menu-position (entry index horizontal
)
1375 (let ((pos (cdr (mouse-pixel-position))))
1377 (list (or (car pos
) 0) ; X
1378 (- (or (cdr pos
) 0) ; Y
1379 (* (pr-menu-index entry index
) pr-menu-char-height
)))
1380 (selected-frame)))) ; frame
1384 (defun pr-menu-position (entry index horizontal
)
1385 (let ((pos (cdr (mouse-pixel-position))))
1387 (list (- (or (car pos
) 0) ; X
1388 (* horizontal pr-menu-char-width
))
1389 (- (or (cdr pos
) 0) ; Y
1390 (* (pr-menu-index entry index
) pr-menu-char-height
)))
1391 (selected-frame)))) ; frame
1394 (defvar pr-menu-position nil
)
1395 (defvar pr-menu-state nil
)
1398 (defun pr-menu-lookup (path)
1399 (lookup-key global-map
1401 (vconcat pr-menu-bar
1402 (mapcar 'pr-get-symbol
1409 (defun pr-menu-lock (entry index horizontal state path
)
1411 (or (and pr-menu-position
(eq state pr-menu-state
))
1412 (setq pr-menu-position
(pr-menu-position entry index horizontal
)
1413 pr-menu-state state
))
1414 (let* ((menu (pr-menu-lookup path
))
1415 (result (x-popup-menu pr-menu-position menu
)))
1417 (let ((command (lookup-key menu
(vconcat result
))))
1418 (if (fboundp command
)
1421 (setq pr-menu-position nil
)))
1424 (defalias 'pr-update-mode-line
'force-mode-line-update
)
1427 (defun pr-do-update-menus (&optional force
)
1428 (pr-menu-alist pr-ps-printer-alist
1430 'pr-menu-set-ps-title
1431 "PostScript Printers"
1432 'pr-ps-printer-menu-modified
1434 "PostScript Printers"
1436 (pr-menu-alist pr-txt-printer-alist
1438 'pr-menu-set-txt-title
1440 'pr-txt-printer-menu-modified
1444 (let ((save-var pr-ps-utility-menu-modified
))
1445 (pr-menu-alist pr-ps-utility-alist
1447 'pr-menu-set-utility-title
1448 '("PostScript Print" "File" "PostScript Utility")
1451 "PostScript Utility"
1453 (pr-menu-alist pr-ps-utility-alist
1455 'pr-menu-set-utility-title
1456 '("PostScript Preview" "File" "PostScript Utility")
1457 'pr-ps-utility-menu-modified
1459 "PostScript Utility"
1461 (pr-even-or-odd-pages ps-even-or-odd-pages force
))
1464 (defun pr-menu-get-item (name-list)
1465 ;; NAME-LIST is a string or a list of strings.
1466 (or (listp name-list
)
1467 (setq name-list
(list name-list
)))
1469 (let* ((reversed (reverse name-list
))
1470 (name (pr-get-symbol (car reversed
)))
1471 (path (nreverse (cdr reversed
)))
1474 (vconcat pr-menu-bar
1475 (mapcar 'pr-get-symbol path
)))))
1476 (assq name
(nthcdr 2 menu
)))))
1479 (defvar pr-temp-menu nil
)
1482 (defun pr-menu-alist (alist var-sym fun menu-path modified-sym force name
1484 (when (and alist
(or force
(symbol-value modified-sym
)))
1485 (easy-menu-define pr-temp-menu nil
""
1486 (pr-menu-create name alist var-sym fun entry index
))
1487 (let ((item (pr-menu-get-item menu-path
)))
1489 (let* ((binding (nthcdr 3 item
))
1490 (key-binding (cdr binding
)))
1491 (setcar binding pr-temp-menu
)
1492 (and key-binding
(listp (car key-binding
))
1493 (setcdr binding
(cdr key-binding
))) ; skip KEY-BINDING
1494 (funcall fun
(symbol-value var-sym
) item
))))
1495 (set modified-sym nil
)))
1498 (defun pr-menu-set-item-name (item name
)
1500 (setcar (nthcdr 2 item
) name
))) ; ITEM-NAME
1503 (defun pr-menu-set-ps-title (value &optional item entry index
)
1504 (pr-menu-set-item-name (or item
1505 (pr-menu-get-item "PostScript Printers"))
1506 (format "PostScript Printer: %s" value
))
1507 (pr-ps-set-printer value
)
1509 (pr-menu-lock entry index
12 'toggle nil
)))
1512 (defun pr-menu-set-txt-title (value &optional item entry index
)
1513 (pr-menu-set-item-name (or item
1514 (pr-menu-get-item "Text Printers"))
1515 (format "Text Printer: %s" value
))
1516 (pr-txt-set-printer value
)
1518 (pr-menu-lock entry index
12 'toggle nil
)))
1521 (defun pr-menu-set-utility-title (value &optional item entry index
)
1522 (let ((name (symbol-name value
)))
1524 (pr-menu-set-item-name item name
)
1525 (pr-menu-set-item-name
1527 '("PostScript Print" "File" "PostScript Utility"))
1529 (pr-menu-set-item-name
1531 '("PostScript Preview" "File" "PostScript Utility"))
1533 (pr-ps-set-utility value
)
1535 (pr-menu-lock entry index
5 nil
'("PostScript Print" "File"))))
1538 (defun pr-even-or-odd-pages (value &optional no-lock
)
1539 (pr-menu-set-item-name (pr-menu-get-item "Print All Pages")
1540 (cdr (assq value pr-even-or-odd-alist
)))
1541 (setq ps-even-or-odd-pages value
)
1543 (pr-menu-lock 'postscript-options
8 12 'toggle nil
)))
1545 )) ; end cond featurep
1548 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1549 ;; Customization Functions
1552 (defun pr-alist-custom-set (symbol value
)
1553 "Set the value of custom variables for printer & utility selection."
1555 (and (featurep 'printing
) ; update only after printing is loaded
1556 (pr-update-menus t
)))
1559 (defun pr-ps-utility-custom-set (symbol value
)
1560 "Update utility menu entry."
1562 (and (featurep 'printing
) ; update only after printing is loaded
1563 (pr-menu-set-utility-title value
)))
1566 (defun pr-ps-name-custom-set (symbol value
)
1567 "Update `PostScript Printer:' menu entry."
1569 (and (featurep 'printing
) ; update only after printing is loaded
1570 (pr-menu-set-ps-title value
)))
1573 (defun pr-txt-name-custom-set (symbol value
)
1574 "Update `Text Printer:' menu entry."
1576 (and (featurep 'printing
) ; update only after printing is loaded
1577 (pr-menu-set-txt-title value
)))
1580 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1581 ;; User Interface (I)
1584 (defgroup printing nil
1585 "Printing Utilities group."
1586 :tag
"Printing Utilities"
1587 :link
'(emacs-library-link :tag
"Source Lisp File" "printing.el")
1594 (defcustom pr-path-style
1595 (if (and (not pr-cygwin-system
)
1599 "*Specify which path style to use for external commands.
1603 windows Windows 9x/NT style (\\)
1605 unix Unix style (/)"
1606 :type
'(choice :tag
"Path style"
1607 (const :tag
"Windows 9x/NT Style (\\)" :value windows
)
1608 (const :tag
"Unix Style (/)" :value unix
))
1613 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1614 ;; Internal Functions (I)
1617 (defun pr-dosify-file-name (path)
1618 "Replace unix-style directory separator character with dos/windows one."
1619 (interactive "sPath: ")
1620 (if (eq pr-path-style
'windows
)
1621 (subst-char-in-string ?
/ ?
\\ path
)
1625 (defun pr-unixify-file-name (path)
1626 "Replace dos/windows-style directory separator character with unix one."
1627 (interactive "sPath: ")
1628 (if (eq pr-path-style
'windows
)
1629 (subst-char-in-string ?
\\ ?
/ path
)
1633 (defun pr-standard-file-name (path)
1634 "Ensure the proper directory separator depending on the OS.
1635 That is, if Emacs is running on DOS/Windows, ensure dos/windows-style directory
1636 separator; otherwise, ensure unix-style directory separator."
1637 (if (or pr-cygwin-system ps-windows-system
)
1638 (subst-char-in-string ?
/ ?
\\ path
)
1639 (subst-char-in-string ?
\\ ?
/ path
)))
1642 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1643 ;; User Interface (II)
1646 (defcustom pr-path-alist
1650 "*Specify an alist for command paths.
1652 It's used to find commands used for printing package, like gv, gs, gsview.exe,
1653 mpage, print.exe, etc. See also `pr-command' function.
1655 Each element has the form:
1657 (ENTRY DIRECTORY...)
1661 ENTRY It's a symbol, used to identify this entry.
1662 There must exist at least one of the following entries:
1664 unix this entry is used when Emacs is running on GNU or
1667 cygwin this entry is used when Emacs is running on Windows
1668 95/98/NT/2000 with Cygwin.
1670 windows this entry is used when Emacs is running on Windows
1673 DIRECTORY It should be a string or a symbol. If it's a symbol, it should
1674 exist an equal entry in `pr-path-alist'. If it's a string,
1675 it's considered a directory specification.
1677 The directory specification may contain:
1678 $var environment variable expansion
1680 ./ current directory
1681 ../ previous directory
1683 For example, let's say the home directory is /home/my and the
1684 current directory is /home/my/dir, so:
1686 THE ENTRY IS EXPANDED TO
1687 ~/entry /home/my/entry
1688 ./entry /home/my/dir/entry
1689 ../entry /home/my/entry
1690 $HOME/entry /home/my/entry
1691 $HOME/~/other/../my/entry /home/my/entry
1693 SPECIAL SYMBOL: If the symbol `PATH' is used in the directory
1694 list and there isn't a `PATH' entry in `pr-path-alist' or the
1695 `PATH' entry has a null directory list, the PATH environment
1700 * On GNU or Unix system:
1702 '((unix \".\" \"~/bin\" ghostview mpage PATH)
1703 (ghostview \"$HOME/bin/gsview-dir\")
1704 (mpage \"$HOME/bin/mpage-dir\")
1707 * On Windows system:
1709 '((windows \"c:/applications/executables\" PATH ghostview mpage)
1710 (ghostview \"c:/gs/gsview-dir\")
1711 (mpage \"c:/mpage-dir\")
1715 (symbol :tag
"Identifier ")
1716 (repeat :tag
"Directory List"
1717 (choice :menu-tag
"Directory"
1720 (symbol :value symbol
)))))
1725 (defcustom pr-txt-name
'default
1726 "*Specify a printer for printing a text file.
1728 The printer name symbol should be defined on `pr-txt-printer-alist' (see it for
1731 This variable should be modified by customization engine. If this variable is
1732 modified by other means (for example, a lisp function), use `pr-update-menus'
1733 function (see it for documentation) to update text printer menu."
1735 :set
'pr-txt-name-custom-set
1740 (defcustom pr-txt-printer-alist
1741 (list (list 'default lpr-command nil
1742 (cond ((boundp 'printer-name
) printer-name
)
1743 (ps-windows-system "PRN")
1747 ;; * On GNU or Unix system:
1748 ;; '((prt_06a "lpr" nil "prt_06a")
1749 ;; (prt_07c nil nil "prt_07c")
1751 ;; * On Windows system:
1752 ;; '((prt_06a "print" nil "/D:\\\\printers\\prt_06a")
1753 ;; (prt_07c nil nil "/D:\\\\printers\\prt_07c")
1754 ;; (PRN "" nil "PRN")
1755 ;; (standard "redpr.exe" nil "")
1757 "*Specify an alist of all text printers (text printer database).
1759 The alist element has the form:
1761 (SYMBOL COMMAND SWITCHES NAME)
1765 SYMBOL It's a symbol to identify a text printer. It's for
1766 `pr-txt-name' variable setting and for menu selection.
1771 COMMAND Name of the program for printing a text file. On MS-DOS and
1772 MS-Windows systems, if the value is an empty string, then Emacs
1773 will write directly to the printer port given by NAME (see text
1774 below), that is, the NAME should be something like \"PRN\" or
1776 If NAME is something like \"\\\\\\\\host\\\\share-name\" then
1777 COMMAND shouldn't be an empty string.
1778 The programs `print' and `nprint' (the standard print programs
1779 on Windows NT and Novell Netware respectively) are handled
1780 specially, using NAME as the destination for output; any other
1781 program is treated like `lpr' except that an explicit filename
1782 is given as the last argument.
1783 If COMMAND is nil, it's used the default printing program:
1784 `print' for Windows system, `lp' for lp system and `lpr' for
1785 all other systems. See also `pr-path-alist'.
1791 SWITCHES List of sexp's to pass as extra options for text printer
1792 program. It is recommended to set NAME (see text below)
1793 instead of including an explicit switch on this list.
1799 NAME A string that specifies a text printer name.
1800 On Unix-like systems, a string value should be a name
1801 understood by lpr's -P option (or lp's -d option).
1802 On MS-DOS and MS-Windows systems, it is the name of a printer
1803 device or port. Typical non-default settings would be \"LPT1:\"
1804 to \"LPT3:\" for parallel printers, or \"COM1\" to \"COM4\" or
1805 \"AUX\" for serial printers, or \"\\\\\\\\hostname\\\\printer\"
1806 (or \"/D:\\\\\\\\hostname\\\\printer\") for a shared network
1807 printer. You can also set it to a name of a file, in which
1808 case the output gets appended to that file. If you want to
1809 discard the printed output, set this to \"NUL\".
1812 \"/D:\\\\\\\\host\\\\share-name\"
1819 This variable should be modified by customization engine. If this variable is
1820 modified by other means (for example, a lisp function), use `pr-update-menus'
1821 function (see it for documentation) to update text printer menu.
1825 * On GNU or Unix system:
1827 '((prt_06a \"lpr\" nil \"prt_06a\")
1828 (prt_07c nil nil \"prt_07c\")
1831 * On Windows system:
1833 '((prt_06a \"print\" nil \"/D:\\\\\\\\printers\\\\prt_06a\")
1834 (prt_07c nil nil \"/D:\\\\\\\\printers\\\\prt_07c\")
1835 (PRN \"\" nil \"PRN\")
1836 (standard \"redpr.exe\" nil \"\")
1841 * Information about the print command (print.exe)
1842 `http://www.computerhope.com/printhlp.htm'
1844 * RedMon - Redirection Port Monitor (redpr.exe)
1845 `http://www.cs.wisc.edu/~ghost/redmon/index.htm'
1847 * Redirection Port Monitor (redpr.exe on-line help)
1848 `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'
1850 * UNIX man pages: lpr (or type `man lpr')
1851 `http://bama.ua.edu/cgi-bin/man-cgi?lpr'
1852 `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr'
1854 * UNIX man pages: lp (or type `man lp')
1855 `http://bama.ua.edu/cgi-bin/man-cgi?lp'
1856 `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp'
1859 (list :tag
"Text Printer"
1860 (symbol :tag
"Printer Symbol Name")
1861 (string :tag
"Printer Command")
1862 (repeat :tag
"Printer Switches"
1863 (sexp :tag
"Switch" :value
""))
1864 (choice :menu-tag
"Printer Name"
1866 (const :tag
"None" nil
)
1868 :set
'pr-alist-custom-set
1873 (defcustom pr-ps-name
'default
1874 "*Specify a printer for printing a PostScript file.
1876 This printer name symbol should be defined on `pr-ps-printer-alist' (see it for
1879 This variable should be modified by customization engine. If this variable is
1880 modified by other means (for example, a lisp function), use `pr-update-menus'
1881 function (see it for documentation) to update PostScript printer menu."
1883 :set
'pr-ps-name-custom-set
1888 (defcustom pr-ps-printer-alist
1889 (list (list 'default lpr-command nil
1890 (cond (ps-windows-system nil
)
1893 (or (getenv "PRINTER") (getenv "LPDEST") ps-printer-name
)))
1895 ;; * On GNU or Unix system:
1896 ;; '((lps_06b "lpr" nil "-P" "lps_06b")
1897 ;; (lps_07c "lpr" nil nil "lps_07c")
1898 ;; (lps_08c nil nil nil "lps_08c")
1900 ;; * On Windows system:
1901 ;; '((lps_06a "print" nil "/D:" "\\\\printers\\lps_06a")
1902 ;; (lps_06b "print" nil nil "\\\\printers\\lps_06b")
1903 ;; (lps_07c "print" nil "" "/D:\\\\printers\\lps_07c")
1904 ;; (lps_08c nil nil nil "\\\\printers\\lps_08c")
1905 ;; (b/w "gsprint" ("-all" "-twoup") "-printer " "b/w-pr-name")
1906 ;; (LPT1 "" nil "" "LPT1:")
1907 ;; (PRN "" nil "" "PRN")
1908 ;; (standard "redpr.exe" nil "" "")
1910 "*Specify an alist for all PostScript printers (PostScript printer database).
1912 The alist element has the form:
1914 (SYMBOL COMMAND SWITCHES PRINTER-SWITCH NAME DEFAULT...)
1918 SYMBOL It's a symbol to identify a PostScript printer. It's for
1919 `pr-ps-name' variable setting and for menu selection.
1924 COMMAND Name of the program for printing a PostScript file. On MS-DOS
1925 and MS-Windows systems, if the value is an empty string then
1926 Emacs will write directly to the printer port given by NAME
1927 (see text below), that is, the NAME should be something like
1928 \"PRN\" or \"LPT1:\".
1929 If NAME is something like \"\\\\\\\\host\\\\share-name\" then
1930 COMMAND shouldn't be an empty string.
1931 The programs `print' and `nprint' (the standard print programs
1932 on Windows NT and Novell Netware respectively) are handled
1933 specially, using NAME as the destination for output; any other
1934 program is treated like `lpr' except that an explicit filename
1935 is given as the last argument.
1936 If COMMAND is nil, it's used the default printing program:
1937 `print' for Windows system, `lp' for lp system and `lpr' for
1938 all other systems. See also `pr-path-alist'.
1946 SWITCHES List of sexp's to pass as extra options for PostScript printer
1947 program. It is recommended to set NAME (see text below)
1948 instead of including an explicit switch on this list.
1955 '(\"-all\" \"-twoup\")
1957 PRINTER-SWITCH A string that specifies PostScript printer name switch. If
1958 it's necessary to have a space between PRINTER-SWITCH and NAME,
1959 it should be inserted at the end of PRINTER-SWITCH string.
1960 If PRINTER-SWITCH is nil, it's used the default printer name
1961 switch: `/D:' for Windows system, `-d' for lp system and `-P'
1962 for all other systems.
1976 NAME A string that specifies a PostScript printer name.
1977 On Unix-like systems, a string value should be a name
1978 understood by lpr's -P option (or lp's -d option).
1979 On MS-DOS and MS-Windows systems, it is the name of a printer
1980 device or port. Typical non-default settings would be \"LPT1:\"
1981 to \"LPT3:\" for parallel printers, or \"COM1\" to \"COM4\" or
1982 \"AUX\" for serial printers, or \"\\\\\\\\hostname\\\\printer\"
1983 (or \"/D:\\\\\\\\hostname\\\\printer\") for a shared network
1984 printer. You can also set it to a name of a file, in which
1985 case the output gets appended to that file. If you want to
1986 discard the printed output, set this to \"NUL\".
1989 \"\\\\\\\\host\\\\share-name\"
1991 . for print.exe or gsprint.exe
1992 \"/D:\\\\\\\\host\\\\share-name\"
1993 \"\\\\\\\\host\\\\share-name\"
2000 DEFAULT It's a way to set default values when this entry is selected.
2005 Which associates VARIABLE with VALUE. When this entry is
2006 selected, it's executed the following command:
2008 (set VARIABLE (eval VALUE))
2010 Note that VALUE can be any valid lisp expression. So, don't
2011 forget to quote symbols and constant lists.
2012 If VARIABLE is the special keyword `inherits-from:', VALUE must
2013 be a symbol name setting defined in `pr-setting-database' from
2014 which the current setting inherits the context. Take care with
2015 circular inheritance.
2017 '(ps-landscape-mode . nil)
2018 '(ps-spool-duplex . t)
2019 '(pr-gs-device . (my-gs-device t))
2021 This variable should be modified by customization engine. If this variable is
2022 modified by other means (for example, a lisp function), use `pr-update-menus'
2023 function (see it for documentation) to update PostScript printer menu.
2027 * On GNU or Unix system:
2029 '((lps_06b \"lpr\" nil \"-P\" \"lps_06b\")
2030 (lps_07c \"lpr\" nil nil \"lps_07c\")
2031 (lps_08c nil nil nil \"lps_08c\")
2034 * On Windows system:
2036 '((lps_06a \"print\" nil \"/D:\" \"\\\\\\\\printers\\\\lps_06a\")
2037 (lps_06b \"print\" nil nil \"\\\\\\\\printers\\\\lps_06b\")
2038 (lps_07c \"print\" nil \"\" \"/D:\\\\\\\\printers\\\\lps_07c\")
2039 (lps_08c nil nil nil \"\\\\\\\\printers\\\\lps_08c\")
2040 (b/w1 \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"b/w-pr-name\")
2041 (b/w2 \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer \\\\\\\\printers\\\\lps_06a\")
2042 (LPT1 \"\" nil \"\" \"LPT1:\")
2043 (PRN \"\" nil \"\" \"PRN\")
2044 (standard \"redpr.exe\" nil \"\" \"\")
2050 You can use gsprint instead of ghostscript to print monochrome PostScript files
2051 in Windows. The gsprint utility documentation says that it is more efficient
2052 than ghostscript to print monochrome PostScript.
2054 To print non-monochrome PostScript file, the efficiency of ghostscript is
2057 Also the gsprint utility comes together with gsview distribution.
2059 As an example of gsprint declaration:
2061 (setq pr-ps-printer-alist
2062 '((A \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"lps_015\")
2063 (B \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer lps_015\")
2064 ;; some other printer declaration
2067 The example above declares that printer A prints all pages (-all) and two pages
2068 per sheet (-twoup). The printer B declaration does the same as the printer A
2069 declaration, the only difference is the printer name selection.
2071 There are other command line options like:
2073 -mono Render in monochrome as 1bit/pixel (only black and white).
2074 -grey Render in greyscale as 8bits/pixel.
2075 -color Render in color as 24bits/pixel.
2077 The default is `-mono'. So, printer A and B in the example above are using
2078 implicitly the `-mono' option. Note that in `-mono' no gray tone or color is
2079 printed, this includes the zebra stripes, that is, in `-mono' the zebra stripes
2085 * GSPRINT - Ghostscript print to Windows printer
2086 `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'
2088 * Introduction to Ghostscript
2089 `http://www.cs.wisc.edu/~ghost/doc/intro.htm'
2091 * How to use Ghostscript
2092 `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
2094 * Information about the print command (print.exe)
2095 `http://www.computerhope.com/printhlp.htm'
2097 * RedMon - Redirection Port Monitor (redpr.exe)
2098 `http://www.cs.wisc.edu/~ghost/redmon/index.htm'
2100 * Redirection Port Monitor (redpr.exe on-line help)
2101 `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'
2103 * UNIX man pages: lpr (or type `man lpr')
2104 `http://bama.ua.edu/cgi-bin/man-cgi?lpr'
2105 `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr'
2107 * UNIX man pages: lp (or type `man lp')
2108 `http://bama.ua.edu/cgi-bin/man-cgi?lp'
2109 `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp'
2111 * GNU utilities for Win32 (cp.exe)
2112 `http://unxutils.sourceforge.net/'
2116 :tag
"PostScript Printer"
2117 (symbol :tag
"Printer Symbol Name")
2118 (string :tag
"Printer Command")
2119 (repeat :tag
"Printer Switches"
2120 (sexp :tag
"Switch" :value
""))
2121 (choice :menu-tag
"Printer Name Switch"
2122 :tag
"Printer Name Switch"
2123 (const :tag
"None" nil
)
2125 (choice :menu-tag
"Printer Name"
2127 (const :tag
"None" nil
)
2130 :tag
"Default Value List"
2135 :menu-tag
"Variable"
2137 (const :tag
"Landscape" ps-landscape-mode
)
2138 (const :tag
"Print Header" ps-print-header
)
2139 (const :tag
"Print Header Frame" ps-print-header-frame
)
2140 (const :tag
"Line Number" ps-line-number
)
2141 (const :tag
"Zebra Stripes" ps-zebra-stripes
)
2142 (const :tag
"Duplex" ps-spool-duplex
)
2143 (const :tag
"Tumble" ps-spool-tumble
)
2144 (const :tag
"Upside-Down" ps-print-upside-down
)
2145 (const :tag
"PS File Landscape" pr-file-landscape
)
2146 (const :tag
"PS File Duplex" pr-file-duplex
)
2147 (const :tag
"PS File Tumble" pr-file-tumble
)
2148 (const :tag
"Auto Region" pr-auto-region
)
2149 (const :tag
"Auto Mode" pr-auto-mode
)
2150 (const :tag
"Ghostscript Device" pr-gs-device
)
2151 (const :tag
"Ghostscript Resolution" pr-gs-resolution
)
2152 (const :tag
"inherits-from:" inherits-from
:)
2153 (variable :tag
"Other"))
2154 (sexp :tag
"Value")))
2156 :set
'pr-alist-custom-set
2161 (defcustom pr-temp-dir
2162 (pr-dosify-file-name
2163 (if (boundp 'temporary-file-directory
)
2164 (symbol-value 'temporary-file-directory
)
2165 ;; hacked from `temporary-file-directory' variable in files.el
2166 (file-name-as-directory
2167 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
2168 (cond (ps-windows-system "c:/temp")
2169 ((memq system-type
'(vax-vms axp-vms
)) "SYS$SCRATCH:")
2172 "*Specify a directory for temporary files during printing.
2174 See also `pr-ps-temp-file' and `pr-file-modes'."
2175 :type
'(directory :tag
"Temporary Directory")
2180 (defcustom pr-ps-temp-file
"prspool-"
2181 "*Specify PostScript temporary file name prefix.
2183 See also `pr-temp-dir' and `pr-file-modes'."
2184 :type
'(file :tag
"PostScript Temporary File Name")
2189 ;; It uses 0600 as default instead of (default-file-modes).
2190 ;; So, by default, only the session owner have permission to deal with files
2191 ;; generated by `printing'.
2192 (defcustom pr-file-modes ?
\600
2193 "*Specify the file permission bits for newly created files.
2195 It should be an integer; only the low 9 bits are used.
2197 See also `pr-temp-dir' and `pr-ps-temp-file'."
2198 :type
'(integer :tag
"File Permission Bits")
2203 (defcustom pr-gv-command
2204 (if ps-windows-system
2207 "*Specify path and name of the gsview/gv utility.
2209 See also `pr-path-alist'.
2214 `http://www.gnu.org/software/gv/manual/gv.html'
2217 `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm'
2219 * GSview Help - Common Problems
2220 `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm#Common_Problems'
2222 * GSview Readme (compilation & installation)
2223 `http://www.cs.wisc.edu/~ghost/gsview/Readme.htm'
2225 * GSview (main site)
2226 `http://www.cs.wisc.edu/~ghost/gsview/index.htm'
2228 * Ghostscript, Ghostview and GSview
2229 `http://www.cs.wisc.edu/~ghost/'
2232 `http://www.cs.wisc.edu/~ghost/gv/index.htm'
2235 `http://www.cs.wisc.edu/~ghost/gv/gv_doc/gv.html'
2238 `http://www.cs.wisc.edu/~ghost/macos/index.htm'
2240 :type
'(string :tag
"Ghostview Utility")
2245 (defcustom pr-gs-command
2246 (if ps-windows-system
2249 "*Specify path and name of the ghostscript utility.
2251 See also `pr-path-alist'.
2255 * Ghostscript, Ghostview and GSview
2256 `http://www.cs.wisc.edu/~ghost/'
2258 * Introduction to Ghostscript
2259 `http://www.cs.wisc.edu/~ghost/doc/intro.htm'
2261 * How to use Ghostscript
2262 `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
2264 * Printer compatibility
2265 `http://www.cs.wisc.edu/~ghost/doc/printer.htm'
2267 :type
'(string :tag
"Ghostscript Utility")
2272 (defcustom pr-gs-switches
2273 (if ps-windows-system
2274 '("-q -dNOPAUSE -Ic:/gs/gs5.50;c:/gs/gs5.50/fonts")
2275 '("-q -dNOPAUSE -I/usr/share/ghostscript/5.10"))
2276 "*Specify ghostscript switches. See the documentation on GS for more info.
2278 It's a list of strings, where each string is one or more ghostscript switches.
2280 A note on the gs switches:
2283 -dNOPAUSE don't wait for user intervention
2284 -Ic:/gs/gs5.50;c:/gs/gs5.50/fonts the directories needed for gs
2285 -c quit it's added at the end to terminate gs
2287 To see ghostscript documentation for more information:
2289 * On GNU or Unix system:
2290 - for full documentation, type: man gs
2291 - for brief documentation, type: gs -h
2293 * On Windows system:
2294 - for full documentation, see in a browser the file
2295 c:/gstools/gs5.50/index.html, that is, the file index.html which is
2296 located in the same directory as gswin32.exe.
2297 - for brief documentation, type: gswin32.exe -h
2301 * Introduction to Ghostscript
2302 `http://www.cs.wisc.edu/~ghost/doc/intro.htm'
2304 * How to use Ghostscript
2305 `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
2307 * Printer compatibility
2308 `http://www.cs.wisc.edu/~ghost/doc/printer.htm'
2310 :type
'(repeat (string :tag
"Ghostscript Switch"))
2315 (defcustom pr-gs-device
2316 (if ps-windows-system
2319 "*Specify the ghostscript device switch value (-sDEVICE=).
2321 A note on the gs switches:
2323 -sDEVICE=djet500 the printer - works with HP DeskJet 540
2325 See `pr-gs-switches' for documentation.
2326 See also `pr-ps-printer-alist'."
2327 :type
'(string :tag
"Ghostscript Device")
2332 (defcustom pr-gs-resolution
300
2333 "*Specify ghostscript resolution switch value (-r).
2335 A note on the gs switches:
2337 -r300 resolution 300x300
2339 See `pr-gs-switches' for documentation.
2340 See also `pr-ps-printer-alist'."
2341 :type
'(integer :tag
"Ghostscript Resolution")
2346 (defcustom pr-print-using-ghostscript nil
2347 "*Non-nil means print using ghostscript.
2349 This is useful if you don't have a PostScript printer, so you could use the
2350 ghostscript to print a PostScript file.
2352 In GNU or Unix system, if ghostscript is set as a PostScript filter, this
2353 variable should be nil."
2359 (defcustom pr-faces-p nil
2360 "*Non-nil means print with face attributes."
2366 (defcustom pr-spool-p nil
2367 "*Non-nil means spool printing in a buffer."
2373 (defcustom pr-file-landscape nil
2374 "*Non-nil means print PostScript file in landscape orientation."
2380 (defcustom pr-file-duplex nil
2381 "*Non-nil means print PostScript file in duplex mode."
2387 (defcustom pr-file-tumble nil
2388 "*Non-nil means print PostScript file in tumble mode.
2390 If tumble is off, produces a printing suitable for binding on the left or
2392 If tumble is on, produces a printing suitable for binding at the top or
2399 (defcustom pr-auto-region t
2400 "*Non-nil means region is automagically detected.
2402 Note that this will only work if you're using transient mark mode.
2404 When this variable is non-nil, the `*-buffer*' commands will behave like
2405 `*-region*' commands, that is, `*-buffer*' commands will print only the region
2406 marked instead of all buffer."
2412 (defcustom pr-auto-mode t
2413 "*Non-nil means major-mode specific printing is prefered over normal printing.
2415 That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*'
2416 and `*-region*' commands will behave like `*-mode*' commands; otherwise,
2417 `*-buffer*' commands will print the current buffer and `*-region*' commands
2418 will print the current region."
2424 (defcustom pr-mode-alist
2425 '((mh-folder-mode ; mh summary buffer
2426 pr-mh-lpr-1 pr-mh-print-1
2428 (ps-article-author ps-article-subject
)
2429 ("/pagenumberstring load" pr-article-date
)
2432 (mh-letter-mode ; mh letter buffer
2433 pr-mh-lpr-2 pr-mh-print-2
2435 (ps-article-author ps-article-subject
)
2436 ("/pagenumberstring load" pr-article-date
)
2439 (rmail-summary-mode ; rmail summary buffer
2440 pr-rmail-lpr pr-rmail-print
2442 (ps-article-subject ps-article-author buffer-name
)
2446 (rmail-mode ; rmail buffer
2447 pr-rmail-lpr pr-rmail-print
2449 (ps-article-subject ps-article-author buffer-name
)
2453 (gnus-summary-mode ; gnus summary buffer
2454 pr-gnus-lpr pr-gnus-print
2456 (ps-article-subject ps-article-author gnus-newsgroup-name
)
2460 (gnus-article-mode ; gnus article buffer
2461 pr-gnus-lpr pr-gnus-print
2463 (ps-article-subject ps-article-author gnus-newsgroup-name
)
2467 (Info-mode ; Info buffer
2468 pr-mode-lpr pr-mode-print
2470 (ps-info-node ps-info-file
)
2475 pr-vm-lpr pr-vm-print
2477 (ps-article-subject ps-article-author buffer-name
)
2482 "*Specify an alist for a major-mode and printing functions.
2484 To customize a major mode printing, just declare the customization in
2485 `pr-mode-alist' and invoke some of `*-mode*' commands. An example for major
2486 mode usage is when you're using gnus (or mh, or rmail, etc.) and you're in the
2487 *Summary* buffer, if you forget to switch to the *Article* buffer before
2488 printing, you'll get a nicely formatted list of article subjects shows up at
2489 the printer. With major mode printing you don't need to switch from gnus
2490 *Summary* buffer first.
2492 The elements have the following form:
2504 MAJOR-MODE It's the major mode symbol.
2506 LPR-PRINT It's a symbol function for text printing. It's invoked with
2508 (HEADER-LINES LEFT-HEADER RIGHT-HEADER DEFAULT...).
2510 Usually LPR-PRINT function prepares the environment or buffer
2511 and then call the function `pr-mode-lpr' which it's used to
2512 process the buffer and send it to text printer.
2514 The `pr-mode-lpr' definition is:
2516 (pr-mode-lpr HEADER-LIST &optional FROM TO)
2518 Where HEADER-LIST is like the argument passed to LPR-PRINT.
2519 FROM and TO are the beginning and end markers, respectively,
2520 for a region. If FROM is nil, it's used (point-min); if TO is
2521 nil, it's used (point-max).
2523 PS-PRINT It's a symbol function for PostScript printing. It's invoked
2524 with 3 arguments: n-up printing, file name and the list:
2525 (HEADER-LINES LEFT-HEADER RIGHT-HEADER DEFAULT...).
2527 Usually PS-PRINT function prepares the environment or buffer
2528 and then call the function `pr-mode-print' which it's used to
2529 process the buffer and send it to PostScript printer.
2531 The `pr-mode-print' definition is:
2533 (pr-mode-print N-UP FILENAME HEADER-LIST &optional FROM TO)
2535 Where N-UP, FILENAME and HEADER-LIST are like the arguments
2536 passed to PS-PRINT. FROM and TO are the beginning and end
2537 markers, respectively, for a region. If TO is nil, it's used
2540 HEADER-LINES It's the number of header lines; if is nil, it uses
2541 `ps-header-lines' value.
2543 LEFT-HEADER It's the left header part, it's a list of string, variable
2544 symbol or function symbol (with no argument); if is nil, it
2545 uses `ps-left-header' value.
2547 RIGHT-HEADER It's the right header part, it's a list of string, variable
2548 symbol or function symbol (with no argument); if is nil, it
2549 uses `ps-right-header' value.
2552 Non-nil means to kill all buffer local variable declared in
2553 DEFAULT (see below).
2555 DEFAULT It's a way to set default values when this entry is selected.
2558 (VARIABLE-SYM . VALUE)
2560 Which associates VARIABLE-SYM with VALUE. When this entry is
2561 selected, it's executed the following command:
2563 (set (make-local-variable VARIABLE-SYM) (eval VALUE))
2565 Note that VALUE can be any valid lisp expression. So, don't
2566 forget to quote symbols and constant lists.
2567 If VARIABLE is the special keyword `inherits-from:', VALUE must
2568 be a symbol name setting defined in `pr-setting-database' from
2569 which the current setting inherits the context. Take care with
2570 circular inheritance.
2572 '(ps-landscape-mode . nil)
2573 '(ps-spool-duplex . t)
2574 '(pr-gs-device . (my-gs-device t))"
2578 (symbol :tag
"Major Mode")
2579 (function :tag
"Text Printing Function")
2580 (function :tag
"PS Printing Function")
2581 (choice :menu-tag
"Number of Header Lines"
2582 :tag
"Number of Header Lines"
2583 (integer :tag
"Number")
2584 (const :tag
"Default Number" nil
))
2585 (repeat :tag
"Left Header List"
2586 (choice :menu-tag
"Left Header"
2589 (repeat :tag
"Right Header List"
2590 (choice :menu-tag
"Right Header"
2593 (boolean :tag
"Kill Local Variable At End")
2595 :tag
"Default Value List"
2600 :menu-tag
"Variable"
2602 (const :tag
"Landscape" ps-landscape-mode
)
2603 (const :tag
"Print Header" ps-print-header
)
2604 (const :tag
"Print Header Frame" ps-print-header-frame
)
2605 (const :tag
"Line Number" ps-line-number
)
2606 (const :tag
"Zebra Stripes" ps-zebra-stripes
)
2607 (const :tag
"Duplex" ps-spool-duplex
)
2608 (const :tag
"Tumble" ps-spool-tumble
)
2609 (const :tag
"Upside-Down" ps-print-upside-down
)
2610 (const :tag
"PS File Landscape" pr-file-landscape
)
2611 (const :tag
"PS File Duplex" pr-file-duplex
)
2612 (const :tag
"PS File Tumble" pr-file-tumble
)
2613 (const :tag
"Auto Region" pr-auto-region
)
2614 (const :tag
"Auto Mode" pr-auto-mode
)
2615 (const :tag
"Ghostscript Device" pr-gs-device
)
2616 (const :tag
"Ghostscript Resolution" pr-gs-resolution
)
2617 (const :tag
"inherits-from:" inherits-from
:)
2618 (variable :tag
"Other"))
2619 (sexp :tag
"Value")))
2625 (defcustom pr-ps-utility
'mpage
2626 "*Specify PostScript utility symbol.
2628 This utility symbol should be defined on `pr-ps-utility-alist' (see it for
2631 This variable should be modified by customization engine. If this variable is
2632 modified by other means (for example, a lisp function), use `pr-update-menus'
2633 function (see it for documentation) to update PostScript utility menu.
2635 NOTE: Don't forget to download and install the utilities declared on
2636 `pr-ps-utility-alist'."
2637 :type
'(symbol :tag
"PS File Utility")
2638 :set
'pr-ps-utility-custom-set
2643 (defcustom pr-ps-utility-alist
2644 '((mpage "mpage" nil
"-b%s" "-%d" "-l" "-t" "-T" ">" nil
)
2645 (psnup "psnup" ("-q") "-P%s" "-%d" "-l" nil nil
" " nil
2646 (inherits-from: . no-duplex
))
2649 ;; * On GNU or Unix system:
2650 ;; '((mpage "mpage" nil "-b%s" "-%d" "-l" "-t" "-T" ">" nil)
2651 ;; (psnup "psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil
2652 ;; (pr-file-duplex . nil) (pr-file-tumble . nil))
2654 ;; * On Windows system:
2655 ;; '((psnup "c:/psutils/psnup" ("-q") "-P%s" "-%d" "-l" nil nil " " nil
2656 ;; (pr-file-duplex . nil) (pr-file-tumble . nil))
2658 "*Specify an alist for PostScript utility processing (PS utility database).
2660 The alist element has the form:
2662 (SYMBOL UTILITY MUST-SWITCHES PAPERSIZE N-UP LANDSCAPE DUPLEX TUMBLE OUTPUT
2663 SWITCHES DEFAULT...)
2667 SYMBOL It's a symbol to identify a PostScript utility. It's for
2668 `pr-ps-utility' variable setting and for menu selection.
2673 UTILITY Name of utility for processing a PostScript file.
2674 See also `pr-path-alist'.
2676 . for GNU or Unix system:
2680 . for Windows system:
2681 \"c:/psutils/psnup -q\"
2683 MUST-SWITCHES List of sexp's to pass as options to the PostScript utility
2684 program. These options are necessary to process the utility
2685 program and must be placed before any other switches.
2690 PAPERSIZE It's a format string to specify paper size switch.
2695 N-UP It's a format string to specify n-up switch.
2700 LANDSCAPE It's a string to specify landscape switch. If the utility
2701 doesn't have landscape switch, set to nil.
2706 DUPLEX It's a string to specify duplex switch. If the utility doesn't
2707 have duplex switch, set to nil.
2712 TUMBLE It's a string to specify tumble switch. If the utility doesn't
2713 have tumble switch, set to nil.
2718 OUTPUT It's a string to specify how to generate an output file. Some
2719 utilities accept an output file option, but some others need
2720 output redirection or some other way to specify an output file.
2723 \" \" ; psnup ... input output
2726 \">\" ; mpage ... input > output
2728 SWITCHES List of sexp's to pass as extra options to the PostScript utility
2735 DEFAULT It's a way to set default values when this entry is selected.
2740 Which associates VARIABLE with VALUE. When this entry is
2741 selected, it's executed the following command:
2743 (set VARIABLE (eval VALUE))
2745 Note that VALUE can be any valid lisp expression. So, don't
2746 forget to quote symbols and constant lists.
2747 If VARIABLE is the special keyword `inherits-from:', VALUE must
2748 be a symbol name setting defined in `pr-setting-database' from
2749 which the current setting inherits the context. Take care with
2750 circular inheritance.
2752 '(pr-file-landscape . nil)
2753 '(pr-file-duplex . t)
2754 '(pr-gs-device . (my-gs-device t))
2756 This variable should be modified by customization engine. If this variable is
2757 modified by other means (for example, a lisp function), use `pr-update-menus'
2758 function (see it for documentation) to update PostScript utility menu.
2760 NOTE: Don't forget to download and install the utilities declared on
2761 `pr-ps-utility-alist'.
2765 * On GNU or Unix system:
2767 '((mpage \"mpage\" nil \"-b%s\" \"-%d\" \"-l\" \"-t\" \"-T\" \">\" nil)
2768 (psnup \"psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \" nil
2769 (pr-file-duplex . nil) (pr-file-tumble . nil))
2772 * On Windows system:
2774 '((psnup \"c:/psutils/psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \" \"
2775 nil (pr-file-duplex . nil) (pr-file-tumble . nil))
2780 * mpage download (GNU or Unix)
2781 `http://www.mesa.nl/pub/mpage/'
2783 * mpage documentation (GNU or Unix - or type `man mpage')
2784 `http://www.cs.umd.edu/faq/guides/manual_unix/node48.html'
2785 `http://www.rt.com/man/mpage.1.html'
2787 * psnup (Windows, GNU or Unix)
2788 `http://www.knackered.org/angus/psutils/'
2789 `http://gershwin.ens.fr/vdaniel/Doc-Locale/Outils-Gnu-Linux/PsUtils/'
2791 * psnup (PsUtils for Windows)
2792 `http://gnuwin32.sourceforge.net/packages/psutils.htm'
2794 * psnup documentation (GNU or Unix - or type `man psnup')
2795 `http://linux.about.com/library/cmd/blcmdl1_psnup.htm'
2796 `http://amath.colorado.edu/computing/software/man/psnup.html'
2798 * GNU Enscript (Windows, GNU or Unix)
2799 `http://people.ssh.com/mtr/genscript/'
2801 * GNU Enscript documentation (Windows, GNU or Unix)
2802 `http://people.ssh.com/mtr/genscript/enscript.man.html'
2803 (on GNU or Unix, type `man enscript')
2806 (list :tag
"PS File Utility"
2807 (symbol :tag
"Utility Symbol")
2808 (string :tag
"Utility Name")
2809 (repeat :tag
"Must Utility Switches"
2810 (sexp :tag
"Switch" :value
""))
2811 (choice :menu-tag
"Paper Size"
2813 (const :tag
"No Paper Size" nil
)
2814 (string :tag
"Paper Size Format"))
2815 (choice :menu-tag
"N-Up"
2817 (const :tag
"No N-Up" nil
)
2818 (string :tag
"N-Up Format"))
2819 (choice :menu-tag
"Landscape"
2821 (const :tag
"No Landscape" nil
)
2822 (string :tag
"Landscape Switch"))
2823 (choice :menu-tag
"Duplex"
2825 (const :tag
"No Duplex" nil
)
2826 (string :tag
"Duplex Switch"))
2827 (choice :menu-tag
"Tumble"
2829 (const :tag
"No Tumble" nil
)
2830 (string :tag
"Tumble Switch"))
2831 (string :tag
"Output Separator")
2832 (repeat :tag
"Utility Switches"
2833 (sexp :tag
"Switch" :value
""))
2835 :tag
"Default Value List"
2840 :menu-tag
"Variable"
2842 (const :tag
"PS File Landscape" pr-file-landscape
)
2843 (const :tag
"PS File Duplex" pr-file-duplex
)
2844 (const :tag
"PS File Tumble" pr-file-tumble
)
2845 (const :tag
"Ghostscript Device" pr-gs-device
)
2846 (const :tag
"Ghostscript Resolution" pr-gs-resolution
)
2847 (const :tag
"inherits-from:" inherits-from
:)
2848 (variable :tag
"Other"))
2849 (sexp :tag
"Value")))
2851 :set
'pr-alist-custom-set
2856 (defcustom pr-menu-lock t
2857 "*Non-nil means menu is locked while selecting toggle options.
2859 See also `pr-menu-char-height' and `pr-menu-char-width'."
2865 (defcustom pr-menu-char-height
(pr-menu-char-height)
2866 "*Specify menu char height in pixels.
2868 This variable is used to guess which vertical position should be locked the
2869 menu, so don't forget to adjust it if menu position is not ok.
2871 See also `pr-menu-lock' and `pr-menu-char-width'."
2877 (defcustom pr-menu-char-width
(pr-menu-char-width)
2878 "*Specify menu char width in pixels.
2880 This variable is used to guess which horizontal position should be locked the
2881 menu, so don't forget to adjust it if menu position is not ok.
2883 See also `pr-menu-lock' and `pr-menu-char-height'."
2889 (defcustom pr-setting-database
2890 '((no-duplex ; setting symbol name
2891 nil nil nil
; inherits local kill-local
2892 (pr-file-duplex . nil
) ; settings
2893 (pr-file-tumble . nil
))
2895 "*Specify an alist for settings in general.
2897 The elements have the following form:
2899 (SYMBOL INHERITS LOCAL KILL-LOCAL SETTING...)
2903 SYMBOL It's a symbol to identify the setting group.
2905 INHERITS Specify the inheritance for SYMBOL group. It's a symbol name
2906 setting from which the current setting inherits the context.
2907 If INHERITS is nil, means that there is no inheritance.
2908 This is a simple inheritance mechanism.
2910 Let's see an example to illustrate the inheritance mechanism:
2912 (setq pr-setting-database
2913 '((no-duplex ; setting symbol name
2915 nil nil ; local kill-local
2916 (pr-file-duplex . nil) ; settings
2917 (pr-file-tumble . nil)
2919 (no-duplex-and-landscape ; setting symbol name
2920 no-duplex ; inherits
2921 nil nil ; local kill-local
2922 (pr-file-landscape . nil) ; settings
2925 The example above has two setting groups: no-duplex and
2926 no-duplex-and-landscape. When setting no-duplex is activated
2927 through `inherits-from:' (see `pr-ps-utility', `pr-mode-alist'
2928 and `pr-ps-printer-alist'), the variables pr-file-duplex and
2929 pr-file-tumble are both set to nil.
2931 Now when setting no-duplex-and-landscape is activated through
2932 `inherits-from:', the variable pr-file-landscape is set to nil
2933 and also the settings for no-duplex are done, because
2934 no-duplex-and-landscape inherits settings from no-duplex.
2936 Take care with circular inheritance. It's an error if circular
2937 inheritance happens.
2939 LOCAL Non-nil means that all settings for SYMBOL group will be
2940 declared local buffer.
2942 KILL-LOCAL Non-nil means that all settings for SYMBOL group will be
2943 killed at end. It has effect only when LOCAL is non-nil.
2945 SETTING It's a cons like:
2949 Which associates VARIABLE with VALUE. When this entry is
2950 selected, it's executed the following command:
2952 * If LOCAL is non-nil:
2953 (set (make-local-variable VARIABLE) (eval VALUE))
2956 (set VARIABLE (eval VALUE))
2958 Note that VALUE can be any valid lisp expression. So, don't
2959 forget to quote symbols and constant lists.
2960 This setting is ignored if VARIABLE is equal to keyword
2963 '(ps-landscape-mode . nil)
2964 '(ps-spool-duplex . t)
2965 '(pr-gs-device . (my-gs-device t))"
2969 (symbol :tag
"Setting Name")
2970 (choice :menu-tag
"Inheritance"
2972 (const :tag
"No Inheritance" nil
)
2973 (symbol :tag
"Inherits From"))
2974 (boolean :tag
"Local Buffer Setting")
2975 (boolean :tag
"Kill Local Variable At End")
2982 :menu-tag
"Variable"
2984 (const :tag
"Landscape" ps-landscape-mode
)
2985 (const :tag
"Print Header" ps-print-header
)
2986 (const :tag
"Print Header Frame" ps-print-header-frame
)
2987 (const :tag
"Line Number" ps-line-number
)
2988 (const :tag
"Zebra Stripes" ps-zebra-stripes
)
2989 (const :tag
"Duplex" ps-spool-duplex
)
2990 (const :tag
"Tumble" ps-spool-tumble
)
2991 (const :tag
"Upside-Down" ps-print-upside-down
)
2992 (const :tag
"PS File Landscape" pr-file-landscape
)
2993 (const :tag
"PS File Duplex" pr-file-duplex
)
2994 (const :tag
"PS File Tumble" pr-file-tumble
)
2995 (const :tag
"Auto Region" pr-auto-region
)
2996 (const :tag
"Auto Mode" pr-auto-mode
)
2997 (const :tag
"Ghostscript Device" pr-gs-device
)
2998 (const :tag
"Ghostscript Resolution" pr-gs-resolution
)
2999 (variable :tag
"Other"))
3000 (sexp :tag
"Value")))
3006 (defcustom pr-visible-entry-list
3007 '(postscript text postscript-options postscript-process printing help
)
3008 "*Specify a list of Printing menu visible entries.
3010 Valid values with the corresponding menu parts are:
3012 +------------------------------+
3013 | Printing Interface |
3014 +------------------------------+
3015 `postscript' | PostScript Preview >|
3016 | PostScript Print >|
3017 | PostScript Printer: name >|
3018 +------------------------------+
3019 `text' | Printify >|
3021 | Text Printer: name >|
3022 +------------------------------+
3023 `postscript-options' |[ ] Landscape |
3025 |[ ] Print Header Frame |
3027 |[ ] Zebra Stripes |
3031 | Print All Pages >|
3032 +------------------------------+
3033 `postscript-process' |[ ] Spool Buffer |
3034 |[ ] Print with faces |
3035 |[ ] Print via Ghostscript |
3036 +------------------------------+
3037 `printing' |[ ] Auto Region |
3040 +------------------------------+
3041 `help' | Customize >|
3044 +------------------------------+
3046 Any other value is ignored."
3047 :type
'(repeat :tag
"Menu Visible Part"
3048 (choice :menu-tag
"Menu Part"
3052 (const postscript-options
)
3053 (const postscript-process
)
3060 (defcustom pr-delete-temp-file t
3061 "*Non-nil means delete temporary files.
3063 Set `pr-delete-temp-file' to nil, if the following message (or a similar)
3064 happens when printing:
3066 Error: could not open \"c:\\temp\\prspool.ps\" for reading."
3072 (defcustom pr-list-directory nil
3073 "*Non-nil means list directory when processing a directory.
3075 That is, any subdirectories (and the superdirectory) of the directory (given as
3076 argument of functions below) are also printed (as dired-mode listings).
3078 It's used by `pr-ps-directory-preview', `pr-ps-directory-using-ghostscript',
3079 `pr-ps-directory-print', `pr-ps-directory-ps-print', `pr-printify-directory'
3080 and `pr-txt-directory'."
3086 (defcustom pr-buffer-name
"*Printing Interface*"
3087 "*Specify the name of the buffer interface for printing package.
3089 It's used by `pr-interface'."
3095 (defcustom pr-buffer-name-ignore
3096 (list (regexp-quote pr-buffer-name
) ; ignore printing interface buffer
3097 "^ .*$") ; ignore invisible buffers
3098 "*Specify a regexp list for buffer names to be ignored in interface buffer.
3100 NOTE: Case is important for matching, that is, `case-fold-search' is always
3103 It's used by `pr-interface'."
3104 :type
'(repeat (regexp :tag
"Buffer Name Regexp"))
3109 (defcustom pr-buffer-verbose t
3110 "*Non-nil means to be verbose when editing a field in interface buffer.
3112 It's used by `pr-interface'."
3118 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3119 ;; Internal Variables
3122 (defvar pr-txt-command nil
3123 "Name of program for printing a text file.
3124 See `pr-txt-printer-alist'.")
3127 (defvar pr-txt-switches nil
3128 "List of sexp's to pass as extra options to the text printer program.
3129 See `pr-txt-printer-alist'.")
3132 (defvar pr-txt-printer nil
3133 "Specify text printer name.
3134 See `pr-txt-printer-alist'.")
3137 (defvar pr-ps-command nil
3138 "Name of program for printing a PostScript file.
3139 See `pr-ps-printer-alist'.")
3142 (defvar pr-ps-switches nil
3143 "List of sexp's to pass as extra options to the PostScript printer program.
3144 See `pr-ps-printer-alist'.")
3147 (defvar pr-ps-printer-switch nil
3148 "Specify PostScript printer name switch.
3149 See `pr-ps-printer-alist'.")
3152 (defvar pr-ps-printer nil
3153 "Specify PostScript printer name.
3154 See `pr-ps-printer-alist'.")
3157 (defvar pr-menu-bar nil
3158 "Specify Printing menu-bar entry.")
3161 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3165 (defmacro pr-save-file-modes
(&rest body
)
3166 "Set temporally file modes to `pr-file-modes'."
3167 `(let ((pr--default-file-modes (default-file-modes))) ; save default
3168 (set-default-file-modes pr-file-modes
)
3170 (set-default-file-modes pr--default-file-modes
))) ; restore default
3173 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3177 (defsubst pr-visible-p
(key)
3178 (memq key pr-visible-entry-list
))
3181 (defsubst pr-mode-alist-p
()
3182 (cdr (assq major-mode pr-mode-alist
)))
3185 (defsubst pr-auto-mode-p
()
3186 (and pr-auto-mode
(pr-mode-alist-p)))
3189 (defsubst pr-using-ghostscript-p
()
3190 (and pr-print-using-ghostscript
(not pr-spool-p
)))
3193 (defalias 'pr-get-symbol
3194 (if (fboundp 'easy-menu-intern
) ; hacked from easymenu.el
3196 (lambda (s) (if (stringp s
) (intern s
) s
))))
3199 (defconst pr-menu-spec
3201 ;; unfortunately XEmacs doesn't support :active for submenus,
3203 ;; So, it uses :included instead of :active.
3204 ;; Also, XEmacs doesn't support :help tag.
3205 (let ((pr-:active
(if (featurep 'xemacs
)
3207 :active
)) ; GNU Emacs
3208 (pr-:help
(if (featurep 'xemacs
)
3210 #'(lambda (text) (list :help text
))))) ; GNU Emacs
3212 ["Printing Interface" pr-interface
3214 pr-
:help
"Use buffer interface instead of menu interface")]
3216 ("PostScript Preview" :included
(pr-visible-p 'postscript
)
3218 pr-
:help
"Preview PostScript instead of sending to printer")
3219 ("Directory" ,pr-
:active
(not pr-spool-p
)
3220 ["1-up" (pr-ps-directory-preview 1 nil nil t
) t
]
3221 ["2-up" (pr-ps-directory-preview 2 nil nil t
) t
]
3222 ["4-up" (pr-ps-directory-preview 4 nil nil t
) t
]
3223 ["Other..." (pr-ps-directory-preview nil nil nil t
)
3224 :keys
"\\[pr-ps-buffer-preview]"])
3225 ("Buffer" ,pr-
:active
(not pr-spool-p
)
3226 ["1-up" (pr-ps-buffer-preview 1 t
) t
]
3227 ["2-up" (pr-ps-buffer-preview 2 t
) t
]
3228 ["4-up" (pr-ps-buffer-preview 4 t
) t
]
3229 ["Other..." (pr-ps-buffer-preview nil t
)
3230 :keys
"\\[pr-ps-buffer-preview]"])
3231 ("Region" ,pr-
:active
(and (not pr-spool-p
) (ps-mark-active-p))
3232 ["1-up" (pr-ps-region-preview 1 t
) t
]
3233 ["2-up" (pr-ps-region-preview 2 t
) t
]
3234 ["4-up" (pr-ps-region-preview 4 t
) t
]
3235 ["Other..." (pr-ps-region-preview nil t
)
3236 :keys
"\\[pr-ps-region-preview]"])
3237 ("Mode" ,pr-
:active
(and (not pr-spool-p
) (pr-mode-alist-p))
3238 ["1-up" (pr-ps-mode-preview 1 t
) t
]
3239 ["2-up" (pr-ps-mode-preview 2 t
) t
]
3240 ["4-up" (pr-ps-mode-preview 4 t
) t
]
3241 ["Other..." (pr-ps-mode-preview nil t
)
3242 :keys
"\\[pr-ps-mode-preview]"])
3244 ["No Preprocessing..." (call-interactively 'pr-ps-file-preview
)
3245 :keys
"\\[pr-ps-file-preview]"
3247 pr-
:help
"Preview PostScript file")]
3249 ["PostScript Utility" pr-update-menus
:active pr-ps-utility-alist
3251 pr-
:help
"Select PostScript utility")]
3253 ["1-up..." (pr-ps-file-up-preview 1 t t
) pr-ps-utility-alist
]
3254 ["2-up..." (pr-ps-file-up-preview 2 t t
) pr-ps-utility-alist
]
3255 ["4-up..." (pr-ps-file-up-preview 4 t t
) pr-ps-utility-alist
]
3256 ["Other..." (pr-ps-file-up-preview nil t t
)
3257 :keys
"\\[pr-ps-file-up-preview]" :active pr-ps-utility-alist
]
3259 ["Landscape" pr-toggle-file-landscape-menu
3260 :style toggle
:selected pr-file-landscape
3262 pr-
:help
"Toggle landscape for PostScript file")
3263 :active pr-ps-utility-alist
]
3264 ["Duplex" pr-toggle-file-duplex-menu
3265 :style toggle
:selected pr-file-duplex
3267 pr-
:help
"Toggle duplex for PostScript file")
3268 :active pr-ps-utility-alist
]
3269 ["Tumble" pr-toggle-file-tumble-menu
3270 :style toggle
:selected pr-file-tumble
3272 pr-
:help
"Toggle tumble for PostScript file")
3273 :active
(and pr-file-duplex pr-ps-utility-alist
)])
3274 ["Despool..." (call-interactively 'pr-despool-preview
)
3275 :active pr-spool-p
:keys
"\\[pr-despool-preview]"
3277 pr-
:help
"Despool PostScript buffer to printer or file (C-u)")])
3278 ("PostScript Print" :included
(pr-visible-p 'postscript
)
3280 pr-
:help
"Send PostScript to printer or file (C-u)")
3282 ["1-up" (pr-ps-directory-ps-print 1 nil nil t
) t
]
3283 ["2-up" (pr-ps-directory-ps-print 2 nil nil t
) t
]
3284 ["4-up" (pr-ps-directory-ps-print 4 nil nil t
) t
]
3285 ["Other..." (pr-ps-directory-ps-print nil nil nil t
)
3286 :keys
"\\[pr-ps-buffer-ps-print]"])
3288 ["1-up" (pr-ps-buffer-ps-print 1 t
) t
]
3289 ["2-up" (pr-ps-buffer-ps-print 2 t
) t
]
3290 ["4-up" (pr-ps-buffer-ps-print 4 t
) t
]
3291 ["Other..." (pr-ps-buffer-ps-print nil t
)
3292 :keys
"\\[pr-ps-buffer-ps-print]"])
3293 ("Region" ,pr-
:active
(ps-mark-active-p)
3294 ["1-up" (pr-ps-region-ps-print 1 t
) t
]
3295 ["2-up" (pr-ps-region-ps-print 2 t
) t
]
3296 ["4-up" (pr-ps-region-ps-print 4 t
) t
]
3297 ["Other..." (pr-ps-region-ps-print nil t
)
3298 :keys
"\\[pr-ps-region-ps-print]"])
3299 ("Mode" ,pr-
:active
(pr-mode-alist-p)
3300 ["1-up" (pr-ps-mode-ps-print 1 t
) t
]
3301 ["2-up" (pr-ps-mode-ps-print 2 t
) t
]
3302 ["4-up" (pr-ps-mode-ps-print 4 t
) t
]
3303 ["Other..." (pr-ps-mode-ps-print nil t
)
3304 :keys
"\\[pr-ps-mode-ps-print]"])
3306 ["No Preprocessing..." (call-interactively 'pr-ps-file-ps-print
)
3307 :keys
"\\[pr-ps-file-ps-print]"
3309 pr-
:help
"Send PostScript file to printer")]
3311 ["PostScript Utility" pr-update-menus
:active pr-ps-utility-alist
3313 pr-
:help
"Select PostScript utility")]
3315 ["1-up..." (pr-ps-file-up-ps-print 1 t t
) pr-ps-utility-alist
]
3316 ["2-up..." (pr-ps-file-up-ps-print 2 t t
) pr-ps-utility-alist
]
3317 ["4-up..." (pr-ps-file-up-ps-print 4 t t
) pr-ps-utility-alist
]
3318 ["Other..." (pr-ps-file-up-ps-print nil t t
)
3319 :keys
"\\[pr-ps-file-up-ps-print]" :active pr-ps-utility-alist
]
3321 ["Landscape" pr-toggle-file-landscape-menu
3322 :style toggle
:selected pr-file-landscape
3324 pr-
:help
"Toggle landscape for PostScript file")
3325 :active pr-ps-utility-alist
]
3326 ["Duplex" pr-toggle-file-duplex-menu
3327 :style toggle
:selected pr-file-duplex
3329 pr-
:help
"Toggle duplex for PostScript file")
3330 :active pr-ps-utility-alist
]
3331 ["Tumble" pr-toggle-file-tumble-menu
3332 :style toggle
:selected pr-file-tumble
3334 pr-
:help
"Toggle tumble for PostScript file")
3335 :active
(and pr-file-duplex pr-ps-utility-alist
)])
3336 ["Despool..." (call-interactively 'pr-despool-ps-print
)
3337 :active pr-spool-p
:keys
"\\[pr-despool-ps-print]"
3339 pr-
:help
"Despool PostScript buffer to printer or file (C-u)")])
3340 ["PostScript Printers" pr-update-menus
3341 :active pr-ps-printer-alist
:included
(pr-visible-p 'postscript
)
3343 pr-
:help
"Select PostScript printer")]
3345 ("Printify" :included
(pr-visible-p 'text
)
3348 "Replace non-printing chars with printable representations.")
3349 ["Directory" pr-printify-directory t
]
3350 ["Buffer" pr-printify-buffer t
]
3351 ["Region" pr-printify-region
(ps-mark-active-p)])
3352 ("Print" :included
(pr-visible-p 'text
)
3354 pr-
:help
"Send text to printer")
3355 ["Directory" pr-txt-directory t
]
3356 ["Buffer" pr-txt-buffer t
]
3357 ["Region" pr-txt-region
(ps-mark-active-p)]
3358 ["Mode" pr-txt-mode
(pr-mode-alist-p)])
3359 ["Text Printers" pr-update-menus
3360 :active pr-txt-printer-alist
:included
(pr-visible-p 'text
)
3362 pr-
:help
"Select text printer")]
3364 ["Landscape" pr-toggle-landscape-menu
3365 :style toggle
:selected ps-landscape-mode
3366 :included
(pr-visible-p 'postscript-options
)]
3367 ["Print Header" pr-toggle-header-menu
3368 :style toggle
:selected ps-print-header
3369 :included
(pr-visible-p 'postscript-options
)]
3370 ["Print Header Frame" pr-toggle-header-frame-menu
3371 :style toggle
:selected ps-print-header-frame
:active ps-print-header
3372 :included
(pr-visible-p 'postscript-options
)]
3373 ["Line Number" pr-toggle-line-menu
3374 :style toggle
:selected ps-line-number
3375 :included
(pr-visible-p 'postscript-options
)]
3376 ["Zebra Stripes" pr-toggle-zebra-menu
3377 :style toggle
:selected ps-zebra-stripes
3378 :included
(pr-visible-p 'postscript-options
)]
3379 ["Duplex" pr-toggle-duplex-menu
3380 :style toggle
:selected ps-spool-duplex
3381 :included
(pr-visible-p 'postscript-options
)]
3382 ["Tumble" pr-toggle-tumble-menu
3383 :style toggle
:selected ps-spool-tumble
:active ps-spool-duplex
3384 :included
(pr-visible-p 'postscript-options
)]
3385 ["Upside-Down" pr-toggle-upside-down-menu
3386 :style toggle
:selected ps-print-upside-down
3387 :included
(pr-visible-p 'postscript-options
)]
3388 ("Print All Pages" :included
(pr-visible-p 'postscript-options
)
3390 pr-
:help
"Select odd/even pages/sheets to print")
3391 ["All Pages" (pr-even-or-odd-pages nil
)
3392 :style radio
:selected
(eq ps-even-or-odd-pages nil
)]
3393 ["Even Pages" (pr-even-or-odd-pages 'even-page
)
3394 :style radio
:selected
(eq ps-even-or-odd-pages
'even-page
)]
3395 ["Odd Pages" (pr-even-or-odd-pages 'odd-page
)
3396 :style radio
:selected
(eq ps-even-or-odd-pages
'odd-page
)]
3397 ["Even Sheets" (pr-even-or-odd-pages 'even-sheet
)
3398 :style radio
:selected
(eq ps-even-or-odd-pages
'even-sheet
)]
3399 ["Odd Sheets" (pr-even-or-odd-pages 'odd-sheet
)
3400 :style radio
:selected
(eq ps-even-or-odd-pages
'odd-sheet
)])
3402 ["Spool Buffer" pr-toggle-spool-menu
3403 :style toggle
:selected pr-spool-p
3404 :included
(pr-visible-p 'postscript-process
)
3406 pr-
:help
"Toggle PostScript spooling")]
3407 ["Print with faces" pr-toggle-faces-menu
3408 :style toggle
:selected pr-faces-p
3409 :included
(pr-visible-p 'postscript-process
)
3411 pr-
:help
"Toggle PostScript printing with faces")]
3412 ["Print via Ghostscript" pr-toggle-ghostscript-menu
3413 :style toggle
:selected pr-print-using-ghostscript
3414 :included
(pr-visible-p 'postscript-process
)
3416 pr-
:help
"Toggle PostScript generation using ghostscript")]
3418 ["Auto Region" pr-toggle-region-menu
3419 :style toggle
:selected pr-auto-region
3420 :included
(pr-visible-p 'printing
)]
3421 ["Auto Mode" pr-toggle-mode-menu
3422 :style toggle
:selected pr-auto-mode
3423 :included
(pr-visible-p 'printing
)]
3424 ["Menu Lock" pr-toggle-lock-menu
3425 :style toggle
:selected pr-menu-lock
3426 :included
(pr-visible-p 'printing
)]
3428 ("Customize" :included
(pr-visible-p 'help
)
3429 ["printing" pr-customize t
]
3430 ["ps-print" ps-print-customize t
]
3431 ["lpr" lpr-customize t
])
3432 ("Show Settings" :included
(pr-visible-p 'help
)
3433 ["printing" pr-show-pr-setup t
]
3434 ["ps-print" pr-show-ps-setup t
]
3435 ["lpr" pr-show-lpr-setup t
])
3436 ["Help" pr-help
:active t
:included
(pr-visible-p 'help
)]
3440 (defvar pr-menu-print-item
"print"
3441 "Non-nil means that menu binding was not done.
3443 Used by `pr-menu-bind' and `pr-update-menus'.")
3446 (defun pr-menu-bind ()
3447 "Install `printing' menu in the menubar.
3449 On Emacs 20, it replaces the Tools/Print menu by Tools/Printing menu.
3451 On Emacs 21 and 22, it replaces the File/Print* menu entries by File/Print
3454 Calls `pr-update-menus' to adjust menus."
3456 (pr-global-menubar pr-menu-spec
)
3457 (pr-update-menus t
))
3461 (let ((pr-print-key (if (featurep 'xemacs
)
3463 'print
))) ; GNU Emacs
3464 (global-set-key `[,pr-print-key
] 'pr-ps-fast-fire
)
3465 ;; Well, M-print and S-print are used because in my keyboard S-print works
3466 ;; and M-print doesn't. But M-print can work in other keyboard.
3467 (global-set-key `[(meta ,pr-print-key
)] 'pr-ps-mode-using-ghostscript
)
3468 (global-set-key `[(shift ,pr-print-key
)] 'pr-ps-mode-using-ghostscript
)
3469 ;; Well, C-print and C-M-print are used because in my keyboard C-M-print works
3470 ;; and C-print doesn't. But C-print can work in other keyboard.
3471 (global-set-key `[(control ,pr-print-key
)] 'pr-txt-fast-fire
)
3472 (global-set-key `[(control meta
,pr-print-key
)] 'pr-txt-fast-fire
))
3475 ;;; You can also use something like:
3476 ;;;(global-set-key "\C-ci" 'pr-interface)
3477 ;;;(global-set-key "\C-cbp" 'pr-ps-buffer-print)
3478 ;;;(global-set-key "\C-cbx" 'pr-ps-buffer-preview)
3479 ;;;(global-set-key "\C-cbb" 'pr-ps-buffer-using-ghostscript)
3480 ;;;(global-set-key "\C-crp" 'pr-ps-region-print)
3481 ;;;(global-set-key "\C-crx" 'pr-ps-region-preview)
3482 ;;;(global-set-key "\C-crr" 'pr-ps-region-using-ghostscript)
3485 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3489 (defconst pr-help-message
3490 (concat "printing.el version " pr-version
3491 " ps-print.el version " ps-print-version
3496 The `printing' menu (Tools/Printing or File/Print) has the following layout:
3498 +-----------------------------+
3499 A 0 | Printing Interface |
3500 +-----------------------------+ +-A---------+ +-B------+
3501 I 1 | PostScript Preview >|-------|Directory >|-----|1-up |
3502 2 | PostScript Print >|---- A |Buffer >|-- B |2-up |
3503 3 | PostScript Printer: name >|---- C |Region >|-- B |4-up |
3504 +-----------------------------+ |Mode >|-- B |Other...|
3505 II 4 | Printify >|-----\\ |File >|--\\ +--------+
3506 5 | Print >|---\\ | |Despool... | |
3507 6 | Text Printer: name >|-\\ | | +-----------+ |
3508 +-----------------------------+ | | | +---------+ +------------+
3509 III 7 |[ ]Landscape | | | \\-|Directory| | No Prep... | Ia
3510 8 |[ ]Print Header | | | |Buffer | +------------+ Ib
3511 9 |[ ]Print Header Frame | | | |Region | | name >|- C
3512 10 |[ ]Line Number | | | +---------+ +------------+
3513 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic
3514 12 |[ ]Duplex | | \\---|Directory| | 2-up... |
3515 13 |[ ]Tumble | \\--\\ |Buffer | | 4-up... |
3516 14 |[ ]Upside-Down | | |Region | | Other... |
3517 15 | Print All Pages >|--\\ | |Mode | +------------+
3518 +-----------------------------+ | | +---------+ |[ ]Landscape| Id
3519 IV 16 |[ ]Spool Buffer | | | +-C-------+ |[ ]Duplex | Ie
3520 17 |[ ]Print with faces | | \\--|( )name A| |[ ]Tumble | If
3521 18 |[ ]Print via Ghostscript | | |( )name B| +------------+
3522 +-----------------------------+ | |... |
3523 V 19 |[ ]Auto Region | | |(*)name |
3524 20 |[ ]Auto Mode | | |... |
3525 21 |[ ]Menu Lock | | +---------+ +--------------+
3526 +-----------------------------+ \\------------------|(*)All Pages |
3527 VI 22 | Customize >|--- D +-D------+ |( )Even Pages |
3528 23 | Show Settings >|-------|printing| |( )Odd Pages |
3529 24 | Help | |ps-print| |( )Even Sheets|
3530 +-----------------------------+ |lpr | |( )Odd Sheets |
3531 +--------+ +--------------+
3533 See `pr-visible-entry-list' for hiding some parts of the menu.
3535 The menu has the following sections:
3539 0. You can use a buffer interface instead of menus. It looks like the
3540 customization buffer. Basically, it has the same options found in the
3541 menu and some extra options, all this on a buffer.
3543 I. PostScript printing:
3545 1. You can generate a PostScript file (if you type C-u before activating
3546 menu) or PostScript temporary file for a directory, a buffer, a region
3547 or a major mode, choosing 1-up, 2-up, 4-up or any other n-up printing;
3548 after file generation, ghostview is activated using the file generated
3549 as argument. This option is disabled if spooling is on (option 16).
3550 Also, if you already have a PostScript file you can preview it.
3551 Instead of previewing each buffer, region or major mode at once, you
3552 can save temporarily the PostScript code generated in a buffer and
3553 preview it later. The option `Despool...' despools the PostScript
3554 spooling buffer in a temporary file and uses ghostview to preview it.
3555 If you type C-u before choosing this option, the PostScript code
3556 generated is saved in a file instead of saving in a temporary file. To
3557 spool the PostScript code generated you need to turn on the option 16.
3558 The option `Despool...' is enabled if spooling is on (option 16).
3560 NOTE 1: It's possible to customize a major mode printing, just declare
3561 the customization in `pr-mode-alist' and invoke some of
3562 `*-mode*' commands or select Mode option in Printing menu. An
3563 example for major mode usage is when you're using gnus (or mh,
3564 or rmail, etc.) and you're in the *Summary* buffer, if you
3565 forget to switch to the *Article* buffer before printing,
3566 you'll get a nicely formatted list of article subjects shows
3567 up at the printer. With major mode printing you don't need to
3568 switch from gnus *Summary* buffer first.
3570 NOTE 2: There are the following options for PostScript file processing:
3571 Ia. Print the file *No Preprocessing*, that is, send it
3572 directly to PostScript printer.
3573 Ib. PostScript utility processing selection.
3574 See `pr-ps-utility-alist' and `pr-setting-database' for
3576 Ic. Do n-up processing before printing.
3577 Id. Toggle on/off landscape for PostScript file processing.
3578 Ie. Toggle on/off duplex for PostScript file processing.
3579 If. Toggle on/off tumble for PostScript file processing.
3581 NOTE 3: Don't forget to download and install the utilities declared on
3582 `pr-ps-utility-alist'.
3584 2. Operate the same way as option 1, but it sends directly the PostScript
3585 code (or put in a file, if you've typed C-u) or it uses ghostscript to
3586 print the PostScript file generated. It depends on option 18, if it's
3587 turned on, it uses ghostscript; otherwise, it sends directly to
3588 printer. If spooling is on (option 16), the PostScript code is saved
3589 temporarily in a buffer instead of printing it or saving it in a file.
3590 Also, if you already have a PostScript file you can print it.
3591 Instead of printing each buffer, region or major mode at once, you can
3592 save temporarily the PostScript code generated in a buffer and print it
3593 later. The option `Despool...' despools the PostScript spooling buffer
3594 directly on a printer. If you type C-u before choosing this option,
3595 the PostScript code generated is saved in a file instead of sending it to
3596 the printer. To spool the PostScript code generated you need to turn on
3597 option 16. This option is enabled if spooling is on (option 16).
3598 See also the NOTE 1, NOTE 2 and NOTE 3 on option 1.
3600 3. You can select a new PostScript printer to send PostScript code
3601 generated. For selection it's used all PostScript printers defined
3602 in `pr-ps-printer-alist' variable (see it for documentation).
3603 See also `pr-setting-database'.
3607 4. If you have control characters (character code from \\000 to \\037) in a
3608 buffer and you want to print them in a text printer, select this
3609 option. All control characters in your buffer or region will be
3610 replaced by a printable representation. The printable representations
3611 use ^ (for ASCII control characters) or hex. The characters tab,
3612 linefeed, space, return and formfeed are not affected.
3613 You don't need to select this option if you use any option of section
3614 I, the PostScript engine treats control characters properly.
3616 5. If you want to print a directory, buffer, region or major mode in a
3617 text printer, select this option. See also the NOTE 1 on option 1.
3619 6. You can select a new text printer to send text generated. For
3620 selection it's used all text printers defined in `pr-txt-printer-alist'
3621 variable (see it for documentation).
3622 See also `pr-setting-database'.
3624 III. PostScript page toggle options:
3626 7. If you want a PostScript landscape printing, turn on this option.
3628 8. If you want to have a header in each page in your PostScript code,
3629 turn on this option.
3631 9. If you want to draw a gaudy frame around the header, turn on this
3632 option. This option is enabled if print header is on (option 8).
3634 10. If you want that the line number is printed in your PostScript code,
3635 turn on this option.
3637 11. If you want background zebra stripes in your PostScript code, turn on
3640 12. If you want a duplex printing and your PostScript printer has this
3641 feature, turn on this option.
3643 13. If you turned on duplex printing, you can choose if you want to have a
3644 printing suitable for binding on the left or right (tumble off), or to
3645 have a printing suitable for binding at top or bottom (tumble on).
3646 This option is enabled if duplex is on (option 12).
3648 14. If you want a PostScript upside-down printing, turn on this option.
3650 15. With this option, you can choose if you want to print all pages, odd
3651 pages, even pages, odd sheets or even sheets.
3652 See also `ps-even-or-odd-pages'.
3654 IV. PostScript processing toggle options:
3656 16. If you want to spool the PostScript code generated, turn on this
3657 option. To spool the PostScript code generated use option 2. You can
3658 despool later by choosing option 1 or 2, sub-option `Despool...'.
3660 17. If you use colors in your buffers and want to see these colors on your
3661 PostScript code generated, turn on this option. If you have a
3662 black/white PostScript printer, these colors are displayed in gray
3663 scale by PostScript printer interpreter.
3665 18. If you don't have a PostScript printer to send PostScript files, turn
3666 on this option. When this option is on, the ghostscript is used to
3667 print PostScript files. In GNU or Unix system, if ghostscript is set
3668 as a PostScript filter, you don't need to turn on this option.
3670 V. Printing customization:
3672 19. If you want that region is automagically detected, turn on this
3673 option. Note that this will only work if you're using transient mark
3674 mode. When this option is on, the `*-buffer*' commands will behave
3675 like `*-region*' commands, that is, `*-buffer*' commands will print
3676 only the region marked instead of all buffer.
3678 20. Turn this option on if you want that when current major-mode is
3679 declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
3680 behave like `*-mode*' commands.
3682 21. If you want that Printing menu stays open while you are setting
3683 toggle options, turn on this option. The variables
3684 `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
3685 menu position, so don't forget to adjust these variables if menu
3690 22. Besides all options in section III, IV and V, you can customize much
3691 more PostScript options in `ps-print' option. Or you can customize
3692 some `lpr' options for text printing. Or customize `printing'
3695 23. Show current settings for `printing', `ps-print' or `lpr'.
3697 24. Quick help for printing menu layout.
3699 "Printing help message.")
3702 (defconst pr-interface-help-message
3703 (concat "printing.el version " pr-version
3704 " ps-print.el version " ps-print-version
3706 The printing interface buffer has the same functionality as the printing menu.
3707 The major difference is that the states (like sending PostScript generated to a
3708 file, n-up printing, etc.) are set and saved between priting buffer
3709 activation. Also, the landscape, duplex and tumble values are the same for
3710 PostScript file and directory/buffer/region/mode processing; using menu, there
3711 are different value sets for PostScript file and directory/buffer/region/mode
3714 The printing interface buffer has the following sections:
3718 Here you can choose to print/preview a buffer, a directory or a PostScript
3724 Select a buffer from the current buffer list.
3727 If it's on, this means that the selected buffer has an active region,
3728 so you can turn on/off, as you wish.
3729 If it's off when a buffer is selected, this means that the selected
3730 buffer has no active region, so it'll not be possible to turn it on.
3731 If you want to process the region, let this option on.
3732 If you want to process the whole buffer, let this option off.
3735 If it's on, this means that the selected buffer major mode is declared
3736 for major mode processing, so you can turn on/off, as you wish.
3737 If it's off when a buffer is selected, this means that the selected
3738 buffer major mode isn't declared for major mode processing, so it'll
3739 not be possible to turn it on.
3740 If you want the major mode processing, let this option on.
3741 If you don't want the major mode processing, let this option off.
3743 NOTE 1: It's possible to customize a major mode printing, just declare
3744 the customization in `pr-mode-alist' and invoke some of
3745 `*-mode*' commands or select Mode option in Printing menu. An
3746 example for major mode usage is when you're using gnus (or mh,
3747 or rmail, etc.) and you're in the *Summary* buffer, if you
3748 forget to switch to the *Article* buffer before printing,
3749 you'll get a nicely formatted list of article subjects shows
3750 up at the printer. With major mode printing you don't need to
3751 switch from gnus *Summary* buffer first.
3756 Specify a valid directory path.
3759 Specify a file name regexp. All file names in the directory that
3760 match with regexp will be printed/previewed. An empty file name
3761 regexp means to print/preview all files in the directory.
3763 * List Directory Entry:
3764 If it's turned on, list directory entries besides file entries.
3766 1c. PostScript file:
3769 Specify an existent PostScript file to print/preview.
3771 * PostScript Utility:
3772 Select a PostScript utility.
3773 See `pr-ps-utility-alist' and `pr-setting-database' for documentation.
3775 NOTE 2: Don't forget to download and install the utilities declared on
3776 `pr-ps-utility-alist'.
3779 If it's turned on, don't use the PostScript utility to preprocess the
3780 PostScript file before printing/previewing.
3782 2. PostScript printer:
3784 * PostScript Printer:
3785 You can select a new PostScript printer to send PostScript code
3786 generated. For selection it's used all PostScript printers defined
3787 in `pr-ps-printer-alist' variable (see it for documentation).
3788 See also `pr-setting-database'.
3791 If spooling is on, you can turn it on/off, as you wish.
3792 If spooling is off, it'll not be possible to turn it on.
3793 If it's turned on, specify to despools the PostScript spooling buffer in
3794 a temporary file or in the selected PostScript file when
3795 printing/previewing.
3798 Preview the PostScript generated.
3801 Print the PostScript generated.
3804 Quit from printing interface buffer.
3806 * Send to Printer/Temporary File:
3807 If it's turned on, the PostScript generated is sent directly to
3808 PostScript printer or, for previewing, to a temporary file.
3811 Specify a file name to send the PostScript generated.
3814 Specify n-up printing.
3819 Select a new text printer to send text generated. For selection it's used
3820 all text printers defined in `pr-txt-printer-alist' variable (see it for
3821 documentation). See also `pr-setting-database'.
3824 If you have control characters (character code from \\000 to \\037) in a
3825 buffer and you want to print them in a text printer, select this
3826 option. All control characters in your buffer or region will be
3827 replaced by a printable representation. The printable representations
3828 use ^ (for ASCII control characters) or hex. The characters tab,
3829 linefeed, space, return and formfeed are not affected.
3830 You don't need to select this option if you use any option of section
3831 I, the PostScript engine treats control characters properly.
3834 To print a directory, buffer, region or major mode in a
3835 text printer, select this option. See also the NOTE 1 on section 1.
3838 Quit from printing interface buffer.
3842 There are 3 setting columns:
3844 4a. First column (left column):
3847 PostScript landscape printing.
3850 To have a header in each page in your PostScript code.
3852 * Print Header Frame:
3853 To draw a gaudy frame around the header.
3856 The line number is printed in your PostScript code.
3859 Background zebra stripes in your PostScript code.
3862 Duplex printing (if your PostScript printer has this feature).
3865 If duplex printing is on, you can choose if you want to have a
3866 printing suitable for binding on the left or right (tumble off), or to
3867 have a printing suitable for binding at top or bottom (tumble on).
3870 PostScript upside-down printing.
3872 4b. Second column (middle column):
3875 If you want that region is automagically detected, turn on this
3876 option. Note that this will only work if you're using transient mark
3877 mode. When this option is on, the `*-buffer*' commands will behave
3878 like `*-region*' commands, that is, `*-buffer*' commands will print
3879 only the region marked instead of all buffer.
3882 Turn this option on if you want that when current major-mode is
3883 declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
3884 behave like `*-mode*' commands.
3887 If you want that Printing menu stays open while you are setting
3888 toggle options, turn on this option. The variables
3889 `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
3890 menu position, so don't forget to adjust these variables if menu
3894 To spool the PostScript code generated. You can despool later by
3895 setting Despool option on PostScript printer section.
3898 If you use colors in your buffers and want to see these colors on your
3899 PostScript code generated, turn on this option. If you have a
3900 black/white PostScript printer, these colors are displayed in gray
3901 scale by PostScript printer interpreter.
3903 * Print via Ghostscript:
3904 If you don't have a PostScript printer to send PostScript files, turn
3905 on this option. When this option is on, the ghostscript is used to
3906 print PostScript files. In GNU or Unix system, if ghostscript is set
3907 as a PostScript filter, you don't need to turn on this option.
3910 To print all pages, odd pages, even pages, odd sheets or even sheets.
3911 See also `ps-even-or-odd-pages'.
3913 4c. Third column (right column):
3916 That is, to be verbose when editing a field in interface buffer.
3920 Besides all options in section 4, you can customize much more PostScript
3921 options in `ps-print' option. Or you can customize some `lpr' options for
3922 text printing. Or customize `printing' options.
3926 Show current settings for `printing', `ps-print' or `lpr'.
3930 Quick help for printing interface buffer and printing menu layout. You can
3931 also quit the printing interface buffer or kill all printing help buffer.
3933 "Printing buffer interface help message.")
3936 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3941 (defun pr-interface (&optional buffer
)
3942 "Activate the printing interface buffer.
3944 If BUFFER is nil, the current buffer is used for printing.
3946 For more information, type \\[pr-interface-help]."
3949 (set-buffer (or buffer
(current-buffer)))
3950 (pr-create-interface)))
3954 (defun pr-ps-directory-preview (n-up dir file-regexp
&optional filename
)
3955 "Preview directory using ghostview.
3957 Interactively, the command prompts for N-UP printing number, a directory, a
3958 file name regexp for matching and, when you use a prefix argument (C-u), the
3959 command prompts the user for a file name, and saves the PostScript image in
3960 that file instead of saving it in a temporary file.
3962 Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
3963 nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
3964 FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
3965 save the image in a temporary file. If FILENAME is a string, save the
3966 PostScript image in a file with that name. If FILENAME is t, prompts for a
3969 See also documentation for `pr-list-directory'."
3970 (interactive (pr-interactive-ps-dir-args (pr-prompt "PS preview dir")))
3971 (pr-set-ps-dir-args 'n-up
'dir
'file-regexp
'filename
3972 (pr-prompt "PS preview dir"))
3973 (setq filename
(pr-ps-file filename
))
3974 (pr-ps-file-list n-up dir file-regexp filename
)
3976 (pr-ps-file-preview filename
)))
3980 (defun pr-ps-directory-using-ghostscript (n-up dir file-regexp
&optional filename
)
3981 "Print directory using PostScript through ghostscript.
3983 Interactively, the command prompts for N-UP printing number, a directory, a
3984 file name regexp for matching and, when you use a prefix argument (C-u), the
3985 command prompts the user for a file name, and saves the PostScript image in
3986 that file instead of saving it in a temporary file.
3988 Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
3989 nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
3990 FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
3991 save the image in a temporary file. If FILENAME is a string, save the
3992 PostScript image in a file with that name. If FILENAME is t, prompts for a
3995 See also documentation for `pr-list-directory'."
3996 (interactive (pr-interactive-ps-dir-args (pr-prompt "PS print dir GS")))
3997 (pr-set-ps-dir-args 'n-up
'dir
'file-regexp
'filename
3998 (pr-prompt "PS print dir GS"))
3999 (let ((file (pr-ps-file filename
)))
4000 (pr-ps-file-list n-up dir file-regexp file
)
4001 (pr-ps-file-using-ghostscript file
)
4002 (or filename
(pr-delete-file file
))))
4006 (defun pr-ps-directory-print (n-up dir file-regexp
&optional filename
)
4007 "Print directory using PostScript printer.
4009 Interactively, the command prompts for N-UP printing number, a directory, a
4010 file name regexp for matching and, when you use a prefix argument (C-u), the
4011 command prompts the user for a file name, and saves the PostScript image in
4012 that file instead of saving it in a temporary file.
4014 Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
4015 nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
4016 FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
4017 save the image in a temporary file. If FILENAME is a string, save the
4018 PostScript image in a file with that name. If FILENAME is t, prompts for a
4021 See also documentation for `pr-list-directory'."
4022 (interactive (pr-interactive-ps-dir-args (pr-prompt "PS print dir")))
4023 (pr-set-ps-dir-args 'n-up
'dir
'file-regexp
'filename
4024 (pr-prompt "PS print dir"))
4025 (let ((file (pr-ps-file filename
)))
4026 (pr-ps-file-list n-up dir file-regexp file
)
4027 (pr-ps-file-print file
)
4028 (or filename
(pr-delete-file file
))))
4032 (defun pr-ps-directory-ps-print (n-up dir file-regexp
&optional filename
)
4033 "Print directory using PostScript printer or through ghostscript.
4035 It depends on `pr-print-using-ghostscript'.
4037 Interactively, the command prompts for N-UP printing number, a directory, a
4038 file name regexp for matching and, when you use a prefix argument (C-u), the
4039 command prompts the user for a file name, and saves the PostScript image in
4040 that file instead of saving it in a temporary file.
4042 Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is
4043 nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for
4044 FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil,
4045 save the image in a temporary file. If FILENAME is a string, save the
4046 PostScript image in a file with that name. If FILENAME is t, prompts for a
4049 See also documentation for `pr-list-directory'."
4050 (interactive (pr-interactive-ps-dir-args
4051 (pr-prompt (pr-prompt-gs "PS print dir"))))
4052 (pr-set-ps-dir-args 'n-up
'dir
'file-regexp
'filename
4053 (pr-prompt (pr-prompt-gs "PS print dir")))
4054 (if (pr-using-ghostscript-p)
4055 (pr-ps-directory-using-ghostscript n-up dir file-regexp filename
)
4056 (pr-ps-directory-print n-up dir file-regexp filename
)))
4060 (defun pr-ps-buffer-preview (n-up &optional filename
)
4061 "Preview buffer using ghostview.
4063 Interactively, the command prompts for N-UP printing number and, when you use a
4064 prefix argument (C-u), the command prompts the user for a file name, and saves
4065 the PostScript image in that file instead of saving it in a temporary file.
4067 Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
4068 argument FILENAME is treated as follows: if it's nil, save the image in a
4069 temporary file. If FILENAME is a string, save the PostScript image in a file
4070 with that name. If FILENAME is t, prompts for a file name."
4071 (interactive (pr-interactive-n-up-file (pr-prompt "PS preview")))
4072 (if (pr-auto-mode-p)
4073 (pr-ps-mode-preview n-up filename
)
4074 (pr-ps-preview (pr-region-active-symbol) n-up filename
4075 (pr-region-active-string "PS preview"))))
4079 (defun pr-ps-buffer-using-ghostscript (n-up &optional filename
)
4080 "Print buffer using PostScript through ghostscript.
4082 Interactively, the command prompts for N-UP printing number and, when you use a
4083 prefix argument (C-u), the command prompts the user for a file name, and saves
4084 the PostScript image in that file instead of sending it to the printer.
4086 Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
4087 argument FILENAME is treated as follows: if it's nil, send the image to the
4088 printer. If FILENAME is a string, save the PostScript image in a file with
4089 that name. If FILENAME is t, prompts for a file name."
4090 (interactive (pr-interactive-n-up-file (pr-prompt "PS print GS")))
4091 (if (pr-auto-mode-p)
4092 (pr-ps-mode-using-ghostscript n-up filename
)
4093 (pr-ps-using-ghostscript (pr-region-active-symbol) n-up filename
4094 (pr-region-active-string "PS print GS"))))
4098 (defun pr-ps-buffer-print (n-up &optional filename
)
4099 "Print buffer using PostScript printer.
4101 Interactively, the command prompts for N-UP printing number and, when you use a
4102 prefix argument (C-u), the command prompts the user for a file name, and saves
4103 the PostScript image in that file instead of sending it to the printer.
4105 Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
4106 argument FILENAME is treated as follows: if it's nil, send the image to the
4107 printer. If FILENAME is a string, save the PostScript image in a file with
4108 that name. If FILENAME is t, prompts for a file name."
4109 (interactive (pr-interactive-n-up-file (pr-prompt "PS print")))
4110 (if (pr-auto-mode-p)
4111 (pr-ps-mode-print n-up filename
)
4112 (pr-ps-print (pr-region-active-symbol) n-up filename
4113 (pr-region-active-string "PS print"))))
4117 (defun pr-ps-buffer-ps-print (n-up &optional filename
)
4118 "Print buffer using PostScript printer or through ghostscript.
4120 It depends on `pr-print-using-ghostscript'.
4122 Interactively, the command prompts for N-UP printing number and, when you use a
4123 prefix argument (C-u), the command prompts the user for a file name, and saves
4124 the PostScript image in that file instead of sending it to the printer.
4126 Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
4127 argument FILENAME is treated as follows: if it's nil, send the image to the
4128 printer. If FILENAME is a string, save the PostScript image in a file with
4129 that name. If FILENAME is t, prompts for a file name."
4130 (interactive (pr-interactive-n-up-file
4131 (pr-prompt (pr-prompt-gs "PS print"))))
4132 (cond ((pr-auto-mode-p)
4133 (pr-ps-mode-ps-print n-up filename
))
4134 ((pr-using-ghostscript-p)
4135 (pr-ps-using-ghostscript (pr-region-active-symbol) n-up filename
4136 (pr-region-active-string "PS print GS")))
4138 (pr-ps-print (pr-region-active-symbol) n-up filename
4139 (pr-region-active-string "PS print")))))
4143 (defun pr-ps-region-preview (n-up &optional filename
)
4144 "Preview region using ghostview.
4146 See also `pr-ps-buffer-preview'."
4147 (interactive (pr-interactive-n-up-file (pr-prompt-region "PS preview")))
4148 (if (pr-auto-mode-p)
4149 (let ((pr-auto-region t
))
4150 (pr-ps-mode-preview n-up filename
))
4151 (pr-ps-preview 'region n-up filename
"PS preview region")))
4155 (defun pr-ps-region-using-ghostscript (n-up &optional filename
)
4156 "Print region using PostScript through ghostscript.
4158 See also `pr-ps-buffer-using-ghostscript'."
4159 (interactive (pr-interactive-n-up-file (pr-prompt-region "PS print GS")))
4160 (if (pr-auto-mode-p)
4161 (let ((pr-auto-region t
))
4162 (pr-ps-mode-using-ghostscript n-up filename
))
4163 (pr-ps-using-ghostscript 'region n-up filename
"PS print GS region")))
4167 (defun pr-ps-region-print (n-up &optional filename
)
4168 "Print region using PostScript printer.
4170 See also `pr-ps-buffer-print'."
4171 (interactive (pr-interactive-n-up-file (pr-prompt-region "PS print")))
4172 (if (pr-auto-mode-p)
4173 (let ((pr-auto-region t
))
4174 (pr-ps-mode-print n-up filename
))
4175 (pr-ps-print 'region n-up filename
"PS print region")))
4179 (defun pr-ps-region-ps-print (n-up &optional filename
)
4180 "Print region using PostScript printer or through ghostscript.
4182 See also `pr-ps-buffer-ps-print'."
4183 (interactive (pr-interactive-n-up-file
4184 (pr-prompt-region (pr-prompt-gs "PS print"))))
4185 (cond ((pr-auto-mode-p)
4186 (let ((pr-auto-region t
))
4187 (pr-ps-mode-ps-print n-up filename
)))
4188 ((pr-using-ghostscript-p)
4189 (pr-ps-using-ghostscript 'region n-up filename
"PS print GS region"))
4191 (pr-ps-print 'region n-up filename
"PS print region"))))
4195 (defun pr-ps-mode-preview (n-up &optional filename
)
4196 "Preview major mode using ghostview.
4198 See also `pr-ps-buffer-preview'."
4199 (interactive (pr-interactive-n-up-file "PS preview mode"))
4200 (pr-set-n-up-and-filename 'n-up
'filename
"PS preview mode")
4201 (let ((file (pr-ps-file filename
)))
4202 (and (pr-ps-mode n-up file
)
4204 (pr-ps-file-preview file
))))
4208 (defun pr-ps-mode-using-ghostscript (n-up &optional filename
)
4209 "Print major mode using PostScript through ghostscript.
4211 See also `pr-ps-buffer-using-ghostscript'."
4212 (interactive (pr-interactive-n-up-file "PS print GS mode"))
4213 (pr-set-n-up-and-filename 'n-up
'filename
"PS print GS mode")
4214 (let ((file (pr-ps-file filename
)))
4215 (when (and (pr-ps-mode n-up file
)
4217 (pr-ps-file-using-ghostscript file
)
4218 (or filename
(pr-delete-file file
)))))
4222 (defun pr-ps-mode-print (n-up &optional filename
)
4223 "Print major mode using PostScript printer.
4225 See also `pr-ps-buffer-print'."
4226 (interactive (pr-interactive-n-up-file "PS print mode"))
4227 (pr-set-n-up-and-filename 'n-up
'filename
"PS print mode")
4228 (pr-ps-mode n-up filename
))
4232 (defun pr-ps-mode-ps-print (n-up &optional filename
)
4233 "Print major mode using PostScript or through ghostscript.
4235 See also `pr-ps-buffer-ps-print'."
4236 (interactive (pr-interactive-n-up-file (pr-prompt-gs "PS print mode")))
4237 (if (pr-using-ghostscript-p)
4238 (pr-ps-mode-using-ghostscript n-up filename
)
4239 (pr-ps-mode-print n-up filename
)))
4243 (defun pr-printify-directory (&optional dir file-regexp
)
4244 "Replace nonprinting characters in directory with printable representations.
4245 The printable representations use ^ (for ASCII control characters) or hex.
4246 The characters tab, linefeed, space, return and formfeed are not affected.
4248 Interactively, the command prompts for a directory and a file name regexp for
4251 Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil,
4252 prompts for FILE(name)-REGEXP.
4254 See also documentation for `pr-list-directory'."
4255 (interactive (pr-interactive-dir-args "Printify dir"))
4256 (pr-set-dir-args 'dir
'file-regexp
"Printify dir")
4257 (pr-file-list dir file-regexp
'pr-printify-buffer
))
4261 (defun pr-printify-buffer ()
4262 "Replace nonprinting characters in buffer with printable representations.
4263 The printable representations use ^ (for ASCII control characters) or hex.
4264 The characters tab, linefeed, space, return and formfeed are not affected."
4266 (if (pr-region-active-p)
4267 (pr-printify-region)
4268 (printify-region (point-min) (point-max))))
4272 (defun pr-printify-region ()
4273 "Replace nonprinting characters in region with printable representations.
4274 The printable representations use ^ (for ASCII control characters) or hex.
4275 The characters tab, linefeed, space, return and formfeed are not affected."
4277 (printify-region (point) (mark)))
4281 (defun pr-txt-directory (&optional dir file-regexp
)
4282 "Print directory using text printer.
4284 Interactively, the command prompts for a directory and a file name regexp for
4287 Noninteractively, if DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil,
4288 prompts for FILE(name)-REGEXP.
4290 See also documentation for `pr-list-directory'."
4291 (interactive (pr-interactive-dir-args "Print dir"))
4292 (pr-set-dir-args 'dir
'file-regexp
"Print dir")
4293 (pr-file-list dir file-regexp
'pr-txt-buffer
))
4297 (defun pr-txt-buffer ()
4298 "Print buffer using text printer."
4300 (cond ((pr-auto-mode-p)
4302 ((pr-region-active-p)
4305 (pr-txt-print (point-min) (point-max)))))
4309 (defun pr-txt-region ()
4310 "Print region using text printer."
4312 (if (pr-auto-mode-p)
4313 (let ((pr-auto-region t
))
4315 (pr-txt-print (point) (mark))))
4319 (defun pr-txt-mode ()
4320 "Print major mode using text printer."
4322 (let ((args (pr-mode-alist-p)))
4324 (funcall (car args
) (nthcdr 2 args
))
4326 (message "`%s' major mode not declared." major-mode
))))
4330 (defun pr-despool-preview (&optional filename
)
4331 "Preview spooled PostScript.
4333 Interactively, when you use a prefix argument (C-u), the command prompts the
4334 user for a file name, and saves the spooled PostScript image in that file
4335 instead of saving it in a temporary file.
4337 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4338 save the image in a temporary file. If FILENAME is a string, save the
4339 PostScript image in a file with that name."
4340 (interactive (list (ps-print-preprint current-prefix-arg
)))
4341 (let ((file (pr-ps-file filename
)))
4342 (when (stringp file
)
4343 (pr-despool-print file
)
4344 (pr-ps-file-preview file
))))
4348 (defun pr-despool-using-ghostscript (&optional filename
)
4349 "Print spooled PostScript using ghostscript.
4351 Interactively, when you use a prefix argument (C-u), the command prompts the
4352 user for a file name, and saves the spooled PostScript image in that file
4353 instead of sending it to the printer.
4355 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4356 send the image to the printer. If FILENAME is a string, save the PostScript
4357 image in a file with that name."
4358 (interactive (list (ps-print-preprint current-prefix-arg
)))
4359 (let ((file (pr-ps-file filename
)))
4360 (when (stringp file
)
4361 (pr-despool-print file
)
4362 (pr-ps-file-using-ghostscript file
)
4363 (or filename
(pr-delete-file file
)))))
4367 (defun pr-despool-print (&optional filename
)
4368 "Send the spooled PostScript to the printer.
4370 Interactively, when you use a prefix argument (C-u), the command prompts the
4371 user for a file name, and saves the spooled PostScript image in that file
4372 instead of sending it to the printer.
4374 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4375 send the image to the printer. If FILENAME is a string, save the PostScript
4376 image in a file with that name."
4377 (interactive (list (ps-print-preprint current-prefix-arg
)))
4379 (let ((ps-lpr-command (pr-command pr-ps-command
))
4380 (ps-lpr-switches pr-ps-switches
)
4381 (ps-printer-name-option pr-ps-printer-switch
)
4382 (ps-printer-name pr-ps-printer
))
4383 (ps-despool filename
))))
4387 (defun pr-despool-ps-print (&optional filename
)
4388 "Send the spooled PostScript to the printer or use ghostscript to print it.
4390 Interactively, when you use a prefix argument (C-u), the command prompts the
4391 user for a file name, and saves the spooled PostScript image in that file
4392 instead of sending it to the printer.
4394 Noninteractively, the argument FILENAME is treated as follows: if it is nil,
4395 send the image to the printer. If FILENAME is a string, save the PostScript
4396 image in a file with that name."
4397 (interactive (list (ps-print-preprint current-prefix-arg
)))
4398 (if pr-print-using-ghostscript
4399 (pr-despool-using-ghostscript filename
)
4400 (pr-despool-print filename
)))
4404 (defun pr-ps-file-preview (filename)
4405 "Preview PostScript file FILENAME."
4406 (interactive (list (pr-ps-infile-preprint "Preview ")))
4407 (and (stringp filename
) (file-exists-p filename
)
4408 (pr-call-process pr-gv-command filename
)))
4412 (defun pr-ps-file-up-preview (n-up ifilename
&optional ofilename
)
4413 "Preview PostScript file FILENAME."
4414 (interactive (pr-interactive-n-up-inout "PS preview"))
4415 (let ((outfile (pr-ps-utility-args 'n-up
'ifilename
'ofilename
4417 (pr-ps-utility-process n-up ifilename outfile
)
4418 (pr-ps-file-preview outfile
)))
4422 (defun pr-ps-file-using-ghostscript (filename)
4423 "Print PostScript file FILENAME using ghostscript."
4424 (interactive (list (pr-ps-infile-preprint "Print preview ")))
4425 (and (stringp filename
) (file-exists-p filename
)
4426 (let* ((file (pr-expand-file-name filename
))
4427 (tempfile (pr-dosify-file-name (make-temp-file file
))))
4429 (pr-call-process pr-gs-command
4430 (format "-sDEVICE=%s" pr-gs-device
)
4431 (format "-r%d" pr-gs-resolution
)
4432 (pr-switches-string pr-gs-switches
"pr-gs-switches")
4433 (format "-sOutputFile=\"%s\"" tempfile
)
4437 (pr-ps-file-print tempfile
)
4439 (pr-delete-file tempfile
))))
4443 (defun pr-ps-file-print (filename)
4444 "Print PostScript file FILENAME."
4445 (interactive (list (pr-ps-infile-preprint "Print ")))
4446 (and (stringp filename
) (file-exists-p filename
)
4448 (let ((file (pr-expand-file-name filename
)))
4449 (if (string= pr-ps-command
"")
4451 (let ((ps-spool-buffer (get-buffer-create ps-spool-buffer-name
)))
4453 (set-buffer ps-spool-buffer
)
4455 (insert-file-contents-literally file
))
4457 ;; use `pr-ps-command' to print
4458 (apply 'pr-call-process
4460 (pr-switches-string pr-ps-switches
"pr-ps-switches")
4461 (if (string-match "cp" pr-ps-command
)
4462 ;; for "cp" (cmd in out)
4464 (concat pr-ps-printer-switch pr-ps-printer
))
4465 ;; else, for others (cmd out in)
4466 (list (concat pr-ps-printer-switch pr-ps-printer
)
4471 (defun pr-ps-file-ps-print (filename)
4472 "Send PostScript file FILENAME to printer or use ghostscript to print it."
4473 (interactive (list (pr-ps-infile-preprint
4474 (if pr-print-using-ghostscript
4477 (if pr-print-using-ghostscript
4478 (pr-ps-file-using-ghostscript filename
)
4479 (pr-ps-file-print filename
)))
4483 (defun pr-ps-file-up-ps-print (n-up ifilename
&optional ofilename
)
4484 "Process a PostScript file IFILENAME and send it to printer.
4486 Interactively, the command prompts for N-UP printing number, for an input
4487 PostScript file IFILENAME and, when you use a prefix argument (C-u), the
4488 command prompts the user for an output PostScript file name OFILENAME, and
4489 saves the PostScript image in that file instead of sending it to the printer.
4491 Noninteractively, if N-UP is nil, prompts for N-UP printing number. The
4492 argument IFILENAME is treated as follows: if it's t, prompts for an input
4493 PostScript file name; otherwise, it *must* be a string that it's an input
4494 PostScript file name. The argument OFILENAME is treated as follows: if it's
4495 nil, send the image to the printer. If OFILENAME is a string, save the
4496 PostScript image in a file with that name. If OFILENAME is t, prompts for a
4498 (interactive (pr-interactive-n-up-inout
4499 (if pr-print-using-ghostscript
4502 (let ((outfile (pr-ps-utility-args 'n-up
'ifilename
'ofilename
4503 (if pr-print-using-ghostscript
4506 (pr-ps-utility-process n-up ifilename outfile
)
4508 (pr-ps-file-ps-print outfile
)
4509 (pr-delete-file outfile
))))
4513 (defun pr-toggle-file-duplex ()
4514 "Toggle duplex for PostScript file."
4516 (pr-toggle-file-duplex-menu t
))
4520 (defun pr-toggle-file-tumble ()
4521 "Toggle tumble for PostScript file.
4523 If tumble is off, produces a printing suitable for binding on the left or
4525 If tumble is on, produces a printing suitable for binding at the top or
4528 (pr-toggle-file-tumble-menu t
))
4532 (defun pr-toggle-file-landscape ()
4533 "Toggle landscape for PostScript file."
4535 (pr-toggle-file-landscape-menu t
))
4539 (defun pr-toggle-ghostscript ()
4540 "Toggle printing using ghostscript."
4542 (pr-toggle-ghostscript-menu t
))
4546 (defun pr-toggle-faces ()
4547 "Toggle printing with faces."
4549 (pr-toggle-faces-menu t
))
4553 (defun pr-toggle-spool ()
4556 (pr-toggle-spool-menu t
))
4560 (defun pr-toggle-duplex ()
4563 (pr-toggle-duplex-menu t
))
4567 (defun pr-toggle-tumble ()
4570 If tumble is off, produces a printing suitable for binding on the left or
4572 If tumble is on, produces a printing suitable for binding at the top or
4575 (pr-toggle-tumble-menu t
))
4579 (defun pr-toggle-landscape ()
4582 (pr-toggle-landscape-menu t
))
4586 (defun pr-toggle-upside-down ()
4587 "Toggle upside-down."
4589 (pr-toggle-upside-down-menu t
))
4593 (defun pr-toggle-line ()
4594 "Toggle line number."
4596 (pr-toggle-line-menu t
))
4600 (defun pr-toggle-zebra ()
4601 "Toggle zebra stripes."
4603 (pr-toggle-zebra-menu t
))
4607 (defun pr-toggle-header ()
4608 "Toggle printing header."
4610 (pr-toggle-header-menu t
))
4614 (defun pr-toggle-header-frame ()
4615 "Toggle printing header frame."
4617 (pr-toggle-header-frame-menu t
))
4621 (defun pr-toggle-lock ()
4624 (pr-toggle-lock-menu t
))
4628 (defun pr-toggle-region ()
4629 "Toggle auto region."
4631 (pr-toggle-region-menu t
))
4635 (defun pr-toggle-mode ()
4638 (pr-toggle-mode-menu t
))
4642 (defun pr-customize (&rest ignore
)
4643 "Customization of the `printing' group."
4645 (customize-group 'printing
))
4649 (defun lpr-customize (&rest ignore
)
4650 "Customization of the `lpr' group."
4652 (customize-group 'lpr
))
4656 (defun pr-help (&rest ignore
)
4657 "Help for the printing package."
4659 (pr-show-setup pr-help-message
"*Printing Help*"))
4663 (defun pr-ps-name ()
4664 "Interactively select a PostScript printer."
4666 (pr-menu-set-ps-title
4667 (pr-complete-alist "PostScript printer"
4668 pr-ps-printer-alist pr-ps-name
)))
4672 (defun pr-txt-name ()
4673 "Interactively select a text printer."
4675 (pr-menu-set-txt-title
4676 (pr-complete-alist "Text printer"
4677 pr-txt-printer-alist pr-txt-name
)))
4681 (defun pr-ps-utility ()
4682 "Interactively select a PostScript utility."
4684 (pr-menu-set-utility-title
4685 (pr-complete-alist "Postscript utility"
4686 pr-ps-utility-alist pr-ps-utility
)))
4690 (defun pr-show-ps-setup (&rest ignore
)
4691 "Show current ps-print settings."
4693 (pr-show-setup (ps-setup) "*PS Setup*"))
4697 (defun pr-show-pr-setup (&rest ignore
)
4698 "Show current printing settings."
4700 (pr-show-setup (pr-setup) "*PR Setup*"))
4704 (defun pr-show-lpr-setup (&rest ignore
)
4705 "Show current lpr settings."
4707 (pr-show-setup (lpr-setup) "*LPR Setup*"))
4710 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4715 (defun pr-ps-fast-fire (n-up &optional select
)
4716 "Fast fire function for PostScript printing.
4718 If a region is active, the region will be printed instead of the whole buffer.
4719 Also if the current major-mode is defined in `pr-mode-alist', the settings in
4720 `pr-mode-alist' will be used, that is, the current buffer or region will be
4721 printed using `pr-ps-mode-ps-print'.
4724 Interactively, you have the following situations:
4726 M-x pr-ps-fast-fire RET
4727 The command prompts the user for a N-UP value and printing will
4728 immediatelly be done using the current active printer.
4730 C-u M-x pr-ps-fast-fire RET
4731 C-u 0 M-x pr-ps-fast-fire RET
4732 The command prompts the user for a N-UP value and also for a current
4733 PostScript printer, then printing will immediatelly be done using the new
4734 current active printer.
4736 C-u 1 M-x pr-ps-fast-fire RET
4737 The command prompts the user for a N-UP value and also for a file name,
4738 and saves the PostScript image in that file instead of sending it to the
4741 C-u 2 M-x pr-ps-fast-fire RET
4742 The command prompts the user for a N-UP value, then for a current
4743 PostScript printer and, finally, for a file name. Then change the active
4744 printer to that chosen by user and saves the PostScript image in
4745 that file instead of sending it to the printer.
4748 Noninteractively, the argument N-UP should be a positive integer greater than
4749 zero and the argument SELECT is treated as follows:
4751 If it's nil, send the image to the printer.
4753 If it's a list or an integer lesser or equal to zero, the command prompts
4754 the user for a current PostScript printer, then printing will immediatelly
4755 be done using the new current active printer.
4757 If it's an integer equal to 1, the command prompts the user for a file name
4758 and saves the PostScript image in that file instead of sending it to the
4761 If it's an integer greater or equal to 2, the command prompts the user for a
4762 current PostScript printer and for a file name. Then change the active
4763 printer to that chosen by user and saves the PostScript image in that file
4764 instead of sending it to the printer.
4766 If it's a symbol which it's defined in `pr-ps-printer-alist', it's the new
4767 active printer and printing will immediatelly be done using the new active
4770 Otherwise, send the image to the printer.
4773 Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
4775 (interactive (list (pr-interactive-n-up (pr-prompt-gs "PS print fast"))
4776 current-prefix-arg
))
4777 (let ((pr-auto-region t
)
4780 (cond ((null select
))
4783 ((and (symbolp select
)
4784 (assq select pr-ps-printer-alist
))
4785 (pr-menu-set-ps-title select
))
4789 (and (>= select
1) (not pr-spool-p
)
4790 (setq filename
(pr-ps-outfile-preprint
4791 (if pr-print-using-ghostscript
4794 (pr-ps-buffer-ps-print
4796 (min (max n-up
1) 100)
4797 (error "n-up must be an integer greater than zero"))
4802 (defun pr-txt-fast-fire (&optional select-printer
)
4803 "Fast fire function for text printing.
4805 If a region is active, the region will be printed instead of the whole buffer.
4806 Also if the current major-mode is defined in `pr-mode-alist', the settings in
4807 `pr-mode-alist' will be used, that is, the current buffer or region will be
4808 printed using `pr-txt-mode'.
4810 Interactively, when you use a prefix argument (C-u), the command prompts the
4811 user for a new active text printer.
4813 Noninteractively, the argument SELECT-PRINTER is treated as follows:
4815 If it's nil, the printing is sent to the current active text printer.
4817 If it's a symbol which it's defined in `pr-txt-printer-alist', it's the new
4818 active printer and printing will immediatelly be done using the new active
4821 If it's non-nil, the command prompts the user for a new active text printer.
4823 Note that this command always behaves as if `pr-auto-region' and `pr-auto-mode'
4825 (interactive (list current-prefix-arg
))
4826 (cond ((null select-printer
))
4827 ((and (symbolp select-printer
)
4828 (assq select-printer pr-txt-printer-alist
))
4829 (pr-menu-set-txt-title select-printer
))
4832 (let ((pr-auto-region t
)
4837 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4842 "Return the current `printing' setup.
4844 This is *not* an interactive command.
4845 One way to see `printing' setup is to switch to a *Scratch* buffer and type:
4847 M-: (insert (pr-setup)) RET
4849 Or choose the menu option Printing/Show Settings/printing."
4850 (let (ps-prefix-quote)
4854 (concat "\n;;; printing.el version " pr-version
"\n")
4856 (ps-comment-string "emacs-version " emacs-version
)
4857 (ps-comment-string "pr-txt-command " pr-txt-command
)
4858 (ps-comment-string "pr-txt-switches "
4859 (pr-switches-string pr-txt-switches
"pr-txt-switches"))
4860 (ps-comment-string "pr-txt-printer " pr-txt-printer
)
4861 (ps-comment-string "pr-ps-command " pr-ps-command
)
4862 (ps-comment-string "pr-ps-switches "
4863 (pr-switches-string pr-ps-switches
"pr-ps-switches"))
4864 (ps-comment-string "pr-ps-printer-switch" pr-ps-printer-switch
)
4865 (ps-comment-string "pr-ps-printer " pr-ps-printer
)
4866 (ps-comment-string "pr-cygwin-system " pr-cygwin-system
)
4867 (ps-comment-string "ps-windows-system " ps-windows-system
)
4868 (ps-comment-string "ps-lp-system " ps-lp-system
)
4870 '(14 . pr-path-style
)
4871 '(14 . pr-path-alist
)
4874 '(21 . pr-txt-printer-alist
)
4877 '(20 . pr-ps-printer-alist
)
4880 '(20 . pr-ps-temp-file
)
4881 '(20 . pr-file-modes
)
4882 '(20 . pr-delete-temp-file
)
4883 '(20 . pr-list-directory
)
4885 '(17 . pr-gv-command
)
4886 '(17 . pr-gs-command
)
4887 '(17 . pr-gs-switches
)
4888 '(17 . pr-gs-device
)
4889 '(17 . pr-gs-resolution
)
4891 '(27 . pr-print-using-ghostscript
)
4894 '(27 . pr-file-landscape
)
4895 '(27 . pr-file-duplex
)
4896 '(27 . pr-file-tumble
)
4897 '(27 . pr-auto-region
)
4898 '(27 . pr-auto-mode
)
4900 '(20 . pr-ps-utility
)
4901 '(20 . pr-ps-utility-alist
)
4903 '(14 . pr-mode-alist
)
4905 '(20 . pr-menu-lock
)
4906 '(20 . pr-menu-char-height
)
4907 '(20 . pr-menu-char-width
)
4909 '(20 . pr-setting-database
)
4911 '(22 . pr-visible-entry-list
)
4913 '(22 . pr-buffer-verbose
)
4914 '(22 . pr-buffer-name
)
4915 '(22 . pr-buffer-name-ignore
)
4916 ")\n\n;;; printing.el - end of settings\n")
4921 "Return the current `lpr' setup.
4923 This is *not* an interactive command.
4924 One way to see `lpr' setup is to switch to a *Scratch* buffer and type:
4926 M-: (insert (lpr-setup)) RET
4928 Or choose the menu option Printing/Show Settings/lpr."
4929 (let (ps-prefix-quote)
4933 "\n;;; lpr.el settings\n"
4934 (ps-comment-string "emacs-version" emacs-version
)
4936 '(25 . printer-name
)
4937 '(25 . lpr-switches
)
4938 '(25 . lpr-add-switches
)
4940 '(25 . lpr-headers-switches
)
4941 '(25 . print-region-function
)
4942 '(25 . lpr-page-header-program
)
4943 '(25 . lpr-page-header-switches
)
4944 ")\n\n;;; lpr.el - end of settings\n")
4948 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4949 ;; mh-e (adapted from mh-e-init.el -- Tom Vogels <tov@ece.cmu.edu>)
4952 (defalias 'pr-mh-get-msg-num
'mh-get-msg-num
)
4953 (defalias 'pr-mh-show
'mh-show
)
4954 (defalias 'pr-mh-start-of-uncleaned-message
'mh-start-of-uncleaned-message
)
4955 (defvar mh-show-buffer nil
)
4958 (defun pr-article-date ()
4959 "Find the date of an article or mail message in current buffer.
4960 Return only the dayname, if present, weekday, month, and year."
4962 (goto-char (point-min))
4963 (if (re-search-forward
4964 "^Date:[ \t]+\\(\\([A-Za-z]+, \\)?[0-9]+ [A-Za-z]+ [0-9]+\\)" nil t
)
4965 (buffer-substring (match-beginning 1) (match-end 1))
4966 (format-time-string "%Y/%m/%d"))))
4969 (defun pr-mh-current-message ()
4970 "Go to mh-inbox current message."
4971 (let ((msg (or (pr-mh-get-msg-num nil
) 0)))
4973 (set-buffer mh-show-buffer
)
4974 (goto-char (point-min))
4975 (pr-mh-start-of-uncleaned-message)
4976 (message "Printing message %d" msg
)))
4979 (defun pr-mh-print-1 (n-up filename header-list
)
4980 "Print mh-inbox current message in PostScript."
4982 (save-window-excursion
4983 (pr-mh-current-message)
4984 (pr-mode-print n-up filename header-list
(point)))))
4987 (defun pr-mh-lpr-1 (header-list)
4988 "Print mh-inbox current message in text printer."
4990 (save-window-excursion
4991 (pr-mh-current-message)
4992 (pr-mode-lpr header-list
(point)))))
4995 (defalias 'pr-mh-print-2
'pr-mode-print
)
4998 (defalias 'pr-mh-lpr-2
'pr-mode-lpr
)
5001 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5002 ;; rmail (hacked from ps-print.el)
5005 (defun pr-rmail-lpr (header-list)
5006 "Print RMAIL current message in text printer."
5007 (pr-lpr-message-from-summary header-list
5008 'rmail-buffer
'rmail-summary-buffer
))
5011 (defun pr-rmail-print (n-up filename header-list
)
5012 "Print RMAIL current message in PostScript."
5013 (pr-ps-message-from-summary n-up filename header-list
5014 'rmail-buffer
'rmail-summary-buffer
))
5017 (defun pr-ps-message-from-summary (n-up filename header-list
5018 summary-buffer summary-default
)
5019 "Print current message in PostScript."
5020 (let ((buf (or (and (boundp summary-buffer
)
5021 (symbol-value summary-buffer
))
5022 (symbol-value summary-default
))))
5023 (and (get-buffer buf
)
5026 (pr-mode-print n-up filename header-list
)))))
5029 (defun pr-lpr-message-from-summary (header-list summary-buffer summary-default
)
5030 "Print current message in text printer."
5031 (let ((buf (or (and (boundp summary-buffer
)
5032 (symbol-value summary-buffer
))
5033 (symbol-value summary-default
))))
5034 (and (get-buffer buf
)
5037 (pr-mode-lpr header-list
)))))
5040 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5041 ;; gnus (hacked from ps-print.el)
5044 (defvar pr-gnus-article
"*Article*")
5047 (defun pr-gnus-print (n-up filename header-list
)
5048 "Print *Article* current message in PostScript."
5049 (pr-ps-message-from-summary n-up filename header-list
5050 'gnus-article-buffer
'pr-gnus-article
))
5053 (defun pr-gnus-lpr (header-list)
5054 "Print *Article* current message in text printer."
5055 (pr-lpr-message-from-summary header-list
5056 'gnus-article-buffer
'pr-gnus-article
))
5059 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5060 ;; vm (hacked from ps-print.el)
5063 (defvar pr-vm-summary
"")
5066 (defun pr-vm-print (n-up filename header-list
)
5067 "Print current vm message in PostScript."
5068 (pr-ps-message-from-summary n-up filename header-list
5069 'vm-mail-buffer
'pr-vm-summary
))
5072 (defun pr-vm-lpr (header-list)
5073 "Print current vm message in text printer."
5074 (pr-lpr-message-from-summary header-list
5075 'vm-mail-buffer
'pr-vm-summary
))
5078 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5082 (defun pr-ps-mode (n-up filename
)
5083 "If current major mode is declared, print it in PostScript."
5084 (let ((args (pr-mode-alist-p)))
5086 (let ((fun (cdr args
)))
5087 (funcall (car fun
) n-up filename
(cdr fun
))
5090 (message "`%s' major mode not declared." major-mode
)
5094 (defmacro pr-local-variable
(header-list &rest body
)
5096 (let ((ps-header-lines (or (nth 0 ,header-list
) ps-header-lines
))
5097 (ps-left-header (or (nth 1 ,header-list
) ps-left-header
))
5098 (ps-right-header (or (nth 2 ,header-list
) ps-right-header
))
5100 (let ((local-var-list (pr-eval-local-alist (nthcdr 4 ,header-list
))))
5102 (and (nth 3 ,header-list
)
5103 (pr-kill-local-variable local-var-list
))))))
5106 (defun pr-mode-print (n-up filename header-list
&optional from to
)
5107 "Print current major mode in PostScript."
5110 (let ((file (pr-ps-file filename
))
5112 ((pr-region-active-p) (region-beginning))
5115 (pr-text2ps (pr-region-active-symbol start
) n-up file start
5117 ((pr-region-active-p) (region-end))
5120 (unless (or pr-spool-p filename
)
5121 (pr-ps-file-print file
)
5122 (pr-delete-file file
)))))
5125 (defun pr-mode-lpr (header-list &optional from to
)
5126 "Print current major mode in text printer."
5129 (pr-txt-print (cond (from)
5130 ((pr-region-active-p) (region-beginning))
5133 ((pr-region-active-p) (region-end))
5137 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5141 (defconst pr-menu-entry-alist
5144 (postscript-options .
9)
5145 (postscript-process .
3)
5149 "Alist that associates menu part with number of items per part.
5151 It's used by `pr-menu-index'.
5153 Each element has the form:
5155 (MENU-PART . NUMBER-OF-ITEMS)
5157 See `pr-visible-entry-alist'.")
5160 (defun pr-menu-index (entry index
)
5162 (cond ((eq entry
'text
)
5164 ((eq entry
'postscript-options
)
5166 ((eq entry
'postscript-process
)
5167 '(postscript text postscript-options
))
5168 ((eq entry
'printing
)
5169 '(postscript text postscript-options postscript-process
))
5175 (setq key
(car base-list
)
5176 base-list
(cdr base-list
))
5177 (and (pr-visible-p key
)
5178 (setq index
(+ index
5179 (cdr (assq key pr-menu-entry-alist
)))))))
5183 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5184 ;; Printer & Utility Selection
5187 (defun pr-update-var (var-sym alist
)
5188 (or (assq (symbol-value var-sym
) alist
)
5189 (set var-sym
(car (car alist
)))))
5192 (defun pr-update-menus (&optional force
)
5193 "Update utility, PostScript and text printer menus.
5195 If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist',
5196 `pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not;
5197 otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is
5198 non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is
5199 non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is
5202 If menu binding was not done, calls `pr-menu-bind'."
5204 (if pr-menu-print-item
; since v6.8.4
5205 ;; There was no menu binding yet, so do it now!
5206 ;; This is a hack to be compatible with old versions of printing.
5207 ;; So, user does not need to change printing calling in init files.
5209 ;; Here menu binding is ok.
5210 (pr-update-var 'pr-ps-name pr-ps-printer-alist
)
5211 (pr-update-var 'pr-txt-name pr-txt-printer-alist
)
5212 (pr-update-var 'pr-ps-utility pr-ps-utility-alist
)
5213 (pr-do-update-menus force
)))
5216 (defvar pr-ps-printer-menu-modified t
5217 "Non-nil means `pr-ps-printer-alist' was modified and we need to update menu.")
5218 (defvar pr-txt-printer-menu-modified t
5219 "Non-nil means `pr-txt-printer-alist' was modified and we need to update menu.")
5220 (defvar pr-ps-utility-menu-modified t
5221 "Non-nil means `pr-ps-utility-alist' was modified and we need to update menu.")
5224 (defconst pr-even-or-odd-alist
5225 '((nil .
"Print All Pages")
5226 (even-page .
"Print Even Pages")
5227 (odd-page .
"Print Odd Pages")
5228 (even-sheet .
"Print Even Sheets")
5229 (odd-sheet .
"Print Odd Sheets")))
5232 (defun pr-menu-create (name alist var-sym fun entry index
)
5236 (let ((sym (car elt
)))
5239 (list fun
(list 'quote sym
) nil
(list 'quote entry
) index
)
5241 :selected
(list 'eq var-sym
(list 'quote sym
)))))
5245 (defun pr-ps-set-utility (value)
5246 (let ((item (cdr (assq value pr-ps-utility-alist
))))
5249 "Invalid PostScript utility name `%s' for variable `pr-ps-utility'"
5251 (setq pr-ps-utility value
)
5252 (pr-eval-alist (nthcdr 9 item
)))
5253 (pr-update-mode-line))
5256 (defun pr-ps-set-printer (value)
5257 (let ((ps (cdr (assq value pr-ps-printer-alist
))))
5260 "Invalid PostScript printer name `%s' for variable `pr-ps-name'"
5262 (setq pr-ps-name value
5263 pr-ps-command
(pr-dosify-file-name (nth 0 ps
))
5264 pr-ps-switches
(nth 1 ps
)
5265 pr-ps-printer-switch
(nth 2 ps
)
5266 pr-ps-printer
(nth 3 ps
))
5267 (or (stringp pr-ps-command
)
5269 (cond (ps-windows-system "print")
5273 (or (stringp pr-ps-printer-switch
)
5274 (setq pr-ps-printer-switch
5275 (cond (ps-windows-system "/D:")
5279 (pr-eval-alist (nthcdr 4 ps
)))
5280 (pr-update-mode-line))
5283 (defun pr-txt-set-printer (value)
5284 (let ((txt (cdr (assq value pr-txt-printer-alist
))))
5286 (error "Invalid text printer name `%s' for variable `pr-txt-name'"
5288 (setq pr-txt-name value
5289 pr-txt-command
(pr-dosify-file-name (nth 0 txt
))
5290 pr-txt-switches
(nth 1 txt
)
5291 pr-txt-printer
(nth 2 txt
)))
5292 (or (stringp pr-txt-command
)
5293 (setq pr-txt-command
5294 (cond (ps-windows-system "print")
5298 (pr-update-mode-line))
5301 (defun pr-eval-alist (alist)
5302 (mapcar #'(lambda (option)
5303 (let ((var-sym (car option
))
5304 (value (cdr option
)))
5305 (if (eq var-sym
'inherits-from
:)
5306 (pr-eval-setting-alist value
'global
)
5307 (set var-sym
(eval value
)))))
5311 (defun pr-eval-local-alist (alist)
5313 (mapcar #'(lambda (option)
5314 (let ((var-sym (car option
))
5315 (value (cdr option
)))
5317 (if (eq var-sym
'inherits-from
:)
5318 (nconc (pr-eval-setting-alist value
) local-list
)
5319 (set (make-local-variable var-sym
) (eval value
))
5320 (cons var-sym local-list
)))))
5325 (defun pr-eval-setting-alist (key &optional global old
)
5326 (let ((setting (cdr (assq key pr-setting-database
))))
5328 (let ((inherits (nth 0 setting
))
5329 (local (nth 1 setting
))
5330 (kill (nth 2 setting
))
5335 (message "There are local buffer settings for `%S'." key
)
5338 (if (memq inherits old
)
5339 (error "Circular inheritance for `%S'" inherits
)
5341 (pr-eval-setting-alist inherits global
5342 (cons inherits old
)))))
5344 (cond ((not local
) ; global settings
5346 (let ((var-sym (car option
)))
5347 (or (eq var-sym
'inherits-from
:)
5348 (set var-sym
(eval (cdr option
)))))))
5349 (kill ; local settings with killing
5351 (let ((var-sym (car option
)))
5352 (unless (eq var-sym
'inherits-from
:)
5353 (setq local-list
(cons var-sym local-list
))
5354 (set (make-local-variable var-sym
)
5355 (eval (cdr option
)))))))
5356 (t ; local settings without killing
5358 (let ((var-sym (car option
)))
5359 (or (eq var-sym
'inherits-from
:)
5360 (set (make-local-variable var-sym
)
5361 (eval (cdr option
))))))))
5366 (defun pr-kill-local-variable (local-var-list)
5367 (mapcar 'kill-local-variable local-var-list
))
5370 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5371 ;; Internal Functions (II)
5374 (defun pr-toggle (var-sym mess entry index horizontal state
5375 &optional path no-menu
)
5376 (set var-sym
(not (symbol-value var-sym
)))
5377 (message "%s is %s" mess
(if (symbol-value var-sym
) "on" "off"))
5379 (pr-menu-lock entry index horizontal state path
)))
5382 (defun pr-toggle-file-duplex-menu (&optional no-menu
)
5384 (pr-toggle 'pr-file-duplex
"PS file duplex" nil
7 5 nil
5385 '("PostScript Print" "File") no-menu
))
5388 (defun pr-toggle-file-tumble-menu (&optional no-menu
)
5390 (pr-toggle 'pr-file-tumble
"PS file tumble" nil
8 5 nil
5391 '("PostScript Print" "File") no-menu
))
5394 (defun pr-toggle-file-landscape-menu (&optional no-menu
)
5396 (pr-toggle 'pr-file-landscape
"PS file landscape" nil
6 5 nil
5397 '("PostScript Print" "File") no-menu
))
5400 (defun pr-toggle-ghostscript-menu (&optional no-menu
)
5402 (pr-toggle 'pr-print-using-ghostscript
"Printing using ghostscript"
5403 'postscript-process
2 12 'toggle nil no-menu
))
5406 (defun pr-toggle-faces-menu (&optional no-menu
)
5408 (pr-toggle 'pr-faces-p
"Printing with faces"
5409 'postscript-process
1 12 'toggle nil no-menu
))
5412 (defun pr-toggle-spool-menu (&optional no-menu
)
5414 (pr-toggle 'pr-spool-p
"Spooling printing"
5415 'postscript-process
0 12 'toggle nil no-menu
))
5418 (defun pr-toggle-duplex-menu (&optional no-menu
)
5420 (pr-toggle 'ps-spool-duplex
"Printing duplex"
5421 'postscript-options
5 12 'toggle nil no-menu
))
5424 (defun pr-toggle-tumble-menu (&optional no-menu
)
5426 (pr-toggle 'ps-spool-tumble
"Tumble"
5427 'postscript-options
6 12 'toggle nil no-menu
))
5430 (defun pr-toggle-landscape-menu (&optional no-menu
)
5432 (pr-toggle 'ps-landscape-mode
"Landscape"
5433 'postscript-options
0 12 'toggle nil no-menu
))
5436 (defun pr-toggle-upside-down-menu (&optional no-menu
)
5438 (pr-toggle 'ps-print-upside-down
"Upside-Down"
5439 'postscript-options
7 12 'toggle nil no-menu
))
5442 (defun pr-toggle-line-menu (&optional no-menu
)
5444 (pr-toggle 'ps-line-number
"Line number"
5445 'postscript-options
3 12 'toggle nil no-menu
))
5448 (defun pr-toggle-zebra-menu (&optional no-menu
)
5450 (pr-toggle 'ps-zebra-stripes
"Zebra stripe"
5451 'postscript-options
4 12 'toggle nil no-menu
))
5454 (defun pr-toggle-header-menu (&optional no-menu
)
5456 (pr-toggle 'ps-print-header
"Print header"
5457 'postscript-options
1 12 'toggle nil no-menu
))
5460 (defun pr-toggle-header-frame-menu (&optional no-menu
)
5462 (pr-toggle 'ps-print-header-frame
"Print header frame"
5463 'postscript-options
2 12 'toggle nil no-menu
))
5466 (defun pr-toggle-lock-menu (&optional no-menu
)
5468 (pr-toggle 'pr-menu-lock
"Menu lock"
5469 'printing
2 12 'toggle nil no-menu
))
5472 (defun pr-toggle-region-menu (&optional no-menu
)
5474 (pr-toggle 'pr-auto-region
"Auto region"
5475 'printing
0 12 'toggle nil no-menu
))
5478 (defun pr-toggle-mode-menu (&optional no-menu
)
5480 (pr-toggle 'pr-auto-mode
"Auto mode"
5481 'printing
1 12 'toggle nil no-menu
))
5484 (defun pr-prompt (str)
5485 (if (pr-auto-mode-p)
5486 (concat str
" mode")
5487 (pr-region-active-string str
)))
5490 (defun pr-prompt-region (str)
5491 (concat str
(if (pr-auto-mode-p)
5496 (defun pr-prompt-gs (str)
5497 (if (pr-using-ghostscript-p)
5502 (defun pr-region-active-symbol (&optional region-p
)
5503 (if (or region-p
(pr-region-active-p))
5508 (defun pr-region-active-string (prefix)
5510 (if (pr-region-active-p)
5515 (defun pr-show-setup (settings buffer-name
)
5516 (with-output-to-temp-buffer buffer-name
5518 (print-help-return-message)))
5521 (defun pr-complete-alist (prompt alist default
)
5522 (let ((collection (mapcar #'(lambda (elt)
5523 (setq elt
(car elt
))
5524 (cons (symbol-name elt
) elt
))
5526 (cdr (assoc (completing-read (concat prompt
": ")
5528 (symbol-name default
) nil
5529 (symbol-name default
))
5533 (defun pr-delete-file (file)
5534 (and pr-delete-temp-file
(file-exists-p file
)
5535 (delete-file file
)))
5538 (defun pr-expand-file-name (filename)
5539 (pr-dosify-file-name (expand-file-name filename
)))
5542 (defun pr-ps-outfile-preprint (&optional mess
)
5543 (let* ((prompt (format "%soutput PostScript file name: " (or mess
"")))
5544 (res (read-file-name prompt default-directory
"" nil
)))
5545 (while (cond ((not (file-writable-p res
))
5547 (setq prompt
"is unwritable"))
5548 ((file-directory-p res
)
5550 (setq prompt
"is a directory"))
5551 ((file-exists-p res
)
5553 (setq prompt
"exists")
5554 (not (y-or-n-p (format "File `%s' exists; overwrite? "
5557 (setq res
(read-file-name
5558 (format "File %s; PostScript file: " prompt
)
5559 (file-name-directory res
) nil nil
5560 (file-name-nondirectory res
))))
5561 (pr-expand-file-name res
)))
5564 (defun pr-ps-infile-preprint (&optional mess
)
5565 (let* ((prompt (format "%sinput PostScript file name: " (or mess
"")))
5566 (res (read-file-name prompt default-directory
"" nil
)))
5567 (while (cond ((not (file-exists-p res
))
5569 (setq prompt
"doesn't exist"))
5570 ((not (file-readable-p res
))
5572 (setq prompt
"is unreadable"))
5573 ((file-directory-p res
)
5575 (setq prompt
"is a directory"))
5577 (setq res
(read-file-name
5578 (format "File %s; PostScript file: " prompt
)
5579 (file-name-directory res
) nil nil
5580 (file-name-nondirectory res
))))
5581 (pr-expand-file-name res
)))
5584 (defun pr-ps-utility-args (n-up-sym infile-sym outfile-sym prompt
)
5585 ;; check arguments for PostScript file processing.
5587 (or (symbol-value n-up-sym
)
5588 (set n-up-sym
(pr-interactive-n-up prompt
)))
5590 (and (eq (symbol-value infile-sym
) t
)
5591 (set infile-sym
(pr-ps-infile-preprint prompt
)))
5592 (or (symbol-value infile-sym
)
5593 (error "%s: input PostScript file name is missing" prompt
))
5594 (set infile-sym
(pr-dosify-file-name (symbol-value infile-sym
)))
5596 (and (eq (symbol-value outfile-sym
) t
)
5597 (set outfile-sym
(and current-prefix-arg
5598 (pr-ps-outfile-preprint prompt
))))
5599 (and (symbol-value outfile-sym
)
5600 (set outfile-sym
(pr-dosify-file-name (symbol-value outfile-sym
))))
5601 (pr-ps-file (symbol-value outfile-sym
)))
5604 (defun pr-ps-utility-process (n-up infile outfile
)
5605 ;; activate utility to process a PostScript file.
5607 (and (stringp infile
) (file-exists-p infile
)
5608 (setq item
(cdr (assq pr-ps-utility pr-ps-utility-alist
)))
5609 (pr-call-process (nth 0 item
)
5610 (pr-switches-string (nth 1 item
)
5611 "pr-ps-utility-alist entry")
5612 (pr-switches-string (nth 8 item
)
5613 "pr-ps-utility-alist entry")
5615 (format (nth 2 item
) ps-paper-type
))
5616 (format (nth 3 item
) n-up
)
5617 (and pr-file-landscape
(nth 4 item
))
5618 (and pr-file-duplex
(nth 5 item
))
5619 (and pr-file-tumble
(nth 6 item
))
5620 (pr-expand-file-name infile
)
5622 (pr-expand-file-name outfile
)))))
5625 (defun pr-remove-nil-from-list (lst)
5626 (while (and lst
(null (car lst
)))
5627 (setq lst
(cdr lst
)))
5639 (defun pr-call-process (command &rest args
)
5640 (let ((buffer (get-buffer-create "*Printing Command Output*"))
5641 (cmd (pr-command command
))
5643 (setq args
(pr-remove-nil-from-list args
))
5644 ;; *Printing Command Output* == show command & args
5647 (goto-char (point-max))
5648 (insert (format "%s %S\n" cmd args
)))
5649 ;; *Printing Command Output* == show any return message from command
5652 (condition-case data
5653 (apply 'call-process cmd nil buffer nil args
)
5655 (error-message-string data
)))))
5656 ;; *Printing Command Output* == show exit status
5659 (goto-char (point-max))
5660 (insert (format "Exit status: %s\n\n" status
)))
5661 ;; message if error status
5662 (if (or (stringp status
)
5663 (and (integerp status
) (/= status
0)))
5665 "Printing error status: %s (see *Printing Command Output* buffer)"
5669 (defun pr-txt-print (from to
)
5670 (let ((lpr-command (pr-standard-file-name (pr-command pr-txt-command
)))
5671 (lpr-switches (pr-switches pr-txt-switches
"pr-txt-switches"))
5672 (printer-name pr-txt-printer
))
5673 (lpr-region from to
)))
5676 (defun pr-switches-string (switches mess
)
5677 ;; If SWITCHES is nil, return nil.
5678 ;; Otherwise, return the list of string in a string.
5680 (mapconcat 'identity
(pr-switches switches mess
) " ")))
5683 (defun pr-switches (switches mess
)
5684 (or (listp switches
)
5685 (error "%S should have a list of strings" mess
))
5686 (ps-flatten-list ; dynamic evaluation
5687 (mapcar 'ps-eval-switch switches
)))
5690 (defun pr-ps-preview (kind n-up filename mess
)
5691 (pr-set-n-up-and-filename 'n-up
'filename mess
)
5692 (let ((file (pr-ps-file filename
)))
5693 (pr-text2ps kind n-up file
)
5694 (or pr-spool-p
(pr-ps-file-preview file
))))
5697 (defun pr-ps-using-ghostscript (kind n-up filename mess
)
5698 (pr-set-n-up-and-filename 'n-up
'filename mess
)
5699 (let ((file (pr-ps-file filename
)))
5700 (pr-text2ps kind n-up file
)
5701 (unless (or pr-spool-p filename
)
5702 (pr-ps-file-using-ghostscript file
)
5703 (pr-delete-file file
))))
5706 (defun pr-ps-print (kind n-up filename mess
)
5707 (pr-set-n-up-and-filename 'n-up
'filename mess
)
5708 (let ((file (pr-ps-file filename
)))
5709 (pr-text2ps kind n-up file
)
5710 (unless (or pr-spool-p filename
)
5711 (pr-ps-file-print file
)
5712 (pr-delete-file file
))))
5715 (defun pr-ps-file (&optional filename
)
5716 (pr-dosify-file-name (or filename
5718 (convert-standard-filename
5719 (expand-file-name pr-ps-temp-file pr-temp-dir
))
5723 (defun pr-interactive-n-up (mess)
5724 (or (stringp mess
) (setq mess
"*"))
5726 (let* ((fmt-prompt "%s[%s] N-up printing (default 1): ")
5728 (str (pr-f-read-string (format fmt-prompt prompt mess
) "1" nil
"1"))
5730 (while (if (string-match "^\\s *[0-9]+$" str
)
5731 (setq int
(string-to-number str
)
5732 prompt
(cond ((< int
1) "Integer below 1; ")
5733 ((> int
100) "Integer above 100; ")
5735 (setq prompt
"Invalid integer syntax; "))
5738 (pr-f-read-string (format fmt-prompt prompt mess
) str nil
"1")))
5742 (defun pr-interactive-dir (mess)
5743 (let* ((dir-name (file-name-directory (or (buffer-file-name)
5744 default-directory
)))
5745 (fmt-prompt (concat "%s[" mess
"] Directory to print: "))
5746 (dir (read-file-name (format fmt-prompt
"")
5747 "" dir-name nil dir-name
))
5749 (while (cond ((not (file-directory-p dir
))
5751 (setq prompt
"It's not a directory! "))
5752 ((not (file-readable-p dir
))
5754 (setq prompt
"Directory is unreadable! "))
5756 (setq dir-name
(file-name-directory dir
)
5757 dir
(read-file-name (format fmt-prompt prompt
)
5758 "" dir-name nil dir-name
)))
5759 (file-name-as-directory dir
)))
5762 (defun pr-interactive-regexp (mess)
5763 (pr-f-read-string (format "[%s] File regexp to print: " mess
) "" nil
""))
5766 (defun pr-interactive-dir-args (mess)
5768 ;; get directory argument
5769 (pr-interactive-dir mess
)
5770 ;; get file name regexp
5771 (pr-interactive-regexp mess
)))
5774 (defun pr-interactive-ps-dir-args (mess)
5776 ;; get n-up argument
5777 (pr-interactive-n-up mess
)
5778 ;; get directory argument
5779 (pr-interactive-dir mess
)
5780 ;; get file name regexp
5781 (pr-interactive-regexp mess
)
5782 ;; get output file name
5783 (and (not pr-spool-p
)
5784 (ps-print-preprint current-prefix-arg
))))
5787 (defun pr-interactive-n-up-file (mess)
5789 ;; get n-up argument
5790 (pr-interactive-n-up mess
)
5791 ;; get output file name
5792 (and (not pr-spool-p
)
5793 (ps-print-preprint current-prefix-arg
))))
5796 (defun pr-interactive-n-up-inout (mess)
5798 ;; get n-up argument
5799 (pr-interactive-n-up mess
)
5800 ;; get input file name
5801 (pr-ps-infile-preprint (concat mess
" "))
5802 ;; get output file name
5803 (ps-print-preprint current-prefix-arg
)))
5806 (defun pr-set-outfilename (filename-sym)
5807 (and (not pr-spool-p
)
5808 (eq (symbol-value filename-sym
) t
)
5809 (set filename-sym
(and current-prefix-arg
5810 (ps-print-preprint current-prefix-arg
))))
5811 (and (symbol-value filename-sym
)
5812 (set filename-sym
(pr-dosify-file-name (symbol-value filename-sym
)))))
5815 (defun pr-set-n-up-and-filename (n-up-sym filename-sym mess
)
5817 (or (symbol-value n-up-sym
)
5818 (set n-up-sym
(pr-interactive-n-up mess
)))
5820 (pr-set-outfilename filename-sym
))
5823 (defun pr-set-dir-args (dir-sym regexp-sym mess
)
5825 (or (symbol-value dir-sym
)
5826 (set dir-sym
(pr-interactive-dir mess
)))
5828 (or (symbol-value regexp-sym
)
5829 (set regexp-sym
(pr-interactive-regexp mess
))))
5832 (defun pr-set-ps-dir-args (n-up-sym dir-sym regexp-sym filename-sym mess
)
5834 (or (symbol-value n-up-sym
)
5835 (set n-up-sym
(pr-interactive-n-up mess
)))
5836 ;; directory & file name regexp
5837 (pr-set-dir-args dir-sym regexp-sym mess
)
5839 (pr-set-outfilename filename-sym
))
5842 (defun pr-find-buffer-visiting (file)
5843 (if (not (file-directory-p file
))
5844 (find-buffer-visiting (if ps-windows-system
5847 (let ((truename (file-truename file
))
5848 (blist (buffer-list))
5850 (while (and (not found
) blist
)
5852 (set-buffer (car blist
))
5853 (and (eq major-mode
'dired-mode
)
5855 (goto-char (point-min))
5856 (string= (buffer-substring-no-properties
5862 (setq found
(car blist
))))
5863 (setq blist
(cdr blist
)))
5867 (defun pr-file-list (dir file-regexp fun
)
5868 (mapcar #'(lambda (file)
5869 (and (or pr-list-directory
5870 (not (file-directory-p file
)))
5871 (let ((buffer (pr-find-buffer-visiting file
))
5875 (file-readable-p file
))
5877 (set-buffer (or buffer
5878 (find-file-noselect file
)))
5881 (kill-buffer (current-buffer))))))))
5882 (directory-files dir t file-regexp
)))
5885 (defun pr-delete-file-if-exists (filename)
5886 (and (not pr-spool-p
) (stringp filename
) (file-exists-p filename
)
5887 (delete-file filename
)))
5890 (defun pr-ps-file-list (n-up dir file-regexp filename
)
5891 (pr-delete-file-if-exists (setq filename
(pr-expand-file-name filename
)))
5892 (let ((pr-spool-p t
))
5893 (pr-file-list dir file-regexp
5895 (if (pr-auto-mode-p)
5896 (pr-ps-mode n-up filename
)
5897 (pr-text2ps 'buffer n-up filename
)))))
5899 (pr-despool-print filename
)))
5902 (defun pr-text2ps (kind n-up filename
&optional from to
)
5904 (let ((ps-n-up-printing n-up
)
5905 (ps-spool-config (and (eq ps-spool-config
'setpagedevice
)
5907 (pr-delete-file-if-exists filename
)
5910 ;; pr-faces-p and pr-spool-p
5911 ;; here FILENAME arg is ignored
5912 (cond ((eq kind
'buffer
)
5913 (ps-spool-buffer-with-faces))
5915 (ps-spool-region-with-faces (or from
(point))
5918 ;; pr-faces-p and not pr-spool-p
5920 (ps-print-buffer-with-faces filename
))
5922 (ps-print-region-with-faces (or from
(point))
5923 (or to
(mark)) filename
))
5926 ;; not pr-faces-p and pr-spool-p
5927 ;; here FILENAME arg is ignored
5928 (cond ((eq kind
'buffer
)
5931 (ps-spool-region (or from
(point)) (or to
(mark))))
5933 ;; not pr-faces-p and not pr-spool-p
5935 (ps-print-buffer filename
))
5937 (ps-print-region (or from
(point)) (or to
(mark)) filename
))
5941 (defun pr-command (command)
5942 "Return absolute file name specification for COMMAND.
5944 If COMMAND is an empty string, return it.
5946 If COMMAND is already an absolute file name specification, return it.
5947 Else it uses `pr-path-alist' to find COMMAND, if find it then return it;
5948 otherwise, gives an error.
5950 When using `pr-path-alist' to find COMMAND, the entries `cygwin', `windows' and
5951 `unix' are used (see `pr-path-alist' for documentation).
5953 If Emacs is running on Windows 95/98/NT/2000, tries to find COMMAND,
5954 COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
5955 (if (string= command
"")
5957 (pr-dosify-file-name
5958 (or (pr-find-command command
)
5959 (pr-path-command (cond (pr-cygwin-system 'cygwin
)
5960 (ps-windows-system 'windows
)
5962 (file-name-nondirectory command
)
5964 (error "Command not found: %s"
5965 (file-name-nondirectory command
))))))
5968 (defun pr-path-command (symbol command sym-list
)
5969 (let ((lpath (cdr (assq symbol pr-path-alist
)))
5972 (and (eq symbol
'PATH
) (null lpath
)
5973 (setq lpath
(parse-colon-path (getenv "PATH"))))
5977 (let ((path (car lpath
)))
5981 (and (not (memq path sym-list
))
5982 (pr-path-command path command
5983 (cons path sym-list
))))
5988 (substitute-in-file-name
5989 (concat (file-name-as-directory path
)
5992 (setq lpath
(cdr lpath
)))
5996 (defun pr-find-command (cmd)
5997 (if ps-windows-system
5999 (let ((ext (cons (file-name-extension cmd t
)
6000 (list ".exe" ".bat" ".com")))
6002 (setq cmd
(file-name-sans-extension cmd
))
6004 (setq found
(concat cmd
(car ext
)))
6005 (not (and (file-regular-p found
)
6006 (file-executable-p found
))))
6010 ;; non-windows systems
6011 (and (file-regular-p cmd
)
6012 (file-executable-p cmd
)
6016 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6017 ;; Printing Interface (inspired on ps-print-interface.el)
6025 (defvar pr-i-window-configuration nil
)
6027 (defvar pr-i-buffer nil
)
6028 (defvar pr-i-region nil
)
6029 (defvar pr-i-mode nil
)
6030 (defvar pr-i-despool nil
)
6031 (defvar pr-i-ps-as-is t
)
6032 (defvar pr-i-n-up
1)
6033 (defvar pr-i-directory
"./")
6034 (defvar pr-i-regexp
"")
6035 (defvar pr-i-ps-file
"")
6036 (defvar pr-i-out-file
"")
6037 (defvar pr-i-answer-yes nil
)
6038 (defvar pr-i-process
'buffer
)
6039 (defvar pr-i-ps-send
'printer
)
6042 (defvar pr-interface-map nil
6043 "Keymap for pr-interface.")
6045 (unless pr-interface-map
6046 (setq pr-interface-map
(make-sparse-keymap))
6047 (cond ((featurep 'xemacs
) ; XEmacs
6048 (pr-f-set-keymap-parents pr-interface-map
(list widget-keymap
))
6049 (pr-f-set-keymap-name pr-interface-map
'pr-interface-map
))
6051 (pr-f-set-keymap-parents pr-interface-map widget-keymap
)))
6052 (define-key pr-interface-map
"q" 'pr-interface-quit
)
6053 (define-key pr-interface-map
"?" 'pr-interface-help
))
6056 (defmacro pr-interface-save
(&rest body
)
6058 (set-buffer pr-i-buffer
)
6062 (defun pr-create-interface ()
6063 "Create the front end for printing package."
6064 (setq pr-i-buffer
(buffer-name (current-buffer))
6065 pr-i-region
(ps-mark-active-p)
6066 pr-i-mode
(pr-mode-alist-p)
6067 pr-i-window-configuration
(current-window-configuration))
6069 (put 'pr-i-process
'pr-widget-list nil
)
6070 (put 'pr-i-ps-send
'pr-widget-list nil
)
6072 (delete-other-windows)
6073 (kill-buffer (get-buffer-create pr-buffer-name
))
6074 (switch-to-buffer (get-buffer-create pr-buffer-name
))
6077 (let ((versions (concat "printing v" pr-version
6078 " ps-print v" ps-print-version
)))
6079 ;; to keep compatibility with Emacs 20 & 21:
6080 ;; DO NOT REPLACE `?\ ' BY `?\s'
6081 (widget-insert (make-string (- 79 (length versions
)) ?\
) versions
))
6082 (pr-insert-italic "\nCurrent Directory : " 1)
6083 (pr-insert-italic default-directory
)
6085 (pr-insert-section-1) ; 1. Print
6086 (pr-insert-section-2) ; 2. PostScript Printer
6087 (pr-insert-section-3) ; 3. Text Printer
6090 (widget-insert "\n\n " (make-string 77 ?-
))
6092 (pr-insert-section-4) ; 4. Settings
6093 (pr-insert-section-5) ; 5. Customize
6094 (pr-insert-section-6) ; 6. Show Settings
6095 (pr-insert-section-7) ; 7. Help
6097 (use-local-map pr-interface-map
)
6099 (goto-char (point-min))
6101 (and pr-i-region
; let region activated
6102 (pr-keep-region-active)))
6105 (defun pr-insert-section-1 ()
6107 (pr-insert-italic "\nPrint :" 1)
6110 ;; 1a. Buffer: Buffer List
6111 (pr-insert-radio-button 'pr-i-process
'buffer
)
6112 (pr-insert-menu "Buffer List" 'pr-i-buffer
6113 (let ((blist (buffer-list))
6114 case-fold-search choices
)
6116 (let ((name (buffer-name (car blist
)))
6117 (ignore pr-buffer-name-ignore
)
6119 (setq blist
(cdr blist
))
6120 (while (and ignore
(not found
))
6121 (setq found
(string-match (car ignore
) name
)
6122 ignore
(cdr ignore
)))
6134 (setq pr-i-region
(ps-mark-active-p)
6135 pr-i-mode
(pr-mode-alist-p)))
6136 (pr-update-checkbox 'pr-i-region
)
6137 (pr-update-checkbox 'pr-i-mode
)))
6138 ;; 1a. Buffer: Region
6139 (put 'pr-i-region
'pr-widget
6143 #'(lambda (widget &rest ignore
)
6144 (let ((region-p (pr-interface-save
6145 (ps-mark-active-p))))
6146 (cond ((null (widget-value widget
)) ; widget is nil
6147 (setq pr-i-region nil
))
6148 (region-p ; widget is true and there is a region
6149 (setq pr-i-region t
)
6150 (widget-value-set widget t
)
6151 (widget-setup)) ; MUST be called after widget-value-set
6152 (t ; widget is true and there is no region
6154 (message "There is no region active")
6155 (setq pr-i-region nil
)
6156 (widget-value-set widget nil
)
6157 (widget-setup))))) ; MUST be called after widget-value-set
6160 (put 'pr-i-mode
'pr-widget
6164 #'(lambda (widget &rest ignore
)
6165 (let ((mode-p (pr-interface-save
6166 (pr-mode-alist-p))))
6168 ((null (widget-value widget
)) ; widget is nil
6169 (setq pr-i-mode nil
))
6170 (mode-p ; widget is true and there is a `mode'
6172 (widget-value-set widget t
)
6173 (widget-setup)) ; MUST be called after widget-value-set
6174 (t ; widget is true and there is no `mode'
6177 "This buffer isn't in a mode that printing treats specially.")
6178 (setq pr-i-mode nil
)
6179 (widget-value-set widget nil
)
6180 (widget-setup))))) ; MUST be called after widget-value-set
6184 (pr-insert-radio-button 'pr-i-process
'directory
)
6188 :format
" Directory : %v"
6189 :notify
'pr-interface-directory
6190 :action
(lambda (widget &optional event
)
6191 (if (pr-interface-directory widget
)
6192 (pr-widget-field-action widget event
)
6194 (message "Please specify a readable directory")))
6196 ;; 1b. Directory: File Regexp
6197 (widget-create 'regexp
6199 :format
"\n File Regexp : %v\n"
6200 :notify
(lambda (widget &rest ignore
)
6201 (setq pr-i-regexp
(widget-value widget
)))
6203 ;; 1b. Directory: List Directory Entry
6205 (pr-insert-toggle 'pr-list-directory
" List Directory Entry\n")
6207 ;; 1c. PostScript File:
6208 (pr-insert-radio-button 'pr-i-process
'file
)
6212 :format
" PostScript File : %v"
6213 :notify
'pr-interface-infile
6214 :action
(lambda (widget &rest event
)
6215 (if (pr-interface-infile widget
)
6216 (pr-widget-field-action widget event
)
6218 (message "Please specify a readable PostScript file")))
6220 ;; 1c. PostScript File: PostScript Utility
6221 (pr-insert-menu "PostScript Utility" 'pr-ps-utility
6222 (pr-choice-alist pr-ps-utility-alist
)
6223 "\n PostScript Utility : "
6225 ;; 1c. PostScript File: No Preprocessing
6226 (pr-insert-toggle 'pr-i-ps-as-is
" No Preprocessing"))
6229 (defun pr-insert-section-2 ()
6230 ;; 2. PostScript Printer:
6231 ;; 2. PostScript Printer: PostScript Printer List
6232 (pr-insert-italic "\n\nPostScript Printer : " 2 20)
6233 (pr-insert-menu "PostScript Printer" 'pr-ps-name
6234 (pr-choice-alist pr-ps-printer-alist
))
6235 ;; 2. PostScript Printer: Despool
6236 (put 'pr-i-despool
'pr-widget
6240 #'(lambda (widget &rest ignore
)
6242 (setq pr-i-despool
(not pr-i-despool
))
6244 (message "Can despool only when spooling is actually selected")
6245 (setq pr-i-despool nil
))
6246 (widget-value-set widget pr-i-despool
)
6247 (widget-setup)) ; MUST be called after widget-value-set
6249 ;; 2. PostScript Printer: Preview Print Quit
6250 (pr-insert-button 'pr-interface-preview
"Preview" " ")
6251 (pr-insert-button 'pr-interface-ps-print
"Print" " ")
6252 (pr-insert-button 'pr-interface-quit
"Quit")
6253 ;; 2. PostScript Printer: Send to Printer/Temporary File
6254 (pr-insert-radio-button 'pr-i-ps-send
'printer
)
6255 (widget-insert " Send to Printer/Temporary File")
6256 ;; 2. PostScript Printer: Send to File
6257 (pr-insert-radio-button 'pr-i-ps-send
'file
)
6261 :format
" Send to File : %v"
6262 :notify
'pr-interface-outfile
6263 :action
(lambda (widget &rest event
)
6264 (if (and (pr-interface-outfile widget
)
6265 (or (not (file-exists-p pr-i-out-file
))
6266 (setq pr-i-answer-yes
6267 (y-or-n-p "File exists; overwrite? "))))
6268 (pr-widget-field-action widget event
)
6270 (message "Please specify a writable PostScript file")))
6272 ;; 2. PostScript Printer: N-Up
6276 :format
"\n N-Up : %v"
6277 :notify
(lambda (widget &rest ignore
)
6278 (let ((value (if (string= (widget-apply widget
:value-get
) "")
6280 (widget-value widget
))))
6281 (if (and (integerp value
)
6282 (<= 1 value
) (<= value
100))
6285 (setq pr-i-n-up value
))
6287 (message "Please specify an integer between 1 and 100"))))
6291 (defun pr-insert-section-3 ()
6293 (pr-insert-italic "\n\nText Printer : " 2 14)
6294 (pr-insert-menu "Text Printer" 'pr-txt-name
6295 (pr-choice-alist pr-txt-printer-alist
)
6297 (pr-insert-button 'pr-interface-printify
"Printify" " ")
6298 (pr-insert-button 'pr-interface-txt-print
"Print" " ")
6299 (pr-insert-button 'pr-interface-quit
"Quit"))
6302 (defun pr-insert-section-4 ()
6304 ;; 4. Settings: Landscape Auto Region Verbose
6305 (pr-insert-checkbox "\n\n " 'ps-landscape-mode
6306 #'(lambda (&rest ignore
)
6307 (setq ps-landscape-mode
(not ps-landscape-mode
)
6308 pr-file-landscape ps-landscape-mode
))
6310 (pr-insert-toggle 'pr-auto-region
" Auto Region ")
6311 (pr-insert-toggle 'pr-buffer-verbose
" Verbose\n ")
6313 ;; 4. Settings: Print Header Auto Mode
6314 (pr-insert-toggle 'ps-print-header
" Print Header ")
6315 (pr-insert-toggle 'pr-auto-mode
" Auto Mode\n ")
6317 ;; 4. Settings: Print Header Frame Menu Lock
6318 (pr-insert-toggle 'ps-print-header-frame
" Print Header Frame ")
6319 (pr-insert-toggle 'pr-menu-lock
" Menu Lock\n ")
6321 ;; 4. Settings: Line Number
6322 (pr-insert-toggle 'ps-line-number
" Line Number\n ")
6324 ;; 4. Settings: Zebra Stripes Spool Buffer
6325 (pr-insert-toggle 'ps-zebra-stripes
" Zebra Stripes")
6326 (pr-insert-checkbox " "
6328 #'(lambda (&rest ignore
)
6329 (setq pr-spool-p
(not pr-spool-p
))
6331 (setq pr-i-despool nil
)
6332 (pr-update-checkbox 'pr-i-despool
)))
6335 ;; 4. Settings: Duplex Print with faces
6336 (pr-insert-checkbox "\n "
6338 #'(lambda (&rest ignore
)
6339 (setq ps-spool-duplex
(not ps-spool-duplex
)
6340 pr-file-duplex ps-spool-duplex
))
6342 (pr-insert-toggle 'pr-faces-p
" Print with faces")
6344 ;; 4. Settings: Tumble Print via Ghostscript
6345 (pr-insert-checkbox "\n "
6347 #'(lambda (&rest ignore
)
6348 (setq ps-spool-tumble
(not ps-spool-tumble
)
6349 pr-file-tumble ps-spool-tumble
))
6351 (pr-insert-toggle 'pr-print-using-ghostscript
" Print via Ghostscript\n ")
6353 ;; 4. Settings: Upside-Down Page Parity
6354 (pr-insert-toggle 'ps-print-upside-down
" Upside-Down")
6355 (pr-insert-italic "\n\nSelect Pages : " 2 14)
6356 (pr-insert-menu "Page Parity" 'ps-even-or-odd-pages
6357 (mapcar #'(lambda (alist)
6362 :value
(car alist
))))
6363 pr-even-or-odd-alist
)))
6366 (defun pr-insert-section-5 ()
6368 (pr-insert-italic "\n\nCustomize : " 2 11)
6369 (pr-insert-button 'pr-customize
"printing" " ")
6370 (pr-insert-button #'(lambda (&rest ignore
) (ps-print-customize))
6372 (pr-insert-button 'lpr-customize
"lpr"))
6375 (defun pr-insert-section-6 ()
6376 ;; 6. Show Settings:
6377 (pr-insert-italic "\nShow Settings : " 1 14)
6378 (pr-insert-button 'pr-show-pr-setup
"printing" " ")
6379 (pr-insert-button 'pr-show-ps-setup
"ps-print" " ")
6380 (pr-insert-button 'pr-show-lpr-setup
"lpr"))
6383 (defun pr-insert-section-7 ()
6385 (pr-insert-italic "\nHelp : " 1 5)
6386 (pr-insert-button 'pr-interface-help
"Interface Help" " ")
6387 (pr-insert-button 'pr-help
"Menu Help" " ")
6388 (pr-insert-button 'pr-interface-quit
"Quit" "\n ")
6389 (pr-insert-button 'pr-kill-help
"Kill All Printing Help Buffer"))
6392 (defun pr-kill-help (&rest ignore
)
6393 "Kill all printing help buffer."
6395 (let ((help '("*Printing Interface Help*" "*Printing Help*"
6396 "*LPR Setup*" "*PR Setup*" "*PS Setup*")))
6398 (let ((buffer (get-buffer (car help
))))
6399 (setq help
(cdr help
))
6401 (delete-windows-on buffer
)
6402 (kill-buffer buffer
)))))
6403 (recenter (- (window-height) 2)))
6406 (defun pr-interface-quit (&rest ignore
)
6407 "Kill the printing buffer interface and quit."
6409 (kill-buffer pr-buffer-name
)
6410 (set-window-configuration pr-i-window-configuration
))
6413 (defun pr-interface-help (&rest ignore
)
6414 "printing buffer interface help."
6416 (pr-show-setup pr-interface-help-message
"*Printing Interface Help*"))
6419 (defun pr-interface-txt-print (&rest ignore
)
6420 "Print using lpr package."
6422 (condition-case data
6424 ((eq pr-i-process
'directory
)
6427 (pr-txt-directory pr-i-directory pr-i-regexp
)))
6428 ((eq pr-i-process
'buffer
)
6431 (let ((pr-auto-mode pr-i-mode
))
6434 (let (pr-auto-region)
6437 (let (pr-auto-mode pr-auto-region
)
6440 ((eq pr-i-process
'file
)
6441 (error "Please specify a text file"))
6443 (error "Internal error: `pr-i-process' = %S" pr-i-process
))
6448 (message "%s" (error-message-string data
)))))
6451 (defun pr-interface-printify (&rest ignore
)
6452 "Printify a buffer."
6454 (condition-case data
6456 ((eq pr-i-process
'directory
)
6459 (pr-printify-directory pr-i-directory pr-i-regexp
)))
6460 ((eq pr-i-process
'buffer
)
6463 (pr-printify-region)
6464 (pr-printify-buffer))))
6465 ((eq pr-i-process
'file
)
6466 (error "Cannot printify a PostScript file"))
6468 (error "Internal error: `pr-i-process' = %S" pr-i-process
))
6473 (message "%s" (error-message-string data
)))))
6476 (defun pr-interface-ps-print (&rest ignore
)
6477 "Print using ps-print package."
6479 (pr-interface-ps 'pr-despool-ps-print
'pr-ps-directory-ps-print
6480 'pr-ps-file-ps-print
'pr-ps-file-up-ps-print
6481 'pr-ps-region-ps-print
'pr-ps-mode-ps-print
6482 'pr-ps-buffer-ps-print
))
6485 (defun pr-interface-preview (&rest ignore
)
6486 "Preview a PostScript file."
6488 (pr-interface-ps 'pr-despool-preview
'pr-ps-directory-preview
6489 'pr-ps-file-preview
'pr-ps-file-up-preview
6490 'pr-ps-region-preview
'pr-ps-mode-preview
6491 'pr-ps-buffer-preview
))
6494 (defun pr-interface-ps (ps-despool ps-directory ps-file ps-file-up ps-region
6496 (condition-case data
6497 (let ((outfile (or (and (eq pr-i-process
'file
) pr-i-ps-as-is
)
6500 ((and pr-i-despool pr-spool-p
)
6502 (funcall ps-despool outfile
))
6503 (setq pr-i-despool nil
)
6504 (pr-update-checkbox 'pr-i-despool
))
6505 ((eq pr-i-process
'directory
)
6508 (funcall ps-directory
6509 pr-i-n-up pr-i-directory pr-i-regexp outfile
)))
6510 ((eq pr-i-process
'file
)
6511 (cond ((or (file-directory-p pr-i-ps-file
)
6512 (not (file-readable-p pr-i-ps-file
)))
6513 (error "Please specify a readable PostScript file"))
6516 (funcall ps-file pr-i-ps-file
)))
6519 (funcall ps-file-up pr-i-n-up pr-i-ps-file outfile
)))
6521 ((eq pr-i-process
'buffer
)
6524 (let ((pr-auto-mode pr-i-mode
))
6525 (funcall ps-region pr-i-n-up outfile
)))
6527 (let (pr-auto-region)
6528 (funcall ps-mode pr-i-n-up outfile
)))
6530 (let (pr-auto-mode pr-auto-region
)
6531 (funcall ps-buffer pr-i-n-up outfile
)))
6534 (error "Internal error: `pr-i-process' = %S" pr-i-process
))
6539 (message "%s" (error-message-string data
)))))
6542 (defun pr-i-ps-send ()
6543 (cond ((eq pr-i-ps-send
'printer
)
6545 ((not (eq pr-i-ps-send
'file
))
6546 (error "Internal error: `pr-i-ps-send' = %S" pr-i-ps-send
))
6547 ((or (file-directory-p pr-i-out-file
)
6548 (not (file-writable-p pr-i-out-file
)))
6549 (error "Please specify a writable PostScript file"))
6550 ((or (not (file-exists-p pr-i-out-file
))
6552 (setq pr-i-answer-yes
6553 (y-or-n-p (format "File `%s' exists; overwrite? "
6557 (error "File already exists"))))
6560 (defun pr-i-directory ()
6561 (or (and (file-directory-p pr-i-directory
)
6562 (file-readable-p pr-i-directory
))
6563 (error "Please specify be a readable directory")))
6566 (defun pr-interface-directory (widget &rest ignore
)
6567 (and pr-buffer-verbose
6568 (message "You can use M-TAB or ESC TAB for file completion"))
6569 (let ((dir (widget-value widget
)))
6570 (and (file-directory-p dir
)
6571 (file-readable-p dir
)
6572 (setq pr-i-directory dir
))))
6575 (defun pr-interface-infile (widget &rest ignore
)
6576 (and pr-buffer-verbose
6577 (message "You can use M-TAB or ESC TAB for file completion"))
6578 (let ((file (widget-value widget
)))
6579 (and (not (file-directory-p file
))
6580 (file-readable-p file
)
6581 (setq pr-i-ps-file file
))))
6584 (defun pr-interface-outfile (widget &rest ignore
)
6585 (setq pr-i-answer-yes nil
)
6586 (and pr-buffer-verbose
6587 (message "You can use M-TAB or ESC TAB for file completion"))
6588 (let ((file (widget-value widget
)))
6589 (and (not (file-directory-p file
))
6590 (file-writable-p file
)
6591 (setq pr-i-out-file file
))))
6594 (defun pr-widget-field-action (widget event
)
6595 (and (get-buffer "*Completions*") ; clean frame window
6596 (delete-windows-on "*Completions*"))
6597 (message " ") ; clean echo area
6598 (widget-field-action widget event
))
6601 (defun pr-insert-italic (str &optional from to
)
6602 (let ((len (length str
)))
6603 (put-text-property (if from
(max from
0) 0)
6604 (if to
(max to len
) len
)
6606 (widget-insert str
)))
6609 (defun pr-insert-checkbox (before var-sym fun label
)
6610 (widget-insert before
)
6612 (widget-create 'checkbox
6614 (symbol-value var-sym
))
6615 (widget-insert label
)))
6618 (defun pr-insert-toggle (var-sym label
)
6619 (widget-create 'checkbox
6620 :notify
`(lambda (&rest ignore
)
6621 (setq ,var-sym
(not ,var-sym
)))
6622 (symbol-value var-sym
))
6623 (widget-insert label
))
6626 (defun pr-insert-button (fun label
&optional separator
)
6627 (widget-create 'push-button
6631 (widget-insert separator
)))
6634 (defun pr-insert-menu (tag var-sym choices
&optional before after
&rest body
)
6635 (and before
(widget-insert before
))
6636 (eval `(widget-create 'menu-choice
6641 :notify
(lambda (widget &rest ignore
)
6642 (setq ,var-sym
(widget-value widget
))
6644 :void
'(choice-item :format
"%[%t%]"
6645 :tag
"Can not display value!")
6647 (and after
(widget-insert after
)))
6650 (defun pr-insert-radio-button (var-sym sym
)
6651 (widget-insert "\n")
6652 (let ((wid-list (get var-sym
'pr-widget-list
))
6653 (wid (eval `(widget-create
6656 :value
(eq ,var-sym
(quote ,sym
))
6657 :notify
(lambda (&rest ignore
)
6658 (setq ,var-sym
(quote ,sym
))
6659 (pr-update-radio-button (quote ,var-sym
)))))))
6660 (put var-sym
'pr-widget-list
(cons (cons wid sym
) wid-list
))))
6663 (defun pr-update-radio-button (var-sym)
6664 (let ((wid-list (get var-sym
'pr-widget-list
)))
6666 (let ((wid (car (car wid-list
)))
6667 (value (cdr (car wid-list
))))
6668 (setq wid-list
(cdr wid-list
))
6669 (widget-value-set wid
(eq (symbol-value var-sym
) value
))))
6673 (defun pr-update-checkbox (var-sym)
6674 (let ((wid (get var-sym
'pr-widget
)))
6676 (widget-value-set wid
(symbol-value var-sym
))
6680 (defun pr-choice-alist (alist)
6681 (let ((max (apply 'max
(mapcar #'(lambda (alist)
6682 (length (symbol-name (car alist
))))
6684 (mapcar #'(lambda (alist)
6685 (let* ((sym (car alist
))
6686 (name (symbol-name sym
)))
6693 (make-string (- max
(length name
)) ?_
))
6698 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6704 ;; arch-tag: 9ce9ac3f-0f60-4370-900b-1943215d9d18
6705 ;;; printing.el ends here