comparison lisp/ps-print.el @ 90735:be5c45687c00

Handle frame parameters changing dynamically

90734:e4e4a56ef723

;;; ps-print.el --- print text from the buffer as PostScript

;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
;;   2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.

;; Author: Jim Thompson (was <[e-mail]>)
;;	Jacques Duthen (was <[e-mail]>)
;;	Vinicius Jose Latorre <[e-mail]>
;;	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer: Kenichi Handa <[e-mail]> (multi-byte characters)
;;	Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript
;; Version: 7.0
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst ps-print-version "7.0"
  "ps-print.el, v 7.0 <2006/12/01 vinicius>

Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number.  When reporting bugs, please also
report the version of Emacs, if any, that ps-print was distributed with.

(defalias 'ps-x-face-font-instance            'face-font-instance)
(defalias 'ps-x-find-coding-system            'find-coding-system)
(defalias 'ps-x-font-instance-properties      'font-instance-properties)
(defalias 'ps-x-make-color-instance           'make-color-instance)
(defalias 'ps-x-map-extents                   'map-extents)

;; GNU Emacs
(defalias 'ps-e-face-bold-p         'face-bold-p)
(defalias 'ps-e-face-italic-p       'face-italic-p)
(defalias 'ps-e-next-overlay-change 'next-overlay-change)
(defalias 'ps-e-overlays-at         'overlays-at)
(defalias 'ps-e-overlay-get         'overlay-get)
(defalias 'ps-e-overlay-end         'overlay-end)
(defalias 'ps-e-x-color-values      'x-color-values)
(defalias 'ps-e-color-values        'color-values)
(if (fboundp 'find-composition)
    (defalias 'ps-e-find-composition 'find-composition)
  (defalias 'ps-e-find-composition 'ignore))

       (defalias 'ps-mark-active-p 'region-active-p)
       (defun ps-face-foreground-name (face)
	 (ps-xemacs-color-name (face-foreground face)))
       (defun ps-face-background-name (face)
	 (ps-xemacs-color-name (face-background face)))
       )
      (t				; emacs 23 or higher
       (defvar mark-active nil)
       (defun ps-mark-active-p ()
	 mark-active)
       (defun ps-face-foreground-name (face)
	 (face-foreground face nil t))
       (defun ps-face-background-name (face)
	 (face-background face nil t))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User Variables:

		 (const :tag "Print Always Color" t)
		 (const :tag "Print Black/White Color" black-white))
  :version "20"
  :group 'ps-print-color)

(defcustom ps-default-fg '(0.0 0.0 0.0) ; black
  "*RGB values of the default foreground color.  Defaults to black.

The `ps-default-fg' variable contains the default foreground color used by
ps-print, that is, if there is a face in a text that doesn't have a foreground
color, the `ps-default-fg' color should be used.

Valid values are:

   t		The foreground color of Emacs session will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string which contains the color name.  For example:
		\"yellow\".

		  (RED, GREEN, BLUE)

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and black will be used.

It's used only when `ps-print-color-p' is non-nil."
  :type '(choice :menu-tag "Default Foreground Gray/Color"
		 :tag "Default Foreground Gray/Color"
		 (const :tag "Session Foreground" t)
		 (number :tag "Gray Scale" :value 0.0)
		 (string :tag "Color Name" :value "black")
		 (list :tag "RGB Color" :value (0.0 0.0 0.0)
		       (number :tag "Red")
		       (number :tag "Green")
		       (number :tag "Blue")))
  :version "20"
  :group 'ps-print-color)

(defcustom ps-default-bg '(1.0 1.0 1.0) ; white
  "*RGB values of the default background color.  Defaults to white.

The `ps-default-bg' variable contains the default background color used by
ps-print, that is, if there is a face in a text that doesn't have a background
color, the `ps-default-bg' color should be used.

Valid values are:

   t		The background color of Emacs session will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string which contains the color name.  For example:
		\"yellow\".

		  (RED, GREEN, BLUE)

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and white will be used.

It's used only when `ps-print-color-p' is non-nil.

See also `ps-use-face-background'."
  :type '(choice :menu-tag "Default Background Gray/Color"
		 :tag "Default Background Gray/Color"
		 (const :tag "Session Background" t)
		 (number :tag "Gray Scale" :value 1.0)
		 (string :tag "Color Name" :value "white")
		 (list :tag "RGB Color" :value (1.0 1.0 1.0)
		       (number :tag "Red")
		       (number :tag "Green")

	       (string-as-unibyte "[\000-\037\177-\237]"))
	      ((eq ps-print-control-characters 'control)
	       "[\000-\037\177]")
	      (t "[\t\n\f]"))
	ps-default-background (ps-rgb-color
			       (if (eq ps-default-bg t)
				   (ps-face-background-name 'default)
				 ps-default-bg)
			       1.0)
	ps-default-foreground (ps-rgb-color
			       (if (eq ps-default-fg t)
				   (ps-face-foreground-name 'default)
				 ps-default-fg)
			       0.0)
	ps-default-color (and (eq ps-print-color-p t) ps-default-foreground)
	ps-current-color ps-default-color
	;; Set the color scale.  We do it here instead of in the defvar so
	;; that ps-print can be dumped into emacs.  This expression can't be

			     (string< "" ps-printer-name)
			     (list (concat
				    (and (stringp ps-printer-name-option)
					 ps-printer-name-option)
				    ps-printer-name))))))
	  (apply (or ps-print-region-function 'call-process-region)
		 (point-min) (point-max) ps-lpr-command nil
		 (and (fboundp 'start-process) 0)
		 nil
		 (ps-flatten-list	; dynamic evaluation

90735:be5c45687c00

;;; ps-print.el --- print text from the buffer as PostScript

;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
;;   2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.

;; Author: Jim Thompson (was <[e-mail]>)
;;	Jacques Duthen (was <[e-mail]>)
;;	Vinicius Jose Latorre <[e-mail]>
;;	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer: Kenichi Handa <[e-mail]> (multi-byte characters)
;;	Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript
;; Version: 7.1
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst ps-print-version "7.1"
  "ps-print.el, v 7.1 <2007/01/21 vinicius>

Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number.  When reporting bugs, please also
report the version of Emacs, if any, that ps-print was distributed with.

(defalias 'ps-x-face-font-instance            'face-font-instance)
(defalias 'ps-x-find-coding-system            'find-coding-system)
(defalias 'ps-x-font-instance-properties      'font-instance-properties)
(defalias 'ps-x-make-color-instance           'make-color-instance)
(defalias 'ps-x-map-extents                   'map-extents)
(defalias 'ps-x-frame-property                'frame-property)

;; GNU Emacs
(defalias 'ps-e-face-bold-p         'face-bold-p)
(defalias 'ps-e-face-italic-p       'face-italic-p)
(defalias 'ps-e-next-overlay-change 'next-overlay-change)
(defalias 'ps-e-overlays-at         'overlays-at)
(defalias 'ps-e-overlay-get         'overlay-get)
(defalias 'ps-e-overlay-end         'overlay-end)
(defalias 'ps-e-x-color-values      'x-color-values)
(defalias 'ps-e-color-values        'color-values)
(defalias 'ps-e-frame-parameter     'frame-parameter)
(if (fboundp 'find-composition)
    (defalias 'ps-e-find-composition 'find-composition)
  (defalias 'ps-e-find-composition 'ignore))

       (defalias 'ps-mark-active-p 'region-active-p)
       (defun ps-face-foreground-name (face)
	 (ps-xemacs-color-name (face-foreground face)))
       (defun ps-face-background-name (face)
	 (ps-xemacs-color-name (face-background face)))
       (defun ps-frame-parameter (param)
	 (ps-x-frame-property nil param))
       )
      (t				; emacs 23 or higher
       (defvar mark-active nil)
       (defun ps-mark-active-p ()
	 mark-active)
       (defun ps-face-foreground-name (face)
	 (face-foreground face nil t))
       (defun ps-face-background-name (face)
	 (face-background face nil t))
       (defun ps-frame-parameter (param)
	 (ps-e-frame-parameter nil param))
       ))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User Variables:

		 (const :tag "Print Always Color" t)
		 (const :tag "Print Black/White Color" black-white))
  :version "20"
  :group 'ps-print-color)

(defcustom ps-default-fg 'frame-parameter
  "*RGB values of the default foreground color.

The `ps-default-fg' variable contains the default foreground color used by
ps-print, that is, if there is a face in a text that doesn't have a foreground
color, the `ps-default-fg' color should be used.

Valid values are:

   t		The foreground color of Emacs session will be used.

   frame-parameter	The foreground-color frame parameter will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string which contains the color name.  For example:
		\"yellow\".

		  (RED, GREEN, BLUE)

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and black color will be used.

It's used only when `ps-print-color-p' is non-nil."
  :type '(choice :menu-tag "Default Foreground Gray/Color"
		 :tag "Default Foreground Gray/Color"
		 (const :tag "Session Foreground" t)
		 (const :tag "Frame Foreground" frame-parameter)
		 (number :tag "Gray Scale" :value 0.0)
		 (string :tag "Color Name" :value "black")
		 (list :tag "RGB Color" :value (0.0 0.0 0.0)
		       (number :tag "Red")
		       (number :tag "Green")
		       (number :tag "Blue")))
  :version "20"
  :group 'ps-print-color)

(defcustom ps-default-bg 'frame-parameter
  "*RGB values of the default background color.

The `ps-default-bg' variable contains the default background color used by
ps-print, that is, if there is a face in a text that doesn't have a background
color, the `ps-default-bg' color should be used.

Valid values are:

   t		The background color of Emacs session will be used.

   frame-parameter	The background-color frame parameter will be used.

   NUMBER	It's a real value between 0.0 (black) and 1.0 (white) that
		indicate the gray color.

   COLOR-NAME	It's a string which contains the color name.  For example:
		\"yellow\".

		  (RED, GREEN, BLUE)

		Where RED, GREEN and BLUE are reals between 0.0 (no color) and
		1.0 (full color).

Any other value is ignored and white color will be used.

It's used only when `ps-print-color-p' is non-nil.

See also `ps-use-face-background'."
  :type '(choice :menu-tag "Default Background Gray/Color"
		 :tag "Default Background Gray/Color"
		 (const :tag "Session Background" t)
		 (const :tag "Frame Background" frame-parameter)
		 (number :tag "Gray Scale" :value 1.0)
		 (string :tag "Color Name" :value "white")
		 (list :tag "RGB Color" :value (1.0 1.0 1.0)
		       (number :tag "Red")
		       (number :tag "Green")

	       (string-as-unibyte "[\000-\037\177-\237]"))
	      ((eq ps-print-control-characters 'control)
	       "[\000-\037\177]")
	      (t "[\t\n\f]"))
	ps-default-background (ps-rgb-color
			       (cond
				((eq ps-default-bg 'frame-parameter)
				 (ps-frame-parameter 'background-color))
				((eq ps-default-bg t)
				 (ps-face-background-name 'default))
				(t
				 ps-default-bg))
			       1.0)
	ps-default-foreground (ps-rgb-color
			       (cond
				((eq ps-default-fg 'frame-parameter)
				 (ps-frame-parameter 'foreground-color))
				((eq ps-default-fg t)
				 (ps-face-foreground-name 'default))
				(t
				 ps-default-fg))
			       0.0)
	ps-default-color (and (eq ps-print-color-p t) ps-default-foreground)
	ps-current-color ps-default-color
	;; Set the color scale.  We do it here instead of in the defvar so
	;; that ps-print can be dumped into emacs.  This expression can't be

			     (string< "" ps-printer-name)
			     (list (concat
				    (and (stringp ps-printer-name-option)
					 ps-printer-name-option)
				    ps-printer-name))))))
	  (or (stringp ps-printer-name)
	      (setq ps-printer-name nil))
	  (apply (or ps-print-region-function 'call-process-region)
		 (point-min) (point-max) ps-lpr-command nil
		 (and (fboundp 'start-process) 0)
		 nil
		 (ps-flatten-list	; dynamic evaluation