Lines Matching +defs:text +defs:properties +defs:at
1 ;;; ps-print.el --- print text from the buffer as PostScript
30 ;; Software Foundation; either version 2, or (at your option) any later
50 ;; buffer's bold and italic text attributes are preserved in the printer
96 ;; on banner pages, and to make it easier to find your output at the printer
204 ;; inserted at end of PostScript generated. Non-nil means do so. The default
238 ;; In landscape mode, the text is NOT scaled: you may print 70 lines in
298 ;; | lm | text | ic | text | ic | text | rm |
304 ;; If (ic < 0), the text of adjacent columns can overlap.
322 ;; | text | or | text | or | text | or | text |
344 ;; ps-print can print headers at the top of each column or at the top of each
361 ;; The variable `ps-header-frame-alist' specifies header frame properties
362 ;; alist. Valid frame properties are:
389 ;; To print only one header at the top of each page, set
403 ;; The font family and size of text in the header are determined by the
408 ;; line height to insert between the header frame and the text it contains,
423 ;; These variables are lists, specifying top-to-bottom the text to display on
434 ;; Here's an example: say we want the left header to display the text
614 ;; binding at the top or bottom. It has effect only when `ps-spool-duplex' is
781 ;; Zebra stripes are a kind of background that appear "underneath" the text and
782 ;; can make the text easier to read. They look like this:
811 ;; on next page. Visually, valid values are (the character `+' at right of
884 ;; ordinary text. If its value does not correspond to a known font family, an
889 ;; ordinary text, when generating PostScript. Its value is a float or a cons
895 ;; is to be used for text in the header.
898 ;; text in the header (similar to `ps-font-size').
901 ;; points, for the top line of text in the header (similar to `ps-font-size').
904 ;; ordinary text, when generating PostScript (similar to `ps-font-size'). The
908 ;; points, for ordinary text, when generating PostScript (similar to
1100 ;; strikeout - like underline, but the line is in middle of text.
1101 ;; overline - like underline, but the line is over the text.
1102 ;; shadow - text will have a shadow.
1103 ;; box - text will be surrounded by a box.
1121 ;; possible to define the following text attributes: font name, font size,
1127 ;; See documentation for `ps-print-background-text' and
1130 ;; For example, if we wish to print text "preliminary" on all pages and text
1133 ;; (setq ps-print-background-text
1169 ;; 8. Print buffer text (with faces, if specified) and line number
1222 ;; Handle before-string and after-string overlay properties.
1275 ;; Skip invisible text better.
1284 ;; Skip invisible text.
1294 ;; Dynamic evaluation at print time of `ps-lpr-switches'.
1304 ;; Font family and float size for text and header.
1316 ;; Invisible properties aren't correctly ignored in XEmacs 19.12.
1406 ;; Thanks to Steven L Baur <steve@miranova.com> for dynamic evaluation at
1487 (defalias 'ps-x-font-instance-properties 'font-instance-properties)
1495 (defalias 'ps-e-overlays-at 'overlays-at)
1835 "*Non-nil means insert C-d at end of PostScript file generated."
2134 Visually, valid values are (the character `+' at right of each column indicates
2288 (defcustom ps-print-background-text nil
2295 STRING is the text to be printed on background.
2297 X and Y are positions on paper to put the text.
2298 If X and Y are nil, the text is positioned at lower left corner.
2300 FONT is a font name to be used on printing the text.
2305 GRAY is the text gray factor (should be very light like 0.8).
2308 ROTATION is the text rotation angle; if nil, the angle is given by the diagonal
2311 PAGES designates the page to print background text.
2314 If PAGES is nil, print background text on all pages.
2320 For example, if you wish to print text \"Preliminary\" on all pages do:
2344 ;; | lm | text | ic | text | ic | text | rm |
2375 ;; | text |
2393 "*Vertical space in points (1/72 inch) between the main text and the header."
2400 The insertion is done between the header frame and the text it contains,
2407 "*Vertical space in points (1/72 inch) between the main text and the footer."
2414 The insertion is done between the footer frame and the text it contains,
2423 "*Non-nil means print a header at the top of each page.
2443 "*Specify header frame properties alist.
2445 Valid frame properties are:
2524 "*Non-nil means print a footer at the bottom of each page.
2544 "*Specify footer frame properties alist.
2606 "*Non-nil means print only one header/footer at the top/bottom of each page.
2699 binding at the top or bottom.
2866 "*Font family name for ordinary text, when generating PostScript."
2872 "*Font size, in points, for ordinary text, when generating PostScript."
2883 "*Font family name for text in the header, when generating PostScript."
2889 "*Font size, in points, for text in the header, when generating PostScript."
2900 "*Font size, in points, for the top line of text in header, in PostScript."
2911 "*Font family name for text in the footer, when generating PostScript."
2917 "*Font size, in points, for text in the footer, when generating PostScript."
2970 "*Specify how buffer's text color is printed.
2994 ps-print, that is, if there is a face in a text that doesn't have a foreground
3037 ps-print, that is, if there is a face in a text that doesn't have a background
3356 "*Specify line spacing, in points, for ordinary text.
3372 "*Specify paragraph spacing, in points, for ordinary text.
3629 '(25 . ps-print-background-text)
3877 (ps-x-font-instance-properties frame-font))))
3890 (or (ps-x-find-coding-system 'raw-text-unix)
3891 (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix)))
4003 (defvar ps-background-text-count 0)
4032 "Vertical and horizontal space between the header frame and the text.
4036 "Vertical and horizontal space between the footer frame and the text.
4163 underline - put a line under text.
4164 strikeout - like underline, but the line is in middle of text.
4165 overline - like underline, but the line is over the text.
4166 shadow - text will have a shadow.
4167 box - text will be surrounded by a box.
4334 "Font family name for text of `font-type', when generating PostScript."
4351 y-dimension, of the lines of text it has printed, and thus affects the
4352 point at which page-breaks are placed.
4359 y-dimension, of the lines of text it has printed, and thus affects the
4360 point at which page-breaks are placed.
4372 x-dimension, of the text it has printed, and thus affects the point at
4391 (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
4425 The correspondence is based on having NB-LINES lines of text,
4442 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
4510 (ps-select-font ps-font-family 'ps-font-for-text
4529 ;; | lm | text | ic | text | ic | text | rm |
4543 | lm | text | ic | text | ic | text | rm |
4626 (let* ((line-height (ps-line-height 'ps-font-for-text))
4635 font-text-height == %s
4641 (ps-line-height 'ps-font-for-text)
4897 (defun ps-output-frame-properties (name alist)
4960 (defun ps-background-text ()
4962 #'(lambda (text)
4963 (setq ps-background-text-count (1+ ps-background-text-count))
4964 (ps-output (format "/ShowBackText-%d{\n" ps-background-text-count))
4965 (ps-output-string (nth 0 text)) ; text
4968 (ps-float-format (nth 4 text) 200.0) ; font size
4969 (format "/%s " (or (nth 3 text) "Times-Roman")) ; font name
4970 (ps-float-format (nth 6 text)
4972 (ps-float-format (nth 5 text) 0.85) ; gray
4973 (ps-float-format (nth 1 text) "0") ; x position
4974 (ps-float-format (nth 2 text) "0") ; y position
4976 (ps-background-pages (nthcdr 7 text) ; page list
4978 ps-background-text-count)))
4979 ps-print-background-text))
5507 ps-background-text-count 0
5529 (append (ps-fonts 'ps-font-for-text)
5594 (ps-output-frame-properties "HeaderFrameProperties" ps-header-frame-alist)
5597 (ps-output-frame-properties "FooterFrameProperties" ps-footer-frame-alist)
5599 (let ((line-height (ps-line-height 'ps-font-for-text)))
5660 (ps-background-text)
5676 (append (ps-fonts 'ps-font-for-text)
5711 (let ((font (ps-font-alist 'ps-font-for-text))
5717 (ps-font 'ps-font-for-text (car (car font)))))
5945 ;; evaluated at dump-time because X isn't initialized.
6067 (looking-at ps-paragraph-regexp)))
6068 (lh (+ (ps-line-height 'ps-font-for-text)
6080 (let ((lh (+ (ps-line-height 'ps-font-for-text) ps-line-spacing-internal)))
6096 (ps-avg-char-width 'ps-font-for-text)))
6106 (ps-avg-char-width 'ps-font-for-text)))
6108 (string (buffer-substring-no-properties from to)))
6116 (ps-space-width 'ps-font-for-text)))
6207 ;; Starting at the beginning of the specified region...
6216 (looking-at ps-begin-cut-regexp)
6251 (if (looking-at "\f[^\n]")
6320 (char-width (ps-avg-char-width 'ps-font-for-text))
6415 ((null face) ; print text with null face
6417 ((eq face 'emacs--invisible--face)) ; skip invisible text!!!
6418 (t ; otherwise, text has a valid face
6430 (ps-font-number 'ps-font-for-text
6594 ;; a face text property.
6596 (cond ((let ((prop (get-text-property from 'invisible)))
6598 ;; really makes the text invisible.
6604 ((get-text-property from 'face))
6606 (let ((overlays (ps-e-overlays-at from))
6607 (face-priority -1)) ; text-property
6653 ;; This avoids trouble if chars with read-only properties
6676 (or (looking-at (regexp-quote ps-adobe-tag))
6753 ;; Permit dynamic evaluation at print time of `ps-lpr-switches'.
6763 (let ((coding-system-for-write 'raw-text-unix))
6770 (let* ((coding-system-for-write 'raw-text-unix)
6938 ;; article subjects shows up at the printer. This function, bound to