comparison lisp/printing.el @ 54146:2a5eca2838d1

A lot of doc fix.

54145:e3765a3df826

;;; printing.el --- printing utilities

;; Copyright (C) 2000, 2001, 2002, 2003
;; Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript
;; Time-stamp: <2002/09/11 16:59:00 vinicius>
;; Version: 6.7.1
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/

(defconst pr-version "6.7.1"
  "printing.el, v 6.7.1 <2002/09/11 vinicius>

Please send all bug fixes and enhancements to
	Vinicius Jose Latorre <[e-mail]>
")

;; The general meanings of above commands are:
;;
;;    PREFIX:
;;    `pr-interface'	buffer interface for printing package.
;;    `pr-help'		help for printing package.
;;    `pr-ps-name'	select interactively a PostScript printer.
;;    `pr-txt-name'	select interactively a text printer.
;;    `pr-ps-utility'	select interactively a PostScript utility.
;;    `pr-show-*-setup'	show current settings.
;;    `pr-ps-*'		deal with PostScript code generation.
;;    `pr-txt-*'	deal with text generation.
;;    `pr-toggle-*'	toggle on/off some boolean variable.
;;    `pr-despool-*'	despool the PostScript spooling buffer.

;; `pr-temp-dir'		Specify a directory for temporary files during
;;				printing.
;;
;; `pr-ps-temp-file'		Specify PostScript temporary file name.
;;
;; `pr-gv-command'		Specify path and name of gsview program.
;;
;; `pr-gs-command'		Specify path and name of ghostscript program.
;;
;; `pr-gs-switches'		Specify ghostscript switches.
;;
;; `pr-gs-device'		Specify ghostscript device switch value.
;;

;; `pr-file-tumble'		Non-nil means print PostScript file in tumble
;;				mode.
;;
;; `pr-auto-region'		Non-nil means region is automagically detected.
;;
;; `pr-auto-mode'		Non-nil means major-mode printing is prefered
;;				over normal printing.
;;
;; `pr-mode-alist'		Specify an alist for a major-mode and printing
;;				function.
;;
;; `pr-ps-utility'		Specify PostScript utility processing.

;;     13 |[ ]Tumble                    | \--\  |Buffer   |   |   4-up...  |
;;     14 |[ ]Upside-Down               |    |  |Region   |   |   Other... |
;;     15 |   Print All Pages          >|--\ |  |Mode     |   +------------+
;;        +-----------------------------+  | |  +---------+   |[ ]Landscape| Id
;; IV  16 |[ ]Spool Buffer              |  | |  +-C-------+   |[ ]Duplex   | Ie
;;     17 |[ ]Print with-faces          |  | \--|( )name A|   |[ ]Tumble   | If
;;     18 |[ ]Print Using Ghostscript   |  |    |( )name B|   +------------+
;;        +-----------------------------+  |    |...      |
;; V   19 |[ ]Auto Region               |  |    |(*)name  |
;;     20 |[ ]Auto Mode                 |  |    |...      |
;;     21 |[ ]Menu Lock                 |  |    +---------+   +--------------+
;;        +-----------------------------+  \------------------|(*)All Pages  |

;;
;;    20. Turn this option on if you want that when current major-mode is
;;	  declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
;;	  behave like `*-mode*' commands.
;;
;;    21. If you want that Printing menu stays poped up while you are setting
;;	  toggle options, turn on this option.  The variables
;;	  `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
;;	  menu position, so don't forget to adjust these variables if menu
;;	  position is not ok.
;;

		`pr-txt-name' variable setting and for menu selection.
		Examples:
			'prt_06a
			'my_printer

COMMAND		Name of program for printing a text file.  On MS-DOS and
		MS-Windows systems, if the value is an empty string then Emacs
		will write directly to the printer port named by NAME (see text
		below), that is, the NAME should be something like \"PRN\" or
		\"LPT1:\".
		If NAME is something like \"\\\\\\\\host\\\\share-name\" then
		COMMAND shouldn't be an empty string.
		The programs `print' and `nprint' (the standard print programs

		`pr-ps-name' variable setting and for menu selection.
		Examples:
			'prt_06a
			'my_printer

COMMAND		Name of program for printing a PostScript file.  On MS-DOS and
		MS-Windows systems, if the value is an empty string then Emacs
		will write directly to the printer port named by NAME (see text
		below), that is, the NAME should be something like \"PRN\" or
		\"LPT1:\".
		If NAME is something like \"\\\\\\\\host\\\\share-name\" then
		COMMAND shouldn't be an empty string.
		The programs `print' and `nprint' (the standard print programs
		on Windows NT and Novell Netware respectively) are handled
		specially, using NAME as the destination for output; any other

(defcustom pr-gv-command
  (if ps-windows-system
      "gsview32.exe"
    "gv")
  "*Specify path and name of gsview program.

See also `pr-path-alist'."
  :type '(string :tag "Ghostview Program")
  :group 'printing)


(defcustom pr-gs-command
  (if ps-windows-system
      "gswin32.exe"
    "gs")
  "*Specify path and name of ghostscript program.

See also `pr-path-alist'."
  :type '(string :tag "Ghostscript Program")
  :group 'printing)


(defcustom pr-gs-switches
  (if ps-windows-system

(defcustom pr-gs-device
  (if ps-windows-system
      "mswinpr2"
    "uniprint")
  "*Specify ghostscript device switch value (-sDEVICE=).

A note on the gs switches:

-sDEVICE=djet500	the printer - works with HP DeskJet 540

  :type 'boolean
  :group 'printing)


(defcustom pr-auto-mode t
  "*Non-nil means major-mode printing is prefered over normal printing.

That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*'
and `*-region*' commands will behave like `*-mode*' commands; otherwise,
`*-buffer*' commands will print the current buffer and `*-region*' commands
will print the current region."

			\"psnup -q\"

		    . for Windows system:
			\"c:/psutils/psnup -q\"

MUST-SWITCHES	List of sexp's to pass as options for PostScript utility
		program.  These options are necessary to process the utility
		program and must be place before any other switches.
		Example:
		    . for psnup:
			'(\"-q\")

PAPERSIZE	It's a format string to specify paper size switch.

			\" \" ; psnup ... input output

		    . for mpage
			\">\" ; mpage ... input > output

SWITCHES	List of sexp's to pass as extra options for PostScript utility
		program.
		Example:
		    . for psnup
			'(\"-q\")
			nil

			      |[ ] Tumble                    |
			      |[ ] Upside-Down               |
			      |    Print All Pages          >|
			      +------------------------------+
   `postscript-process'	      |[ ] Spool Buffer              |
			      |[ ] Print with-faces          |
			      |[ ] Print Using Ghostscript   |
			      +------------------------------+
   `printing'		      |[ ] Auto Region               |
			      |[ ] Auto Mode                 |
			      |[ ] Menu Lock                 |
			      +------------------------------+

  "Name of program for printing a text file.
See `pr-txt-printer-alist'.")


(defvar pr-txt-switches nil
  "List of sexp's to pass as extra options for text printer program.
See `pr-txt-printer-alist'.")


(defvar pr-txt-printer nil
  "Specify text printer name.

  "Name of program for printing a PostScript file.
See `pr-ps-printer-alist'.")


(defvar pr-ps-switches nil
  "List of sexp's to pass as extra options for PostScript printer program.
See `pr-ps-printer-alist'.")


(defvar pr-ps-printer-switch nil
  "Specify PostScript printer name switch.

	"--"
	["Spool Buffer"            pr-toggle-spool
	 :style toggle :selected pr-spool-p
	 :included (pr-visible-p 'postscript-process)
	 :help "Toggle PostScript spooling"]
	["Print with-faces"        pr-toggle-faces
	 :style toggle :selected pr-faces-p
	 :included (pr-visible-p 'postscript-process)
	 :help "Toggle PostScript printing with faces"]
	["Print Using Ghostscript" pr-toggle-ghostscript
	 :style toggle :selected pr-print-using-ghostscript
	 :included (pr-visible-p 'postscript-process)
	 :help "Toggle PostScript generation using ghostscript"]
	"--"
	["Auto Region" pr-toggle-region

	  :style radio :selected (eq ps-even-or-odd-pages 'odd-sheet)])
	"--"
	["Spool Buffer"            pr-toggle-spool
	 :style toggle :selected pr-spool-p
	 :included (pr-visible-p 'postscript-process)]
	["Print with-faces"        pr-toggle-faces
	 :style toggle :selected pr-faces-p
	 :included (pr-visible-p 'postscript-process)]
	["Print Using Ghostscript" pr-toggle-ghostscript
	 :style toggle :selected pr-print-using-ghostscript
	 :included (pr-visible-p 'postscript-process)]
	"--"
	["Auto Region" pr-toggle-region
	 :style toggle :selected pr-auto-region

    13 |[ ]Tumble                    | \\--\\  |Buffer   |   |   4-up...  |
    14 |[ ]Upside-Down               |    |  |Region   |   |   Other... |
    15 |   Print All Pages          >|--\\ |  |Mode     |   +------------+
       +-----------------------------+  | |  +---------+   |[ ]Landscape| Id
IV  16 |[ ]Spool Buffer              |  | |  +-C-------+   |[ ]Duplex   | Ie
    17 |[ ]Print with-faces          |  | \\--|( )name A|   |[ ]Tumble   | If
    18 |[ ]Print Using Ghostscript   |  |    |( )name B|   +------------+
       +-----------------------------+  |    |...      |
V   19 |[ ]Auto Region               |  |    |(*)name  |
    20 |[ ]Auto Mode                 |  |    |...      |
    21 |[ ]Menu Lock                 |  |    +---------+   +--------------+
       +-----------------------------+  \\------------------|(*)All Pages  |

      Also, if you already have a PostScript file you can print it.
      Instead of printing each buffer, region or major mode at once, you can
      save temporarily the PostScript code generated in a buffer and print it
      later.  The option `Despool...' despools the PostScript spooling buffer
      directly on a printer.  If you type C-u before choosing this option,
      the PostScript code generated is saved in a file instead of sending to
      printer.  To spool the PostScript code generated you need to turn on
      the option 16.  This option is enabled if spooling is on (option 16).
      See also the NOTE 1, NOTE 2 and NOTE 3 on option 1.

   3. You can select a new PostScript printer to send PostScript code
      generated.  For selection it's used all PostScript printers defined
      in `pr-ps-printer-alist' variable (see it for documentation).

   20. Turn this option on if you want that when current major-mode is
       declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
       behave like `*-mode*' commands.

   21. If you want that Printing menu stays poped while you are setting
       toggle options, turn on this option.  The variables
       `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
       menu position, so don't forget to adjust these variables if menu
       position is not ok.

	 Turn this option on if you want that when current major-mode is
	 declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
	 behave like `*-mode*' commands.

      * Menu Lock:
	 If you want that Printing menu stays poped while you are setting
	 toggle options, turn on this option.  The variables
	 `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
	 menu position, so don't forget to adjust these variables if menu
	 position is not ok.

      * Spool Buffer:
	 To spool the PostScript code generated.  You can despool later by
	 setting Despool option on PostScript printer section.

      * Print with-faces:
	 If you use colors in your buffers and want to see these colors on your
	 PostScript code generated, turn on this option.  If you have a
	 black/white PostScript printer, these colors are displayed in gray
	 scale by PostScript printer interpreter.

      * Print Using Ghostscript:
	 If you don't have a PostScript printer to send PostScript files, turn
	 on this option.  When this option is on, the ghostscript is used to
	 print PostScript files.  In GNU or Unix system, if ghostscript is set
	 as a PostScript filter, you don't need to turn on this option.

;;;###autoload
(defun pr-interface (&optional buffer)
  "Activate the printing interface buffer.

If BUFFER is nil, it uses the current buffer for printing.

For more informations, type \\[pr-interface-help]."
  (interactive)
  (save-excursion
    (set-buffer (or buffer (current-buffer)))
    (pr-create-interface)))

  "Print PostScript file FILENAME."
  (interactive (list (pr-ps-infile-preprint "Print ")))
  (and (stringp filename) (file-exists-p filename)
       ;; printing
       (let ((file (pr-expand-file-name filename)))
	 (if (string-equal pr-ps-command "")
	     (let ((ps-spool-buffer (get-buffer-create ps-spool-buffer-name)))
	       (save-excursion
		 (set-buffer ps-spool-buffer)
		 (erase-buffer)
		 (insert-file-contents-literally file))

;;;###autoload
(defun pr-toggle-faces ()
  "Toggle printing with faces."
  (interactive)
  (pr-toggle 'pr-faces-p "Printing with-faces"
	     'postscript-process 1 12 'toggle))


;;;###autoload
(defun pr-toggle-spool ()

	     'printing 1 12 'toggle))


;;;###autoload
(defun pr-customize (&rest ignore)
  "Customization of `printing' group."
  (interactive)
  (customize-group 'printing))


;;;###autoload
(defun lpr-customize (&rest ignore)
  "Customization of `lpr' group."
  (interactive)
  (customize-group 'lpr))


;;;###autoload
(defun pr-help (&rest ignore)
  "Help for printing package."
  (interactive)
  (pr-show-setup pr-help-message "*Printing Help*"))


;;;###autoload
(defun pr-ps-name ()
  "Select interactively a PostScript printer."
  (interactive)
  (pr-menu-set-ps-title
   (pr-complete-alist "PostScript printer" pr-ps-printer-alist pr-ps-name)))


;;;###autoload
(defun pr-txt-name ()
  "Select interactively a text printer."
  (interactive)
  (pr-menu-set-txt-title
   (pr-complete-alist "Text printer" pr-txt-printer-alist pr-txt-name)))


;;;###autoload
(defun pr-ps-utility ()
  "Select interactively a PostScript utility."
  (interactive)
  (pr-menu-set-utility-title
   (pr-complete-alist "Postscript utility" pr-ps-utility-alist pr-ps-utility)))

	   (setq index (+ index
			  (cdr (assq key pr-menu-entry-alist)))))))
  (+ index 2))


(eval-and-compile
  (cond
   ((eq ps-print-emacs-type 'xemacs)
    ;; XEmacs
    (defun pr-menu-position (entry index horizontal)

	 (list (- (car pos)		; X
		  (* horizontal pr-menu-char-width))
	       (- (cdr pos)		; Y
		  (* (pr-menu-index entry index) pr-menu-char-height)))
	 (selected-frame))))		; frame
    )))


(defvar pr-menu-position nil)
(defvar pr-menu-state nil)


(cond
 ((eq ps-print-emacs-type 'emacs)
  ;; GNU Emacs
  (defun pr-menu-lock (entry index horizontal state path)
    (when (and (not (interactive-p)) pr-menu-lock)
      (or (and pr-menu-position (eq state pr-menu-state))
	  (setq pr-menu-position (pr-menu-position entry index horizontal)
		pr-menu-state    state))
      (let* ((menu   (pr-menu-lookup path))
	     (result (x-popup-menu pr-menu-position menu)))
	(and result
	     (let ((command (lookup-key menu (vconcat result))))
	       (if (fboundp command)
		   (funcall command)
		 (eval command)))))
      (setq pr-menu-position nil)))

  ;; GNU Emacs
  (defun pr-menu-lookup (path)
    (let ((ipath pr-menu-bar))
      (lookup-key global-map
		  (if path
		      (vconcat ipath
			       (mapcar 'pr-get-symbol
				       (if (listp path)
					   path
					 (list path))))
		    ipath)))))


 ((eq ps-print-emacs-type 'xemacs)
  ;; XEmacs
  (defun pr-menu-lock (entry index horizontal state path)
    (when (and (not (interactive-p)) pr-menu-lock)
      (or (and pr-menu-position (eq state pr-menu-state))
	  (setq pr-menu-position (pr-menu-position entry index horizontal)
		pr-menu-state    state))
      (let* ((menu   (pr-menu-lookup path))
	     (result (pr-x-get-popup-menu-response menu pr-menu-position)))
	(and (pr-x-misc-user-event-p result)
	     (funcall (pr-x-event-function result)
		      (pr-x-event-object result))))
      (setq pr-menu-position nil)))

  ;; XEmacs
  (defun pr-menu-lookup (path)
    (car (pr-x-find-menu-item current-menubar (cons "Printing" path))))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Printer & Utility Selection

  (pr-update-var 'pr-ps-utility pr-ps-utility-alist)
  (pr-do-update-menus force))


(defvar pr-ps-printer-menu-modified  t
  "Non-nil means `pr-ps-printer-alist' was modified and need to update menu.")
(defvar pr-txt-printer-menu-modified t
  "Non-nil means `pr-txt-printer-alist' was modified and need to update menu.")
(defvar pr-ps-utility-menu-modified t
  "Non-nil means `pr-ps-utility-alist' was modified and need to update menu.")


(defconst pr-even-or-odd-alist
  '((nil        . "Print All   Pages")
    (even-page  . "Print Even  Pages")
    (odd-page   . "Print Odd   Pages")
    (even-sheet . "Print Even Sheets")
    (odd-sheet  . "Print Odd  Sheets")))


(defun pr-menu-create (name alist var-sym fun entry index)
  (cons name
	(mapcar

   (pr-x-relabel-menu-item
    (list "Printing" (symbol-value var-sym))
    newname)
   (set var-sym newname)))


(defun pr-menu-set-item-name (item name)
  (and item
       (setcar (nthcdr 2 item) name)))	; ITEM-NAME


(defun pr-menu-get-item (name-list)
  ;; NAME-LIST is a string or a list of strings.
  (let ((ipath pr-menu-bar)
	(len   (and (listp name-list) (length name-list))))
    (and len (= len 1)

(defun pr-command (command)
  "Return absolute file name specification for COMMAND.

If COMMAND is already an absolute file name specification, return it.
Else it uses `pr-path-alist' to find COMMAND, if find it then return it;
otherwise, gives an error.

When using `pr-path-alist' to find COMMAND, the entries `cygwin', `windows' and
`unix' are used (see `pr-path-alist' for documentation).

If Emacs is running on Windows 95/98/NT/2000, tries to find COMMAND,
COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
  (pr-dosify-path
   (or (pr-find-command command)
       (pr-path-command (cond (pr-cygwin-system  'cygwin)
			      (ps-windows-system 'windows)
			      (t                 'unix))
			(file-name-nondirectory command)
			nil)
       (error "Command not found: %s" (file-name-nondirectory command)))))


(defun pr-path-command (symbol command sym-list)
  (let ((lpath (cdr (assq symbol pr-path-alist)))
	cmd)

   :notify 'pr-interface-directory
   :action (lambda (widget &optional event)
	     (if (pr-interface-directory widget)
		 (pr-widget-field-action widget event)
	       (ding)
	       (message "It should be a readable directory")))
   pr-i-directory)
  ;;    1b. Directory: File Regexp
  (widget-create 'regexp
		 :size 58
		 :format "\n      File Regexp : %v\n"

   :notify 'pr-interface-infile
   :action (lambda (widget &rest event)
	     (if (pr-interface-infile widget)
		 (pr-widget-field-action widget event)
	       (ding)
	       (message "It should be a readable PostScript file")))
   pr-i-ps-file)
  ;;    1c. PostScript File: PostScript Utility
  (pr-insert-menu "PostScript Utility" 'pr-ps-utility
		  (pr-choice-alist pr-ps-utility-alist)
		  "\n      PostScript Utility : "

	'pr-i-despool
	#'(lambda (widget &rest ignore)
	    (if pr-spool-p
		(setq pr-i-despool (not pr-i-despool))
	      (ding)
	      (message "It despool only when it's spooling")
	      (setq pr-i-despool nil))
	    (widget-value-set widget pr-i-despool)
	    (widget-setup))		; MUST be called after widget-value-set
	" Despool   "))
  ;; 2. PostScript Printer: Preview    Print    Quit

		      (or (not (file-exists-p pr-i-out-file))
			  (setq pr-i-answer-yes
				(y-or-n-p "File exists; overwrite? "))))
		 (pr-widget-field-action widget event)
	       (ding)
	       (message "It should be a writable PostScript file")))
   pr-i-out-file)
  ;; 2. PostScript Printer: N-Up
  (widget-create
   'integer
   :size 3

			(<= 1 value) (<= value 100))
		   (progn
		     (message " ")
		     (setq pr-i-n-up value))
		 (ding)
		 (message "It should be an integer between 1 and 100"))))
   pr-i-n-up))


(defun pr-insert-section-3 ()
  ;; 3. Text Printer:

			  (unless pr-spool-p
			    (setq pr-i-despool nil)
			    (pr-update-checkbox 'pr-i-despool)))
		      " Spool Buffer")

  ;; 4. Settings: Duplex                Print with-faces
  (pr-insert-checkbox "\n  "
		      'ps-spool-duplex
		      #'(lambda (&rest ignore)
			  (setq ps-spool-duplex (not ps-spool-duplex)
				pr-file-duplex  ps-spool-duplex))
		      " Duplex                ")
  (pr-insert-toggle 'pr-faces-p " Print with-faces")

  ;; 4. Settings: Tumble                Print Using Ghostscript
  (pr-insert-checkbox "\n  "
		      'ps-spool-tumble
		      #'(lambda (&rest ignore)
			  (setq ps-spool-tumble (not ps-spool-tumble)
				pr-file-tumble  ps-spool-tumble))
		      " Tumble                ")
  (pr-insert-toggle 'pr-print-using-ghostscript " Print Using Ghostscript\n  ")

  ;; 4. Settings: Upside-Down           Page Parity
  (pr-insert-toggle 'ps-print-upside-down " Upside-Down           ")
  (pr-insert-menu "Page Parity" 'ps-even-or-odd-pages
		  (mapcar #'(lambda (alist)

	       (t
		(let (pr-auto-mode pr-auto-region)
		  (pr-txt-buffer)))
	       )))
       ((eq pr-i-process 'file)
	(error "It should be a text file"))
       (t
	(error "Internal error: `pr-i-process' = %S" pr-i-process))
       )
    ;; handlers
    ((quit error)

	(pr-interface-save
	 (if pr-i-region
	     (pr-printify-region)
	   (pr-printify-buffer))))
       ((eq pr-i-process 'file)
	(error "It can't printify a PostScript file"))
       (t
	(error "Internal error: `pr-i-process' = %S" pr-i-process))
       )
    ;; handlers
    ((quit error)

	   (funcall ps-directory
		    pr-i-n-up pr-i-directory pr-i-regexp outfile)))
	 ((eq pr-i-process 'file)
	  (cond ((or (file-directory-p pr-i-ps-file)
		     (not (file-readable-p pr-i-ps-file)))
		 (error "It should be a readable PostScript file"))
		(pr-i-ps-as-is
		 (pr-interface-save
		  (funcall ps-file pr-i-ps-file)))
		(t
		 (pr-interface-save

	 nil)
	((not (eq pr-i-ps-send 'file))
	 (error "Internal error: `pr-i-ps-send' = %S" pr-i-ps-send))
	((or (file-directory-p pr-i-out-file)
	     (not (file-writable-p pr-i-out-file)))
	 (error "It should be a writable PostScript file"))
	((or (not (file-exists-p pr-i-out-file))
	     pr-i-answer-yes
	     (setq pr-i-answer-yes
		   (y-or-n-p (format "File `%s' exists; overwrite? "
				     pr-i-out-file))))

(defun pr-i-directory ()
  (or (and (file-directory-p pr-i-directory)
	   (file-readable-p pr-i-directory))
      (error "It should be a readable directory")))


(defun pr-interface-directory (widget &rest ignore)
  (and pr-buffer-verbose
       (message "Type M-TAB or ESC TAB for file completion"))
  (let ((dir (widget-value widget)))
    (and (file-directory-p dir)
	 (file-readable-p dir)
	 (setq pr-i-directory dir))))


(defun pr-interface-infile (widget &rest ignore)
  (and pr-buffer-verbose
       (message "Type M-TAB or ESC TAB for file completion"))
  (let ((file (widget-value widget)))
    (and (not (file-directory-p file))
	 (file-readable-p file)
	 (setq pr-i-ps-file file))))


(defun pr-interface-outfile (widget &rest ignore)
  (setq pr-i-answer-yes nil)
  (and pr-buffer-verbose
       (message "Type M-TAB or ESC TAB for file completion"))
  (let ((file (widget-value widget)))
    (and (not (file-directory-p file))
	 (file-writable-p file)
	 (setq pr-i-out-file file))))

54146:2a5eca2838d1

;;; printing.el --- printing utilities

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

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Time-stamp: <2004/02/26 00:43:07 vinicius>
;; Keywords: wp, print, PostScript
;; Version: 6.7.2
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/

(defconst pr-version "6.7.2"
  "printing.el, v 6.7.2 <2004/02/26 vinicius>

Please send all bug fixes and enhancements to
	Vinicius Jose Latorre <[e-mail]>
")

;; The general meanings of above commands are:
;;
;;    PREFIX:
;;    `pr-interface'	buffer interface for printing package.
;;    `pr-help'		help for printing package.
;;    `pr-ps-name'	interactively select a PostScript printer.
;;    `pr-txt-name'	interactively select a text printer.
;;    `pr-ps-utility'	interactively select a PostScript utility.
;;    `pr-show-*-setup'	show current settings.
;;    `pr-ps-*'		deal with PostScript code generation.
;;    `pr-txt-*'	deal with text generation.
;;    `pr-toggle-*'	toggle on/off some boolean variable.
;;    `pr-despool-*'	despool the PostScript spooling buffer.

;; `pr-temp-dir'		Specify a directory for temporary files during
;;				printing.
;;
;; `pr-ps-temp-file'		Specify PostScript temporary file name.
;;
;; `pr-gv-command'		Specify path and name of the gsview/gv
;;				utility.
;;
;; `pr-gs-command'		Specify path and name of the ghostscript
;;				utility.
;;
;; `pr-gs-switches'		Specify ghostscript switches.
;;
;; `pr-gs-device'		Specify ghostscript device switch value.
;;

;; `pr-file-tumble'		Non-nil means print PostScript file in tumble
;;				mode.
;;
;; `pr-auto-region'		Non-nil means region is automagically detected.
;;
;; `pr-auto-mode'		Non-nil means major-mode specific printing is
;;				prefered over normal printing.
;;
;; `pr-mode-alist'		Specify an alist for a major-mode and printing
;;				function.
;;
;; `pr-ps-utility'		Specify PostScript utility processing.

;;     13 |[ ]Tumble                    | \--\  |Buffer   |   |   4-up...  |
;;     14 |[ ]Upside-Down               |    |  |Region   |   |   Other... |
;;     15 |   Print All Pages          >|--\ |  |Mode     |   +------------+
;;        +-----------------------------+  | |  +---------+   |[ ]Landscape| Id
;; IV  16 |[ ]Spool Buffer              |  | |  +-C-------+   |[ ]Duplex   | Ie
;;     17 |[ ]Print with faces          |  | \--|( )name A|   |[ ]Tumble   | If
;;     18 |[ ]Print via Ghostscript     |  |    |( )name B|   +------------+
;;        +-----------------------------+  |    |...      |
;; V   19 |[ ]Auto Region               |  |    |(*)name  |
;;     20 |[ ]Auto Mode                 |  |    |...      |
;;     21 |[ ]Menu Lock                 |  |    +---------+   +--------------+
;;        +-----------------------------+  \------------------|(*)All Pages  |

;;
;;    20. Turn this option on if you want that when current major-mode is
;;	  declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
;;	  behave like `*-mode*' commands.
;;
;;    21. If you want that Printing menu stays open while you are setting
;;	  toggle options, turn on this option.  The variables
;;	  `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
;;	  menu position, so don't forget to adjust these variables if menu
;;	  position is not ok.
;;

		`pr-txt-name' variable setting and for menu selection.
		Examples:
			'prt_06a
			'my_printer

COMMAND		Name of the program for printing a text file.  On MS-DOS and
		MS-Windows systems, if the value is an empty string, then Emacs
		will write directly to the printer port given by NAME (see text
		below), that is, the NAME should be something like \"PRN\" or
		\"LPT1:\".
		If NAME is something like \"\\\\\\\\host\\\\share-name\" then
		COMMAND shouldn't be an empty string.
		The programs `print' and `nprint' (the standard print programs

		`pr-ps-name' variable setting and for menu selection.
		Examples:
			'prt_06a
			'my_printer

COMMAND		Name of the program for printing a PostScript file.  On MS-DOS
		and MS-Windows systems, if the value is an empty string then
		Emacs will write directly to the printer port given by NAME
		(see text below), that is, the NAME should be something like
		\"PRN\" or \"LPT1:\".
		If NAME is something like \"\\\\\\\\host\\\\share-name\" then
		COMMAND shouldn't be an empty string.
		The programs `print' and `nprint' (the standard print programs
		on Windows NT and Novell Netware respectively) are handled
		specially, using NAME as the destination for output; any other

(defcustom pr-gv-command
  (if ps-windows-system
      "gsview32.exe"
    "gv")
  "*Specify path and name of the gsview/gv utility.

See also `pr-path-alist'."
  :type '(string :tag "Ghostview Utility")
  :group 'printing)


(defcustom pr-gs-command
  (if ps-windows-system
      "gswin32.exe"
    "gs")
  "*Specify path and name of the ghostscript utility.

See also `pr-path-alist'."
  :type '(string :tag "Ghostscript Utility")
  :group 'printing)


(defcustom pr-gs-switches
  (if ps-windows-system

(defcustom pr-gs-device
  (if ps-windows-system
      "mswinpr2"
    "uniprint")
  "*Specify the ghostscript device switch value (-sDEVICE=).

A note on the gs switches:

-sDEVICE=djet500	the printer - works with HP DeskJet 540

  :type 'boolean
  :group 'printing)


(defcustom pr-auto-mode t
  "*Non-nil means major-mode specific printing is prefered over normal printing.

That is, if current major-mode is declared in `pr-mode-alist', the `*-buffer*'
and `*-region*' commands will behave like `*-mode*' commands; otherwise,
`*-buffer*' commands will print the current buffer and `*-region*' commands
will print the current region."

			\"psnup -q\"

		    . for Windows system:
			\"c:/psutils/psnup -q\"

MUST-SWITCHES	List of sexp's to pass as options to the PostScript utility
		program.  These options are necessary to process the utility
		program and must be placed before any other switches.
		Example:
		    . for psnup:
			'(\"-q\")

PAPERSIZE	It's a format string to specify paper size switch.

			\" \" ; psnup ... input output

		    . for mpage
			\">\" ; mpage ... input > output

SWITCHES	List of sexp's to pass as extra options to the PostScript utility
		program.
		Example:
		    . for psnup
			'(\"-q\")
			nil

			      |[ ] Tumble                    |
			      |[ ] Upside-Down               |
			      |    Print All Pages          >|
			      +------------------------------+
   `postscript-process'	      |[ ] Spool Buffer              |
			      |[ ] Print with faces          |
			      |[ ] Print via Ghostscript     |
			      +------------------------------+
   `printing'		      |[ ] Auto Region               |
			      |[ ] Auto Mode                 |
			      |[ ] Menu Lock                 |
			      +------------------------------+

  "Name of program for printing a text file.
See `pr-txt-printer-alist'.")


(defvar pr-txt-switches nil
  "List of sexp's to pass as extra options to the text printer program.
See `pr-txt-printer-alist'.")


(defvar pr-txt-printer nil
  "Specify text printer name.

  "Name of program for printing a PostScript file.
See `pr-ps-printer-alist'.")


(defvar pr-ps-switches nil
  "List of sexp's to pass as extra options to the PostScript printer program.
See `pr-ps-printer-alist'.")


(defvar pr-ps-printer-switch nil
  "Specify PostScript printer name switch.

	"--"
	["Spool Buffer"            pr-toggle-spool
	 :style toggle :selected pr-spool-p
	 :included (pr-visible-p 'postscript-process)
	 :help "Toggle PostScript spooling"]
	["Print with faces"        pr-toggle-faces
	 :style toggle :selected pr-faces-p
	 :included (pr-visible-p 'postscript-process)
	 :help "Toggle PostScript printing with faces"]
	["Print via Ghostscript" pr-toggle-ghostscript
	 :style toggle :selected pr-print-using-ghostscript
	 :included (pr-visible-p 'postscript-process)
	 :help "Toggle PostScript generation using ghostscript"]
	"--"
	["Auto Region" pr-toggle-region

	  :style radio :selected (eq ps-even-or-odd-pages 'odd-sheet)])
	"--"
	["Spool Buffer"            pr-toggle-spool
	 :style toggle :selected pr-spool-p
	 :included (pr-visible-p 'postscript-process)]
	["Print with faces"        pr-toggle-faces
	 :style toggle :selected pr-faces-p
	 :included (pr-visible-p 'postscript-process)]
	["Print via Ghostscript" pr-toggle-ghostscript
	 :style toggle :selected pr-print-using-ghostscript
	 :included (pr-visible-p 'postscript-process)]
	"--"
	["Auto Region" pr-toggle-region
	 :style toggle :selected pr-auto-region

    13 |[ ]Tumble                    | \\--\\  |Buffer   |   |   4-up...  |
    14 |[ ]Upside-Down               |    |  |Region   |   |   Other... |
    15 |   Print All Pages          >|--\\ |  |Mode     |   +------------+
       +-----------------------------+  | |  +---------+   |[ ]Landscape| Id
IV  16 |[ ]Spool Buffer              |  | |  +-C-------+   |[ ]Duplex   | Ie
    17 |[ ]Print with faces          |  | \\--|( )name A|   |[ ]Tumble   | If
    18 |[ ]Print via Ghostscript     |  |    |( )name B|   +------------+
       +-----------------------------+  |    |...      |
V   19 |[ ]Auto Region               |  |    |(*)name  |
    20 |[ ]Auto Mode                 |  |    |...      |
    21 |[ ]Menu Lock                 |  |    +---------+   +--------------+
       +-----------------------------+  \\------------------|(*)All Pages  |

      Also, if you already have a PostScript file you can print it.
      Instead of printing each buffer, region or major mode at once, you can
      save temporarily the PostScript code generated in a buffer and print it
      later.  The option `Despool...' despools the PostScript spooling buffer
      directly on a printer.  If you type C-u before choosing this option,
      the PostScript code generated is saved in a file instead of sending it to
      the printer.  To spool the PostScript code generated you need to turn on
      option 16.  This option is enabled if spooling is on (option 16).
      See also the NOTE 1, NOTE 2 and NOTE 3 on option 1.

   3. You can select a new PostScript printer to send PostScript code
      generated.  For selection it's used all PostScript printers defined
      in `pr-ps-printer-alist' variable (see it for documentation).

   20. Turn this option on if you want that when current major-mode is
       declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
       behave like `*-mode*' commands.

   21. If you want that Printing menu stays open while you are setting
       toggle options, turn on this option.  The variables
       `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
       menu position, so don't forget to adjust these variables if menu
       position is not ok.

	 Turn this option on if you want that when current major-mode is
	 declared in `pr-mode-alist', the `*-buffer*' and `*-region*' commands
	 behave like `*-mode*' commands.

      * Menu Lock:
	 If you want that Printing menu stays open while you are setting
	 toggle options, turn on this option.  The variables
	 `pr-menu-char-height' and `pr-menu-char-width' are used to guess the
	 menu position, so don't forget to adjust these variables if menu
	 position is not ok.

      * Spool Buffer:
	 To spool the PostScript code generated.  You can despool later by
	 setting Despool option on PostScript printer section.

      * Print with faces:
	 If you use colors in your buffers and want to see these colors on your
	 PostScript code generated, turn on this option.  If you have a
	 black/white PostScript printer, these colors are displayed in gray
	 scale by PostScript printer interpreter.

      * Print via Ghostscript:
	 If you don't have a PostScript printer to send PostScript files, turn
	 on this option.  When this option is on, the ghostscript is used to
	 print PostScript files.  In GNU or Unix system, if ghostscript is set
	 as a PostScript filter, you don't need to turn on this option.

;;;###autoload
(defun pr-interface (&optional buffer)
  "Activate the printing interface buffer.

If BUFFER is nil, the current buffer is used for printing.

For more information, type \\[pr-interface-help]."
  (interactive)
  (save-excursion
    (set-buffer (or buffer (current-buffer)))
    (pr-create-interface)))

  "Print PostScript file FILENAME."
  (interactive (list (pr-ps-infile-preprint "Print ")))
  (and (stringp filename) (file-exists-p filename)
       ;; printing
       (let ((file (pr-expand-file-name filename)))
	 (if (string= pr-ps-command "")
	     (let ((ps-spool-buffer (get-buffer-create ps-spool-buffer-name)))
	       (save-excursion
		 (set-buffer ps-spool-buffer)
		 (erase-buffer)
		 (insert-file-contents-literally file))

;;;###autoload
(defun pr-toggle-faces ()
  "Toggle printing with faces."
  (interactive)
  (pr-toggle 'pr-faces-p "Printing with faces"
	     'postscript-process 1 12 'toggle))


;;;###autoload
(defun pr-toggle-spool ()

	     'printing 1 12 'toggle))


;;;###autoload
(defun pr-customize (&rest ignore)
  "Customization of the `printing' group."
  (interactive)
  (customize-group 'printing))


;;;###autoload
(defun lpr-customize (&rest ignore)
  "Customization of the `lpr' group."
  (interactive)
  (customize-group 'lpr))


;;;###autoload
(defun pr-help (&rest ignore)
  "Help for the printing package."
  (interactive)
  (pr-show-setup pr-help-message "*Printing Help*"))


;;;###autoload
(defun pr-ps-name ()
  "Interactively select a PostScript printer."
  (interactive)
  (pr-menu-set-ps-title
   (pr-complete-alist "PostScript printer" pr-ps-printer-alist pr-ps-name)))


;;;###autoload
(defun pr-txt-name ()
  "Interactively select a text printer."
  (interactive)
  (pr-menu-set-txt-title
   (pr-complete-alist "Text printer" pr-txt-printer-alist pr-txt-name)))


;;;###autoload
(defun pr-ps-utility ()
  "Interactively select a PostScript utility."
  (interactive)
  (pr-menu-set-utility-title
   (pr-complete-alist "Postscript utility" pr-ps-utility-alist pr-ps-utility)))

	   (setq index (+ index
			  (cdr (assq key pr-menu-entry-alist)))))))
  (+ index 2))


(defvar pr-menu-position nil)
(defvar pr-menu-state nil)


(eval-and-compile
  (cond
   ((eq ps-print-emacs-type 'xemacs)
    ;; XEmacs
    (defun pr-menu-position (entry index horizontal)

	 (list (- (car pos)		; X
		  (* horizontal pr-menu-char-width))
	       (- (cdr pos)		; Y
		  (* (pr-menu-index entry index) pr-menu-char-height)))
	 (selected-frame))))		; frame
    ))

  (cond
   ((eq ps-print-emacs-type 'emacs)
    ;; GNU Emacs
    (defun pr-menu-lookup (path)
      (let ((ipath pr-menu-bar))
	(lookup-key global-map
		    (if path
			(vconcat ipath
				 (mapcar 'pr-get-symbol
					 (if (listp path)
					     path
					   (list path))))
		      ipath))))

    ;; GNU Emacs
    (defun pr-menu-lock (entry index horizontal state path)
      (when (and (not (interactive-p)) pr-menu-lock)
	(or (and pr-menu-position (eq state pr-menu-state))
	    (setq pr-menu-position (pr-menu-position entry index horizontal)
		  pr-menu-state    state))
	(let* ((menu   (pr-menu-lookup path))
	       (result (x-popup-menu pr-menu-position menu)))
	  (and result
	       (let ((command (lookup-key menu (vconcat result))))
		 (if (fboundp command)
		     (funcall command)
		   (eval command)))))
	(setq pr-menu-position nil))))


   ((eq ps-print-emacs-type 'xemacs)
    ;; XEmacs
    (defun pr-menu-lookup (path)
      (car (pr-x-find-menu-item current-menubar (cons "Printing" path))))

    ;; XEmacs
    (defun pr-menu-lock (entry index horizontal state path)
      (when (and (not (interactive-p)) pr-menu-lock)
	(or (and pr-menu-position (eq state pr-menu-state))
	    (setq pr-menu-position (pr-menu-position entry index horizontal)
		  pr-menu-state    state))
	(let* ((menu   (pr-menu-lookup path))
	       (result (pr-x-get-popup-menu-response menu pr-menu-position)))
	  (and (pr-x-misc-user-event-p result)
	       (funcall (pr-x-event-function result)
			(pr-x-event-object result))))
	(setq pr-menu-position nil))))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Printer & Utility Selection

  (pr-update-var 'pr-ps-utility pr-ps-utility-alist)
  (pr-do-update-menus force))


(defvar pr-ps-printer-menu-modified  t
  "Non-nil means `pr-ps-printer-alist' was modified and we need to update menu.")
(defvar pr-txt-printer-menu-modified t
  "Non-nil means `pr-txt-printer-alist' was modified and we need to update menu.")
(defvar pr-ps-utility-menu-modified t
  "Non-nil means `pr-ps-utility-alist' was modified and we need to update menu.")


(defconst pr-even-or-odd-alist
  '((nil        . "Print All Pages")
    (even-page  . "Print Even Pages")
    (odd-page   . "Print Odd Pages")
    (even-sheet . "Print Even Sheets")
    (odd-sheet  . "Print Odd Sheets")))


(defun pr-menu-create (name alist var-sym fun entry index)
  (cons name
	(mapcar

   (pr-x-relabel-menu-item
    (list "Printing" (symbol-value var-sym))
    newname)
   (set var-sym newname)))

;; GNU Emacs
(defun pr-menu-set-item-name (item name)
  (and item
       (setcar (nthcdr 2 item) name)))	; ITEM-NAME

;; GNU Emacs
(defun pr-menu-get-item (name-list)
  ;; NAME-LIST is a string or a list of strings.
  (let ((ipath pr-menu-bar)
	(len   (and (listp name-list) (length name-list))))
    (and len (= len 1)

(defun pr-command (command)
  "Return absolute file name specification for COMMAND.

If COMMAND is an empty string, return it.

If COMMAND is already an absolute file name specification, return it.
Else it uses `pr-path-alist' to find COMMAND, if find it then return it;
otherwise, gives an error.

When using `pr-path-alist' to find COMMAND, the entries `cygwin', `windows' and
`unix' are used (see `pr-path-alist' for documentation).

If Emacs is running on Windows 95/98/NT/2000, tries to find COMMAND,
COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
  (if (string= command "")
      command
    (pr-dosify-path
     (or (pr-find-command command)
	 (pr-path-command (cond (pr-cygwin-system  'cygwin)
				(ps-windows-system 'windows)
				(t                 'unix))
			  (file-name-nondirectory command)
			  nil)
	 (error "Command not found: %s"
		(file-name-nondirectory command))))))


(defun pr-path-command (symbol command sym-list)
  (let ((lpath (cdr (assq symbol pr-path-alist)))
	cmd)

   :notify 'pr-interface-directory
   :action (lambda (widget &optional event)
	     (if (pr-interface-directory widget)
		 (pr-widget-field-action widget event)
	       (ding)
	       (message "Please specify a readable directory")))
   pr-i-directory)
  ;;    1b. Directory: File Regexp
  (widget-create 'regexp
		 :size 58
		 :format "\n      File Regexp : %v\n"

   :notify 'pr-interface-infile
   :action (lambda (widget &rest event)
	     (if (pr-interface-infile widget)
		 (pr-widget-field-action widget event)
	       (ding)
	       (message "Please specify a readable PostScript file")))
   pr-i-ps-file)
  ;;    1c. PostScript File: PostScript Utility
  (pr-insert-menu "PostScript Utility" 'pr-ps-utility
		  (pr-choice-alist pr-ps-utility-alist)
		  "\n      PostScript Utility : "

	'pr-i-despool
	#'(lambda (widget &rest ignore)
	    (if pr-spool-p
		(setq pr-i-despool (not pr-i-despool))
	      (ding)
	      (message "Can despool only when spooling is actually selected")
	      (setq pr-i-despool nil))
	    (widget-value-set widget pr-i-despool)
	    (widget-setup))		; MUST be called after widget-value-set
	" Despool   "))
  ;; 2. PostScript Printer: Preview    Print    Quit

		      (or (not (file-exists-p pr-i-out-file))
			  (setq pr-i-answer-yes
				(y-or-n-p "File exists; overwrite? "))))
		 (pr-widget-field-action widget event)
	       (ding)
	       (message "Please specify a writable PostScript file")))
   pr-i-out-file)
  ;; 2. PostScript Printer: N-Up
  (widget-create
   'integer
   :size 3

			(<= 1 value) (<= value 100))
		   (progn
		     (message " ")
		     (setq pr-i-n-up value))
		 (ding)
		 (message "Please specify an integer between 1 and 100"))))
   pr-i-n-up))


(defun pr-insert-section-3 ()
  ;; 3. Text Printer:

			  (unless pr-spool-p
			    (setq pr-i-despool nil)
			    (pr-update-checkbox 'pr-i-despool)))
		      " Spool Buffer")

  ;; 4. Settings: Duplex                Print with faces
  (pr-insert-checkbox "\n  "
		      'ps-spool-duplex
		      #'(lambda (&rest ignore)
			  (setq ps-spool-duplex (not ps-spool-duplex)
				pr-file-duplex  ps-spool-duplex))
		      " Duplex                ")
  (pr-insert-toggle 'pr-faces-p " Print with faces")

  ;; 4. Settings: Tumble                Print via Ghostscript
  (pr-insert-checkbox "\n  "
		      'ps-spool-tumble
		      #'(lambda (&rest ignore)
			  (setq ps-spool-tumble (not ps-spool-tumble)
				pr-file-tumble  ps-spool-tumble))
		      " Tumble                ")
  (pr-insert-toggle 'pr-print-using-ghostscript " Print via Ghostscript\n  ")

  ;; 4. Settings: Upside-Down           Page Parity
  (pr-insert-toggle 'ps-print-upside-down " Upside-Down           ")
  (pr-insert-menu "Page Parity" 'ps-even-or-odd-pages
		  (mapcar #'(lambda (alist)

	       (t
		(let (pr-auto-mode pr-auto-region)
		  (pr-txt-buffer)))
	       )))
       ((eq pr-i-process 'file)
	(error "Please specify a text file"))
       (t
	(error "Internal error: `pr-i-process' = %S" pr-i-process))
       )
    ;; handlers
    ((quit error)

	(pr-interface-save
	 (if pr-i-region
	     (pr-printify-region)
	   (pr-printify-buffer))))
       ((eq pr-i-process 'file)
	(error "Cannot printify a PostScript file"))
       (t
	(error "Internal error: `pr-i-process' = %S" pr-i-process))
       )
    ;; handlers
    ((quit error)

	   (funcall ps-directory
		    pr-i-n-up pr-i-directory pr-i-regexp outfile)))
	 ((eq pr-i-process 'file)
	  (cond ((or (file-directory-p pr-i-ps-file)
		     (not (file-readable-p pr-i-ps-file)))
		 (error "Please specify a readable PostScript file"))
		(pr-i-ps-as-is
		 (pr-interface-save
		  (funcall ps-file pr-i-ps-file)))
		(t
		 (pr-interface-save

	 nil)
	((not (eq pr-i-ps-send 'file))
	 (error "Internal error: `pr-i-ps-send' = %S" pr-i-ps-send))
	((or (file-directory-p pr-i-out-file)
	     (not (file-writable-p pr-i-out-file)))
	 (error "Please specify a writable PostScript file"))
	((or (not (file-exists-p pr-i-out-file))
	     pr-i-answer-yes
	     (setq pr-i-answer-yes
		   (y-or-n-p (format "File `%s' exists; overwrite? "
				     pr-i-out-file))))

(defun pr-i-directory ()
  (or (and (file-directory-p pr-i-directory)
	   (file-readable-p pr-i-directory))
      (error "Please specify be a readable directory")))


(defun pr-interface-directory (widget &rest ignore)
  (and pr-buffer-verbose
       (message "You can use M-TAB or ESC TAB for file completion"))
  (let ((dir (widget-value widget)))
    (and (file-directory-p dir)
	 (file-readable-p dir)
	 (setq pr-i-directory dir))))


(defun pr-interface-infile (widget &rest ignore)
  (and pr-buffer-verbose
       (message "You can use M-TAB or ESC TAB for file completion"))
  (let ((file (widget-value widget)))
    (and (not (file-directory-p file))
	 (file-readable-p file)
	 (setq pr-i-ps-file file))))


(defun pr-interface-outfile (widget &rest ignore)
  (setq pr-i-answer-yes nil)
  (and pr-buffer-verbose
       (message "You can use M-TAB or ESC TAB for file completion"))
  (let ((file (widget-value widget)))
    (and (not (file-directory-p file))
	 (file-writable-p file)
	 (setq pr-i-out-file file))))