comparison lisp/printing.el @ 73827:985f3831f360

Fix Print submenu creation

73826:1d5a66a8dd30

;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
;;   2006 Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Time-stamp: <2006/09/15 18:53:14 vinicius>
;; Keywords: wp, print, PostScript
;; Version: 6.8.4
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst pr-version "6.8.4"

;; `printing' depends on ps-print package to generate PostScript files, to
;; spool and to despool PostScript buffer.  So, `printing' provides an
;; interface to ps-print package and it also provides some extra stuff.
;;
;; To download the latest ps-print package see
;; `http://www.cpqd.com.br/~vinicius/emacs/ps-print.tar.gz'.
;; Please, see README file for ps-print installation instructions.
;;
;; `printing' was inspired on:
;;
;;    print-nt.el	      Frederic Corne <[e-mail]>

;;
;; Below are some URL where you can find good utilities.
;;
;; * For `printing' package:
;;
;;    printing	`http://www.cpqd.com.br/~vinicius/emacs/printing.el.gz'
;;    ps-print	`http://www.cpqd.com.br/~vinicius/emacs/ps-print.tar.gz'
;;
;; * For GNU or Unix system:
;;
;;    gs, gv         `http://www.gnu.org/software/ghostscript/ghostscript.html'
;;    enscript       `http://people.ssh.fi/mtr/genscript/'

(defun pr-alist-custom-set (symbol value)
  "Set the value of custom variables for printer & utility selection."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (not pr-menu-print-item)
       (pr-update-menus t)))


(defun pr-ps-utility-custom-set (symbol value)
  "Update utility menu entry."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (not pr-menu-print-item)
       (pr-menu-set-utility-title value)))


(defun pr-ps-name-custom-set (symbol value)
  "Update `PostScript Printer:' menu entry."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (not pr-menu-print-item)
       (pr-menu-set-ps-title value)))


(defun pr-txt-name-custom-set (symbol value)
  "Update `Text Printer:' menu entry."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (not pr-menu-print-item)
       (pr-menu-set-txt-title value)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User Interface (I)

    ;; Replace existing "print" item by "Printing" item.
    ;; If you're changing this file, you'll load it a second,
    ;; third... time, but "print" item exists only in the first load.
    (cond
     ;; Emacs 20
     ((string< emacs-version "21.")
      (easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item)
      (when pr-menu-print-item
	(easy-menu-remove-item nil '("tools") pr-menu-print-item)
	(setq pr-menu-print-item nil
	      pr-menu-bar (vector 'menu-bar 'tools
				  (pr-get-symbol "Printing")))))
     ;; Emacs 21 & 22
     (t
      (cond
       (pr-menu-print-item
	(easy-menu-add-item menu-bar-file-menu nil
			    (easy-menu-create-menu "Print" pr-menu-spec)
			    "print-buffer")
	(dolist (item '("print-buffer"          "print-region"
			"ps-print-buffer-faces" "ps-print-region-faces"
			"ps-print-buffer"       "ps-print-region"))
	  (easy-menu-remove-item menu-bar-file-menu nil item))
	(setq pr-menu-print-item nil
	      pr-menu-bar (vector 'menu-bar
				  'file
				  (pr-get-symbol "Print"))))
       (t
	(easy-menu-change '("file") "Print" pr-menu-spec)))))))
  (pr-update-menus t))


;; Key binding
(let ((pr-print-key (if (featurep 'xemacs)

  (switch-to-buffer (get-buffer-create pr-buffer-name))

  ;; header
  (let ((versions (concat "printing v" pr-version
			  "    ps-print v" ps-print-version)))
    (widget-insert (make-string (- 79 (length versions)) ?\s) versions))
  (pr-insert-italic "\nCurrent Directory : " 1)
  (pr-insert-italic default-directory)

  (pr-insert-section-1)			; 1. Print
  (pr-insert-section-2)			; 2. PostScript Printer

73827:985f3831f360

;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
;;   2006 Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Time-stamp: <2006/11/08 12:01:50 vinicius>
;; Keywords: wp, print, PostScript
;; Version: 6.8.4
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst pr-version "6.8.4"

;; `printing' depends on ps-print package to generate PostScript files, to
;; spool and to despool PostScript buffer.  So, `printing' provides an
;; interface to ps-print package and it also provides some extra stuff.
;;
;; To download the latest ps-print package see
;; `http://www.emacswiki.org/cgi-bin/emacs/download/ps-print.tar.gz'.
;; Please, see README file for ps-print installation instructions.
;;
;; `printing' was inspired on:
;;
;;    print-nt.el	      Frederic Corne <[e-mail]>

;;
;; Below are some URL where you can find good utilities.
;;
;; * For `printing' package:
;;
;;    printing	`http://www.emacswiki.org/cgi-bin/emacs/download/printing.el'
;;    ps-print	`http://www.emacswiki.org/cgi-bin/emacs/download/ps-print.tar.gz'
;;
;; * For GNU or Unix system:
;;
;;    gs, gv         `http://www.gnu.org/software/ghostscript/ghostscript.html'
;;    enscript       `http://people.ssh.fi/mtr/genscript/'

(defun pr-alist-custom-set (symbol value)
  "Set the value of custom variables for printer & utility selection."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (pr-update-menus t)))


(defun pr-ps-utility-custom-set (symbol value)
  "Update utility menu entry."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (pr-menu-set-utility-title value)))


(defun pr-ps-name-custom-set (symbol value)
  "Update `PostScript Printer:' menu entry."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (pr-menu-set-ps-title value)))


(defun pr-txt-name-custom-set (symbol value)
  "Update `Text Printer:' menu entry."
  (set symbol value)
  (and (featurep 'printing)		; update only after printing is loaded
       (pr-menu-set-txt-title value)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User Interface (I)

    ;; Replace existing "print" item by "Printing" item.
    ;; If you're changing this file, you'll load it a second,
    ;; third... time, but "print" item exists only in the first load.
    (cond
     ;; Emacs 20
     ((< emacs-major-version 21)
      (easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item)
      (when pr-menu-print-item
	(easy-menu-remove-item nil '("tools") pr-menu-print-item)
	(setq pr-menu-print-item nil
	      pr-menu-bar (vector 'menu-bar 'tools
				  (pr-get-symbol "Printing")))))
     ;; Emacs 21 & 22
     (t
      (let ((menu-file (if (= emacs-major-version 21)
			   '("menu-bar" "files") ; Emacs 21
			 '("menu-bar" "file")))) ; Emacs 22 or higher
	(cond
	 (pr-menu-print-item
	  (easy-menu-add-item global-map menu-file
			      (easy-menu-create-menu "Print" pr-menu-spec)
			      "print-buffer")
	  (dolist (item '("print-buffer"          "print-region"
			  "ps-print-buffer-faces" "ps-print-region-faces"
			  "ps-print-buffer"       "ps-print-region"))
	    (easy-menu-remove-item global-map menu-file item))
	  (setq pr-menu-print-item nil
		pr-menu-bar (vector 'menu-bar
				    (pr-get-symbol (nth 1 menu-file))
				    (pr-get-symbol "Print"))))
	 (t
	  (easy-menu-change (cdr menu-file) "Print" pr-menu-spec))))))))
  (pr-update-menus t))


;; Key binding
(let ((pr-print-key (if (featurep 'xemacs)

  (switch-to-buffer (get-buffer-create pr-buffer-name))

  ;; header
  (let ((versions (concat "printing v" pr-version
			  "    ps-print v" ps-print-version)))
    ;; to keep compatibility with Emacs 20 & 21:
    ;; DO NOT REPLACE `?\ ' BY `?\s'
    (widget-insert (make-string (- 79 (length versions)) ?\ ) versions))
  (pr-insert-italic "\nCurrent Directory : " 1)
  (pr-insert-italic default-directory)

  (pr-insert-section-1)			; 1. Print
  (pr-insert-section-2)			; 2. PostScript Printer