Mercurial > emacs
comparison lisp/printing.el @ 54210:602769168263
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 |