/[emacs]/emacs/lisp/printing.el
ViewVC logotype

Diff of /emacs/lisp/printing.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by viniciusjl, Sun Nov 14 00:47:34 2004 UTC revision 1.23 by viniciusjl, Sun Nov 14 16:50:37 2004 UTC
# Line 5  Line 5 
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>
# Line 2578  It uses `pr-interactive-p' var (which se Line 2578  It uses `pr-interactive-p' var (which se
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]
# Line 2625  It uses `pr-interactive-p' var (which se Line 2623  It uses `pr-interactive-p' var (which se
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]
# Line 2638  It uses `pr-interactive-p' var (which se Line 2638  It uses `pr-interactive-p' var (which se
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]
# Line 2680  It uses `pr-interactive-p' var (which se Line 2685  It uses `pr-interactive-p' var (which se
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]
# Line 2693  It uses `pr-interactive-p' var (which se Line 2700  It uses `pr-interactive-p' var (which se
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
# Line 2750  It uses `pr-interactive-p' var (which se Line 2765  It uses `pr-interactive-p' var (which se
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)
# Line 2766  It uses `pr-interactive-p' var (which se Line 2782  It uses `pr-interactive-p' var (which se
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
# Line 2786  It uses `pr-interactive-p' var (which se Line 2805  It uses `pr-interactive-p' var (which se
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])

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26