Mercurial > emacs

comparison lisp/printing.el @ 54210:602769168263

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace "As Is..." in PostScript file print/preview by "No Preprocessing...".
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Mon, 01 Mar 2004 02:26:01 +0000
parents c312c950b64d
children 814ffa309985
comparison
equal deleted inserted replaced
54209:c312c950b64d 54210:602769168263
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 6 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
7 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 7 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
8 ;; Time-stamp: <2004/02/29 20:52:58 vinicius> 8 ;; Time-stamp: <2004/02/29 23:18:15 vinicius>
9 ;; Keywords: wp, print, PostScript 9 ;; Keywords: wp, print, PostScript
10 ;; Version: 6.7.2 10 ;; Version: 6.7.2
11 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ 11 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
12 12
13 (defconst pr-version "6.7.2" 13 (defconst pr-version "6.7.2"
515 ;; +-----------------------------+ |Mode >|-- B |Other...| 515 ;; +-----------------------------+ |Mode >|-- B |Other...|
516 ;; II 4 | Printify >|-----\ |File >|--\ +--------+ 516 ;; II 4 | Printify >|-----\ |File >|--\ +--------+
517 ;; 5 | Print >|---\ | |Despool... | | 517 ;; 5 | Print >|---\ | |Despool... | |
518 ;; 6 | Text Printer: name >|-\ | | +-----------+ | 518 ;; 6 | Text Printer: name >|-\ | | +-----------+ |
519 ;; +-----------------------------+ | | | +---------+ +------------+ 519 ;; +-----------------------------+ | | | +---------+ +------------+
520 ;; III 7 |[ ]Landscape | | | \-|Directory| | As Is... | Ia 520 ;; III 7 |[ ]Landscape | | | \-|Directory| | No Prep... | Ia
521 ;; 8 |[ ]Print Header | | | |Buffer | +------------+ Ib 521 ;; 8 |[ ]Print Header | | | |Buffer | +------------+ Ib
522 ;; 9 |[ ]Print Header Frame | | | |Region | | name >|- C 522 ;; 9 |[ ]Print Header Frame | | | |Region | | name >|- C
523 ;; 10 |[ ]Line Number | | | +---------+ +------------+ 523 ;; 10 |[ ]Line Number | | | +---------+ +------------+
524 ;; 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic 524 ;; 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic
525 ;; 12 |[ ]Duplex | | \---|Directory| | 2-up... | 525 ;; 12 |[ ]Duplex | | \---|Directory| | 2-up... |
579 ;; up at the printer. With major mode printing you don't need to 579 ;; up at the printer. With major mode printing you don't need to
580 ;; switch from gnus *Summary* buffer first. 580 ;; switch from gnus *Summary* buffer first.
581 ;; 581 ;;
582 ;; NOTE 2: There are the following options for PostScript file 582 ;; NOTE 2: There are the following options for PostScript file
583 ;; processing: 583 ;; processing:
584 ;; Ia. Print the file *as is*, that is, send it directly to 584 ;; Ia. Print the file *No Preprocessing*, that is, send it
585 ;; PostScript printer. 585 ;; directly to PostScript printer.
586 ;; Ib. PostScript utility processing selection. 586 ;; Ib. PostScript utility processing selection.
587 ;; See `pr-ps-utility-alist' and `pr-setting-database' for 587 ;; See `pr-ps-utility-alist' and `pr-setting-database' for
588 ;; documentation. 588 ;; documentation.
589 ;; Ic. Do n-up processing before printing. 589 ;; Ic. Do n-up processing before printing.
590 ;; Id. Toggle on/off landscape for PostScript file processing. 590 ;; Id. Toggle on/off landscape for PostScript file processing.
2413 ["2-up" (pr-ps-mode-preview 2 t) t] 2413 ["2-up" (pr-ps-mode-preview 2 t) t]
2414 ["4-up" (pr-ps-mode-preview 4 t) t] 2414 ["4-up" (pr-ps-mode-preview 4 t) t]
2415 ["Other..." (pr-ps-mode-preview nil t) 2415 ["Other..." (pr-ps-mode-preview nil t)
2416 :keys "\\[pr-ps-mode-preview]"]) 2416 :keys "\\[pr-ps-mode-preview]"])
2417 ("File" 2417 ("File"
2418 ["As Is..." (call-interactively 'pr-ps-file-preview) 2418 ["No Preprocessing..." (call-interactively 'pr-ps-file-preview)
2419 :keys "\\[pr-ps-file-preview]" 2419 :keys "\\[pr-ps-file-preview]"
2420 :help "Preview PostScript file"] 2420 :help "Preview PostScript file"]
2421 "--" 2421 "--"
2422 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist 2422 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist
2423 :help "Select PostScript utility"] 2423 :help "Select PostScript utility"]
2468 ["2-up" (pr-ps-mode-ps-print 2 t) t] 2468 ["2-up" (pr-ps-mode-ps-print 2 t) t]
2469 ["4-up" (pr-ps-mode-ps-print 4 t) t] 2469 ["4-up" (pr-ps-mode-ps-print 4 t) t]
2470 ["Other..." (pr-ps-mode-ps-print nil t) 2470 ["Other..." (pr-ps-mode-ps-print nil t)
2471 :keys "\\[pr-ps-mode-ps-print]"]) 2471 :keys "\\[pr-ps-mode-ps-print]"])
2472 ("File" 2472 ("File"
2473 ["As Is..." (call-interactively 'pr-ps-file-ps-print) 2473 ["No Preprocessing..." (call-interactively 'pr-ps-file-ps-print)
2474 :keys "\\[pr-ps-file-ps-print]" 2474 :keys "\\[pr-ps-file-ps-print]"
2475 :help "Send PostScript file to printer"] 2475 :help "Send PostScript file to printer"]
2476 "--" 2476 "--"
2477 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist 2477 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist
2478 :help "Select PostScript utility"] 2478 :help "Select PostScript utility"]
2622 ["2-up" (pr-ps-mode-preview 2 t) t] 2622 ["2-up" (pr-ps-mode-preview 2 t) t]
2623 ["4-up" (pr-ps-mode-preview 4 t) t] 2623 ["4-up" (pr-ps-mode-preview 4 t) t]
2624 ["Other..." (pr-ps-mode-preview nil t) 2624 ["Other..." (pr-ps-mode-preview nil t)
2625 :keys "\\[pr-ps-mode-preview]"]) 2625 :keys "\\[pr-ps-mode-preview]"])
2626 ("File" 2626 ("File"
2627 ["As Is..." (call-interactively 'pr-ps-file-preview) 2627 ["No Preprocessing..." (call-interactively 'pr-ps-file-preview)
2628 :keys "\\[pr-ps-file-preview]"] 2628 :keys "\\[pr-ps-file-preview]"]
2629 "--" 2629 "--"
2630 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist] 2630 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist]
2631 "--" 2631 "--"
2632 ["1-up..." (pr-ps-file-up-preview 1 t t) pr-ps-utility-alist] 2632 ["1-up..." (pr-ps-file-up-preview 1 t t) pr-ps-utility-alist]
2670 ["2-up" (pr-ps-mode-ps-print 2 t) t] 2670 ["2-up" (pr-ps-mode-ps-print 2 t) t]
2671 ["4-up" (pr-ps-mode-ps-print 4 t) t] 2671 ["4-up" (pr-ps-mode-ps-print 4 t) t]
2672 ["Other..." (pr-ps-mode-ps-print nil t) 2672 ["Other..." (pr-ps-mode-ps-print nil t)
2673 :keys "\\[pr-ps-mode-ps-print]"]) 2673 :keys "\\[pr-ps-mode-ps-print]"])
2674 ("File" 2674 ("File"
2675 ["As Is..." (call-interactively 'pr-ps-file-ps-print) 2675 ["No Preprocessing..." (call-interactively 'pr-ps-file-ps-print)
2676 :keys "\\[pr-ps-file-ps-print]"] 2676 :keys "\\[pr-ps-file-ps-print]"]
2677 "--" 2677 "--"
2678 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist] 2678 ["PostScript Utility" pr-update-menus :active pr-ps-utility-alist]
2679 "--" 2679 "--"
2680 ["1-up..." (pr-ps-file-up-ps-print 1 t t) pr-ps-utility-alist] 2680 ["1-up..." (pr-ps-file-up-ps-print 1 t t) pr-ps-utility-alist]
2859 +-----------------------------+ |Mode >|-- B |Other...| 2859 +-----------------------------+ |Mode >|-- B |Other...|
2860 II 4 | Printify >|-----\\ |File >|--\\ +--------+ 2860 II 4 | Printify >|-----\\ |File >|--\\ +--------+
2861 5 | Print >|---\\ | |Despool... | | 2861 5 | Print >|---\\ | |Despool... | |
2862 6 | Text Printer: name >|-\\ | | +-----------+ | 2862 6 | Text Printer: name >|-\\ | | +-----------+ |
2863 +-----------------------------+ | | | +---------+ +------------+ 2863 +-----------------------------+ | | | +---------+ +------------+
2864 III 7 |[ ]Landscape | | | \\-|Directory| | As Is... | Ia 2864 III 7 |[ ]Landscape | | | \\-|Directory| | No Prep... | Ia
2865 8 |[ ]Print Header | | | |Buffer | +------------+ Ib 2865 8 |[ ]Print Header | | | |Buffer | +------------+ Ib
2866 9 |[ ]Print Header Frame | | | |Region | | name >|- C 2866 9 |[ ]Print Header Frame | | | |Region | | name >|- C
2867 10 |[ ]Line Number | | | +---------+ +------------+ 2867 10 |[ ]Line Number | | | +---------+ +------------+
2868 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic 2868 11 |[ ]Zebra Stripes | | | +---------+ | 1-up... | Ic
2869 12 |[ ]Duplex | | \\---|Directory| | 2-up... | 2869 12 |[ ]Duplex | | \\---|Directory| | 2-up... |
2921 you'll get a nicely formatted list of article subjects shows 2921 you'll get a nicely formatted list of article subjects shows
2922 up at the printer. With major mode printing you don't need to 2922 up at the printer. With major mode printing you don't need to
2923 switch from gnus *Summary* buffer first. 2923 switch from gnus *Summary* buffer first.
2924 2924
2925 NOTE 2: There are the following options for PostScript file processing: 2925 NOTE 2: There are the following options for PostScript file processing:
2926 Ia. Print the file *as is*, that is, send it directly to 2926 Ia. Print the file *No Preprocessing*, that is, send it
2927 PostScript printer. 2927 directly to PostScript printer.
2928 Ib. PostScript utility processing selection. 2928 Ib. PostScript utility processing selection.
2929 See `pr-ps-utility-alist' and `pr-setting-database' for 2929 See `pr-ps-utility-alist' and `pr-setting-database' for
2930 documentation. 2930 documentation.
2931 Ic. Do n-up processing before printing. 2931 Ic. Do n-up processing before printing.
2932 Id. Toggle on/off landscape for PostScript file processing. 2932 Id. Toggle on/off landscape for PostScript file processing.
3128 See `pr-ps-utility-alist' and `pr-setting-database' for documentation. 3128 See `pr-ps-utility-alist' and `pr-setting-database' for documentation.
3129 3129
3130 NOTE 2: Don't forget to download and install the utilities declared on 3130 NOTE 2: Don't forget to download and install the utilities declared on
3131 `pr-ps-utility-alist'. 3131 `pr-ps-utility-alist'.
3132 3132
3133 * Use It AS-IS : 3133 * No Preprocessing:
3134 If it's turned on, don't use the PostScript utility to preprocess the 3134 If it's turned on, don't use the PostScript utility to preprocess the
3135 PostScript file before printing/previewing. 3135 PostScript file before printing/previewing.
3136 3136
3137 2. PostScript printer: 3137 2. PostScript printer:
3138 3138
5750 ;; 1c. PostScript File: PostScript Utility 5750 ;; 1c. PostScript File: PostScript Utility
5751 (pr-insert-menu "PostScript Utility" 'pr-ps-utility 5751 (pr-insert-menu "PostScript Utility" 'pr-ps-utility
5752 (pr-choice-alist pr-ps-utility-alist) 5752 (pr-choice-alist pr-ps-utility-alist)
5753 "\n PostScript Utility : " 5753 "\n PostScript Utility : "
5754 " ") 5754 " ")
5755 ;; 1c. PostScript File: Use It AS-IS 5755 ;; 1c. PostScript File: No Preprocessing
5756 (pr-insert-toggle 'pr-i-ps-as-is " Use It ") 5756 (pr-insert-toggle 'pr-i-ps-as-is " No Preprocessing"))
5757 (pr-insert-italic "AS-IS"))
5758 5757
5759 5758
5760 (defun pr-insert-section-2 () 5759 (defun pr-insert-section-2 ()
5761 ;; 2. PostScript Printer: 5760 ;; 2. PostScript Printer:
5762 ;; 2. PostScript Printer: PostScript Printer List 5761 ;; 2. PostScript Printer: PostScript Printer List