comparison lisp/ps-print.el @ 87654:85fe2f3f4acb

Fix face attributes recognition

87653:3091cbee6fd8

;;	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: 6.8.1
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst ps-print-version "6.8.1"
  "ps-print.el, v 6.8.1 <2007/11/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.

      (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o")
	  (ps-xemacs-face-kind-p face 'SLANT "i\\|o")
	  (memq face ps-italic-faces))	; Kludge-compatible
    (or (face-italic-p face)
	(memq face ps-italic-faces))))

(defvar ps-print-color-scale 1.0)

(defun ps-color-scale (color)
  ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.

    face-map))


(defun ps-screen-to-bit-face (face)
  (cons face
	(vector (logior (if (ps-face-bold-p face) 1 0) ; bold
			(if (ps-face-italic-p face) 2 0) ; italic
			(if (ps-face-underlined-p face) 4 0)) ; underline
		(ps-face-foreground-name face)
		(ps-face-background-name face))))


;; to avoid compilation gripes

87654:85fe2f3f4acb

;;	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: 6.8.2
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst ps-print-version "6.8.2"
  "ps-print.el, v 6.8.2 <2008/01/08 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.

      (or (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o")
	  (ps-xemacs-face-kind-p face 'SLANT "i\\|o")
	  (memq face ps-italic-faces))	; Kludge-compatible
    (or (face-italic-p face)
	(memq face ps-italic-faces))))

(defun ps-face-strikeout-p (face)
  (eq (face-attribute face :strike-through) t))

(defun ps-face-overline-p (face)
  (eq (face-attribute face :overline) t))

(defun ps-face-box-p (face)
  (not (memq (face-attribute face :box) '(nil unspecified))))

(defvar ps-print-color-scale 1.0)

(defun ps-color-scale (color)
  ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.

    face-map))


(defun ps-screen-to-bit-face (face)
  (cons face
	(vector (logior (if (ps-face-bold-p face)       1 0)  ; bold
			(if (ps-face-italic-p face)     2 0)  ; italic
			(if (ps-face-underlined-p face) 4 0)  ; underline
			(if (ps-face-strikeout-p face)  8 0)  ; strikeout
			(if (ps-face-overline-p face)  16 0)  ; overline
			(if (ps-face-box-p face)       64 0)) ; box
		(ps-face-foreground-name face)
		(ps-face-background-name face))))


;; to avoid compilation gripes