5 |
|
|
6 |
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
7 |
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
8 |
;; Time-stamp: <2004/11/13 21:36:38 vinicius> |
;; Time-stamp: <2004/11/14 14:38:36 vinicius> |
9 |
;; Keywords: wp, print, PostScript |
;; Keywords: wp, print, PostScript |
10 |
;; Version: 6.8.3 |
;; Version: 6.8.3 |
11 |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
12 |
|
|
13 |
(defconst pr-version "6.8.3" |
(defconst pr-version "6.8.3" |
14 |
"printing.el, v 6.8.3 <2004/11/13 vinicius> |
"printing.el, v 6.8.3 <2004/11/14 vinicius> |
15 |
|
|
16 |
Please send all bug fixes and enhancements to |
Please send all bug fixes and enhancements to |
17 |
Vinicius Jose Latorre <viniciusjl@ig.com.br> |
Vinicius Jose Latorre <viniciusjl@ig.com.br> |
2578 |
|
|
2579 |
(defconst pr-menu-spec |
(defconst pr-menu-spec |
2580 |
;; Menu mapping: |
;; Menu mapping: |
2581 |
;; unfortunately XEmacs doesn't support :active or :visible |
;; unfortunately XEmacs doesn't support :active for submenus, |
2582 |
;; for submenus, only for items. |
;; only for items. |
2583 |
;; It uses :included instead of :active or :visible. |
;; So, it uses :included instead of :active. |
2584 |
;; Also, XEmacs doesn't support :help tag. |
;; Also, XEmacs doesn't support :help tag. |
2585 |
(let ((pr-:active (if (eq ps-print-emacs-type 'emacs) |
(let ((pr-:active (if (eq ps-print-emacs-type 'emacs) |
2586 |
:active ; GNU Emacs |
:active ; GNU Emacs |
2587 |
:included)) ; XEmacs |
:included)) ; XEmacs |
2588 |
(pr-:visible (if (eq ps-print-emacs-type 'emacs) |
(pr-:help (if (eq ps-print-emacs-type 'emacs) |
2589 |
:visible ; GNU Emacs |
#'(lambda (text) (list :help text)) ; GNU Emacs |
2590 |
:included)) ; XEmacs |
'ignore))) ; XEmacs |
|
pr-:help) |
|
|
(if (eq ps-print-emacs-type 'emacs) |
|
|
(defalias 'pr-:help #'(lambda (text) (list :help text))) ; GNU Emacs |
|
|
(defalias 'pr-:help 'ignore)) ; XEmacs |
|
2591 |
`( |
`( |
2592 |
["Printing Interface" pr-interface |
["Printing Interface" pr-interface |
2593 |
,@(pr-:help "Use buffer interface instead of menu interface")] |
,@(funcall |
2594 |
|
pr-:help "Use buffer interface instead of menu interface")] |
2595 |
"--" |
"--" |
2596 |
("PostScript Preview" ,pr-:visible (pr-visible-p 'postscript) |
("PostScript Preview" :included (pr-visible-p 'postscript) |
2597 |
,@(pr-:help "Preview PostScript instead of sending to printer") |
,@(funcall |
2598 |
|
pr-:help "Preview PostScript instead of sending to printer") |
2599 |
("Directory" ,pr-:active (not pr-spool-p) |
("Directory" ,pr-:active (not pr-spool-p) |
2600 |
["1-up" (pr-ps-directory-preview 1 nil nil t) t] |
["1-up" (pr-ps-directory-preview 1 nil nil t) t] |
2601 |
["2-up" (pr-ps-directory-preview 2 nil nil t) t] |
["2-up" (pr-ps-directory-preview 2 nil nil t) t] |
2623 |
("File" |
("File" |
2624 |
["No Preprocessing..." (call-interactively 'pr-ps-file-preview) |
["No Preprocessing..." (call-interactively 'pr-ps-file-preview) |
2625 |
:keys "\\[pr-ps-file-preview]" |
:keys "\\[pr-ps-file-preview]" |
2626 |
,@(pr-:help "Preview PostScript file")] |
,@(funcall |
2627 |
|
pr-:help "Preview PostScript file")] |
2628 |
"--" |
"--" |
2629 |
["PostScript Utility" pr-update-menus :active pr-ps-utility-alist |
["PostScript Utility" pr-update-menus :active pr-ps-utility-alist |
2630 |
,@(pr-:help "Select PostScript utility")] |
,@(funcall |
2631 |
|
pr-:help "Select PostScript utility")] |
2632 |
"--" |
"--" |
2633 |
["1-up..." (pr-ps-file-up-preview 1 t t) pr-ps-utility-alist] |
["1-up..." (pr-ps-file-up-preview 1 t t) pr-ps-utility-alist] |
2634 |
["2-up..." (pr-ps-file-up-preview 2 t t) pr-ps-utility-alist] |
["2-up..." (pr-ps-file-up-preview 2 t t) pr-ps-utility-alist] |
2638 |
"--" |
"--" |
2639 |
["Landscape" pr-toggle-file-landscape |
["Landscape" pr-toggle-file-landscape |
2640 |
:style toggle :selected pr-file-landscape |
:style toggle :selected pr-file-landscape |
2641 |
,@(pr-:help "Toggle landscape for PostScript file") |
,@(funcall |
2642 |
|
pr-:help "Toggle landscape for PostScript file") |
2643 |
:active pr-ps-utility-alist] |
:active pr-ps-utility-alist] |
2644 |
["Duplex" pr-toggle-file-duplex |
["Duplex" pr-toggle-file-duplex |
2645 |
:style toggle :selected pr-file-duplex |
:style toggle :selected pr-file-duplex |
2646 |
,@(pr-:help "Toggle duplex for PostScript file") |
,@(funcall |
2647 |
|
pr-:help "Toggle duplex for PostScript file") |
2648 |
:active pr-ps-utility-alist] |
:active pr-ps-utility-alist] |
2649 |
["Tumble" pr-toggle-file-tumble |
["Tumble" pr-toggle-file-tumble |
2650 |
:style toggle :selected pr-file-tumble |
:style toggle :selected pr-file-tumble |
2651 |
,@(pr-:help "Toggle tumble for PostScript file") |
,@(funcall |
2652 |
|
pr-:help "Toggle tumble for PostScript file") |
2653 |
:active (and pr-file-duplex pr-ps-utility-alist)]) |
:active (and pr-file-duplex pr-ps-utility-alist)]) |
2654 |
["Despool..." (call-interactively 'pr-despool-preview) |
["Despool..." (call-interactively 'pr-despool-preview) |
2655 |
:active pr-spool-p :keys "\\[pr-despool-preview]" |
:active pr-spool-p :keys "\\[pr-despool-preview]" |
2656 |
,@(pr-:help "Despool PostScript buffer to printer or file (C-u)")]) |
,@(funcall |
2657 |
("PostScript Print" ,pr-:visible (pr-visible-p 'postscript) |
pr-:help "Despool PostScript buffer to printer or file (C-u)")]) |
2658 |
,@(pr-:help "Send PostScript to printer or file (C-u)") |
("PostScript Print" :included (pr-visible-p 'postscript) |
2659 |
|
,@(funcall |
2660 |
|
pr-:help "Send PostScript to printer or file (C-u)") |
2661 |
("Directory" |
("Directory" |
2662 |
["1-up" (pr-ps-directory-ps-print 1 nil nil t) t] |
["1-up" (pr-ps-directory-ps-print 1 nil nil t) t] |
2663 |
["2-up" (pr-ps-directory-ps-print 2 nil nil t) t] |
["2-up" (pr-ps-directory-ps-print 2 nil nil t) t] |
2685 |
("File" |
("File" |
2686 |
["No Preprocessing..." (call-interactively 'pr-ps-file-ps-print) |
["No Preprocessing..." (call-interactively 'pr-ps-file-ps-print) |
2687 |
:keys "\\[pr-ps-file-ps-print]" |
:keys "\\[pr-ps-file-ps-print]" |
2688 |
,@(pr-:help "Send PostScript file to printer")] |
,@(funcall |
2689 |
|
pr-:help "Send PostScript file to printer")] |
2690 |
"--" |
"--" |
2691 |
["PostScript Utility" pr-update-menus :active pr-ps-utility-alist |
["PostScript Utility" pr-update-menus :active pr-ps-utility-alist |
2692 |
,@(pr-:help "Select PostScript utility")] |
,@(funcall |
2693 |
|
pr-:help "Select PostScript utility")] |
2694 |
"--" |
"--" |
2695 |
["1-up..." (pr-ps-file-up-ps-print 1 t t) pr-ps-utility-alist] |
["1-up..." (pr-ps-file-up-ps-print 1 t t) pr-ps-utility-alist] |
2696 |
["2-up..." (pr-ps-file-up-ps-print 2 t t) pr-ps-utility-alist] |
["2-up..." (pr-ps-file-up-ps-print 2 t t) pr-ps-utility-alist] |
2700 |
"--" |
"--" |
2701 |
["Landscape" pr-toggle-file-landscape |
["Landscape" pr-toggle-file-landscape |
2702 |
:style toggle :selected pr-file-landscape |
:style toggle :selected pr-file-landscape |
2703 |
,@(pr-:help "Toggle landscape for PostScript file") |
,@(funcall |
2704 |
|
pr-:help "Toggle landscape for PostScript file") |
2705 |
:active pr-ps-utility-alist] |
:active pr-ps-utility-alist] |
2706 |
["Duplex" pr-toggle-file-duplex |
["Duplex" pr-toggle-file-duplex |
2707 |
:style toggle :selected pr-file-duplex |
:style toggle :selected pr-file-duplex |
2708 |
,@(pr-:help "Toggle duplex for PostScript file") |
,@(funcall |
2709 |
|
pr-:help "Toggle duplex for PostScript file") |
2710 |
:active pr-ps-utility-alist] |
:active pr-ps-utility-alist] |
2711 |
["Tumble" pr-toggle-file-tumble |
["Tumble" pr-toggle-file-tumble |
2712 |
:style toggle :selected pr-file-tumble |
:style toggle :selected pr-file-tumble |
2713 |
,@(pr-:help "Toggle tumble for PostScript file") |
,@(funcall |
2714 |
|
pr-:help "Toggle tumble for PostScript file") |
2715 |
:active (and pr-file-duplex pr-ps-utility-alist)]) |
:active (and pr-file-duplex pr-ps-utility-alist)]) |
2716 |
["Despool..." (call-interactively 'pr-despool-ps-print) |
["Despool..." (call-interactively 'pr-despool-ps-print) |
2717 |
:active pr-spool-p :keys "\\[pr-despool-ps-print]" |
:active pr-spool-p :keys "\\[pr-despool-ps-print]" |
2718 |
,@(pr-:help "Despool PostScript buffer to printer or file (C-u)")]) |
,@(funcall |
2719 |
|
pr-:help "Despool PostScript buffer to printer or file (C-u)")]) |
2720 |
["PostScript Printers" pr-update-menus |
["PostScript Printers" pr-update-menus |
2721 |
:active pr-ps-printer-alist :included (pr-visible-p 'postscript) |
:active pr-ps-printer-alist :included (pr-visible-p 'postscript) |
2722 |
,@(pr-:help "Select PostScript printer")] |
,@(funcall |
2723 |
|
pr-:help "Select PostScript printer")] |
2724 |
"--" |
"--" |
2725 |
("Printify" ,pr-:visible (pr-visible-p 'text) |
("Printify" :included (pr-visible-p 'text) |
2726 |
,@(pr-:help |
,@(funcall |
2727 |
|
pr-:help |
2728 |
"Replace non-printing chars with printable representations.") |
"Replace non-printing chars with printable representations.") |
2729 |
["Directory" pr-printify-directory t] |
["Directory" pr-printify-directory t] |
2730 |
["Buffer" pr-printify-buffer t] |
["Buffer" pr-printify-buffer t] |
2731 |
["Region" pr-printify-region (ps-mark-active-p)]) |
["Region" pr-printify-region (ps-mark-active-p)]) |
2732 |
("Print" ,pr-:visible (pr-visible-p 'text) |
("Print" :included (pr-visible-p 'text) |
2733 |
,@(pr-:help "Send text to printer") |
,@(funcall |
2734 |
|
pr-:help "Send text to printer") |
2735 |
["Directory" pr-txt-directory t] |
["Directory" pr-txt-directory t] |
2736 |
["Buffer" pr-txt-buffer t] |
["Buffer" pr-txt-buffer t] |
2737 |
["Region" pr-txt-region (ps-mark-active-p)] |
["Region" pr-txt-region (ps-mark-active-p)] |
2738 |
["Mode" pr-txt-mode (pr-mode-alist-p)]) |
["Mode" pr-txt-mode (pr-mode-alist-p)]) |
2739 |
["Text Printers" pr-update-menus |
["Text Printers" pr-update-menus |
2740 |
:active pr-txt-printer-alist :included (pr-visible-p 'text) |
:active pr-txt-printer-alist :included (pr-visible-p 'text) |
2741 |
,@(pr-:help "Select text printer")] |
,@(funcall |
2742 |
|
pr-:help "Select text printer")] |
2743 |
"--" |
"--" |
2744 |
["Landscape" pr-toggle-landscape |
["Landscape" pr-toggle-landscape |
2745 |
:style toggle :selected ps-landscape-mode |
:style toggle :selected ps-landscape-mode |
2765 |
["Upside-Down" pr-toggle-upside-down |
["Upside-Down" pr-toggle-upside-down |
2766 |
:style toggle :selected ps-print-upside-down |
:style toggle :selected ps-print-upside-down |
2767 |
:included (pr-visible-p 'postscript-options)] |
:included (pr-visible-p 'postscript-options)] |
2768 |
("Print All Pages" ,pr-:visible (pr-visible-p 'postscript-options) |
("Print All Pages" :included (pr-visible-p 'postscript-options) |
2769 |
,@(pr-:help "Select odd/even pages/sheets to print") |
,@(funcall |
2770 |
|
pr-:help "Select odd/even pages/sheets to print") |
2771 |
["All Pages" (pr-even-or-odd-pages nil) |
["All Pages" (pr-even-or-odd-pages nil) |
2772 |
:style radio :selected (eq ps-even-or-odd-pages nil)] |
:style radio :selected (eq ps-even-or-odd-pages nil)] |
2773 |
["Even Pages" (pr-even-or-odd-pages 'even-page) |
["Even Pages" (pr-even-or-odd-pages 'even-page) |
2782 |
["Spool Buffer" pr-toggle-spool |
["Spool Buffer" pr-toggle-spool |
2783 |
:style toggle :selected pr-spool-p |
:style toggle :selected pr-spool-p |
2784 |
:included (pr-visible-p 'postscript-process) |
:included (pr-visible-p 'postscript-process) |
2785 |
,@(pr-:help "Toggle PostScript spooling")] |
,@(funcall |
2786 |
|
pr-:help "Toggle PostScript spooling")] |
2787 |
["Print with faces" pr-toggle-faces |
["Print with faces" pr-toggle-faces |
2788 |
:style toggle :selected pr-faces-p |
:style toggle :selected pr-faces-p |
2789 |
:included (pr-visible-p 'postscript-process) |
:included (pr-visible-p 'postscript-process) |
2790 |
,@(pr-:help "Toggle PostScript printing with faces")] |
,@(funcall |
2791 |
|
pr-:help "Toggle PostScript printing with faces")] |
2792 |
["Print via Ghostscript" pr-toggle-ghostscript |
["Print via Ghostscript" pr-toggle-ghostscript |
2793 |
:style toggle :selected pr-print-using-ghostscript |
:style toggle :selected pr-print-using-ghostscript |
2794 |
:included (pr-visible-p 'postscript-process) |
:included (pr-visible-p 'postscript-process) |
2795 |
,@(pr-:help "Toggle PostScript generation using ghostscript")] |
,@(funcall |
2796 |
|
pr-:help "Toggle PostScript generation using ghostscript")] |
2797 |
"--" |
"--" |
2798 |
["Auto Region" pr-toggle-region |
["Auto Region" pr-toggle-region |
2799 |
:style toggle :selected pr-auto-region |
:style toggle :selected pr-auto-region |
2805 |
:style toggle :selected pr-menu-lock |
:style toggle :selected pr-menu-lock |
2806 |
:included (pr-visible-p 'printing)] |
:included (pr-visible-p 'printing)] |
2807 |
"--" |
"--" |
2808 |
("Customize" ,pr-:visible (pr-visible-p 'help) |
("Customize" :included (pr-visible-p 'help) |
2809 |
["printing" pr-customize t] |
["printing" pr-customize t] |
2810 |
["ps-print" ps-print-customize t] |
["ps-print" ps-print-customize t] |
2811 |
["lpr" lpr-customize t]) |
["lpr" lpr-customize t]) |
2812 |
("Show Settings" ,pr-:visible (pr-visible-p 'help) |
("Show Settings" :included (pr-visible-p 'help) |
2813 |
["printing" pr-show-pr-setup t] |
["printing" pr-show-pr-setup t] |
2814 |
["ps-print" pr-show-ps-setup t] |
["ps-print" pr-show-ps-setup t] |
2815 |
["lpr" pr-show-lpr-setup t]) |
["lpr" pr-show-lpr-setup t]) |