Lines Matching +defs:last +defs:line
19 Vinicius's last change version -- this file may have been edited as part of
266 ;; `ps-last-selected-pages' (see it for documentation). So you can restore the
267 ;; latest selected pages by using `ps-last-selected-pages' or by calling
407 ;; The variable `ps-header-line-pad' determines the portion of a header title
408 ;; line height to insert between the header frame and the text it contains,
409 ;; both in the vertical and horizontal directions: .5 means half a line.
466 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
712 ;; The variable `ps-line-number' specifies whether to number each line;
713 ;; non-nil means do so. The default is nil (don't number each line).
715 ;; The variable `ps-line-number-color' specifies the color for line number.
719 ;; The variable `ps-line-number-font' specifies the font for line number.
722 ;; The variable `ps-line-number-font-size' specifies the font size in points
723 ;; for line number. See `ps-font-size' for documentation. The default is 6.
725 ;; The variable `ps-line-number-step' specifies the interval that line number
726 ;; is printed. For example, if `ps-line-number-step' is set to 2, the printing
729 ;; 1 one line
730 ;; one line
731 ;; 3 one line
732 ;; one line
733 ;; 5 one line
734 ;; one line
739 ;; integer an integer that specifies the interval that line number is
743 ;; `zebra' specifies that only the line number of the first line in a
747 ;; The default value is 1, so each line number is printed.
749 ;; The variable `ps-line-number-start' specifies the starting point in the
750 ;; interval given by `ps-line-number-step'. For example, if
751 ;; `ps-line-number-step' is set to 3 and `ps-line-number-start' is set to 3,
754 ;; one line
755 ;; one line
756 ;; 3 one line
757 ;; one line
758 ;; one line
759 ;; 6 one line
760 ;; one line
761 ;; one line
762 ;; 9 one line
763 ;; one line
766 ;; The values for `ps-line-number-start':
768 ;; * If `ps-line-number-step' is an integer, must be between 1 and the value
769 ;; of `ps-line-number-step' inclusive.
771 ;; * If `ps-line-number-step' is set to `zebra', must be between 1 and the
774 ;; The default value is 1, so the line number of the first line of each
812 ;; each column indicates that a line is printed):
880 ;; size (usually 10) and the corresponding line height, width of a space and
901 ;; points, for the top line of text in the header (similar to `ps-font-size').
903 ;; The variable `ps-line-spacing' determines the line spacing, in points, for
905 ;; default value is 0 (zero = no line spacing).
911 ;; To get all lines with some spacing set both `ps-line-spacing' and
916 ;; empty line or a line containing only spaces and tabs.
938 ;; correctly place line and page breaks.
945 ;; - open this file and find the line:
948 ;; - replace in this line `Courier' by the new font (say `Helvetica') to get
949 ;; the line:
954 ;; For Helvetica 10 point, the line height is 11.56, the space width is 2.78
966 ;; (line-height . 11.56)
992 ;; (line-height . 10.55)
1016 ;; (line-height . 10.55))
1022 ;; by uncommenting the line:
1100 ;; strikeout - like underline, but the line is in middle of text.
1101 ;; overline - like underline, but the line is over the text.
1169 ;; 8. Print buffer text (with faces, if specified) and line number
1183 ;; Then, the command `ps-line-lengths' will give you the correspondence between
1184 ;; a line length (number of characters) and the maximum font size which doesn't
1185 ;; wrap such a line with the current ps-print setup.
1192 ;; NOTE: line folding is not taken into account in this process and could
1225 ;; `ps-line-number-color', `ps-print-footer', `ps-footer-offset',
1227 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
1232 ;; `ps-line-spacing', `ps-paragraph-spacing', `ps-paragraph-regexp',
1236 ;; `ps-line-number-font', `ps-line-number-font-size' and
1244 ;; `ps-selected-pages', `ps-last-selected-pages',
1246 ;; `ps-line-number-step', `ps-line-number-start',
1336 ;; Fixed-pitch fonts work better for line folding, but are not required.
1361 ;; Thanks to Toni Ronkko <tronkko@hytti.uku.fi> for line and paragraph spacing,
1366 ;; Thanks to Corinne Ilvedson <cilvedson@draper.com> for line number font size
1379 ;; - upside-down, line number step, line number start and zebra stripe
1390 ;; Thanks to Matthew O Persico <Matthew.Persico@lazard.com> for line number on
1394 ;; last page.
1403 ;; header per page over the columns and correct line numbers when printing a
1464 (or (fboundp 'line-beginning-position)
1465 (defun line-beginning-position (&optional n)
1467 (and n (/= n 1) (forward-line (1- n)))
1468 (beginning-of-line)
1804 an explicit filename is given as the last argument."
1931 latest `ps-selected-pages' is saved in `ps-last-selected-pages' (which
1933 `ps-last-selected-pages' or with the `ps-restore-selected-pages'
2135 that a line is printed):
2175 (defcustom ps-line-number nil
2176 "*Non-nil means print line number."
2181 (defcustom ps-line-number-step 1
2182 "*Specify the interval that line number is printed.
2184 For example, `ps-line-number-step' is set to 2, the printing will look like:
2186 1 one line
2187 one line
2188 3 one line
2189 one line
2190 5 one line
2191 one line
2196 integer an integer that specifies the interval that line number is
2200 `zebra' specifies that only the line number of the first line in a
2211 (defcustom ps-line-number-start 1
2212 "*Specify the starting point in the interval given by `ps-line-number-step'.
2214 For example, if `ps-line-number-step' is set to 3 and `ps-line-number-start' is
2217 one line
2218 one line
2219 3 one line
2220 one line
2221 one line
2222 6 one line
2223 one line
2224 one line
2225 9 one line
2226 one line
2229 The values for `ps-line-number-start':
2231 * If `ps-line-number-step' is an integer, must be between 1 and the value of
2232 `ps-line-number-step' inclusive.
2234 * If `ps-line-number-step' is set to `zebra', must be between 1 and the
2236 wish that line number be relative to zebra stripes."
2398 (defcustom ps-header-line-pad 0.15
2399 "*Portion of a header title line height to insert.
2412 (defcustom ps-footer-line-pad 0.15
2413 "*Portion of a footer title line height to insert.
2715 (line-height . 10.55)
2724 (line-height . 11.56)
2733 (line-height . 11.0)
2742 (line-height . 12.1)
2751 (line-height . 11.56)
2760 (line-height . 12.15)
2768 (line-height . 11.77)
2775 (line-height . 12.72)
2782 (line-height . 11.77)
2789 (line-height . 11.79)
2796 (line-height . 13.03)
2802 (line-height . 9.63)
2808 (line-height . 11.45)
2816 (line-height . 11.45)
2822 reference size, line height, space width, average character width.
2827 character) from the line
2829 to get the line
2854 (const :format "" line-height)
2900 "*Font size, in points, for the top line of text in header, in PostScript."
2927 (defcustom ps-line-number-color "black"
2928 "*Specify color for line-number, when generating PostScript."
2941 (defcustom ps-line-number-font "Times-Italic"
2942 "*Font for line-number, when generating PostScript."
2948 (defcustom ps-line-number-font-size 6
2949 "*Font size, in points, for line number, when generating PostScript."
3185 "*The items to display (each on a line) on the left part of the page header.
3210 "*The items to display (each on a line) on the right part of the page header.
3240 "*The items to display (each on a line) on the left part of the page footer.
3265 "*The items to display (each on a line) on the right part of the page footer.
3300 "*Contains the header line identifying the output as PostScript.
3302 require slightly different versions of this line."
3355 (defcustom ps-line-spacing 0
3356 "*Specify line spacing, in points, for ordinary text.
3360 To get all lines with some spacing set both `ps-line-spacing' and
3374 See also `ps-line-spacing' and `ps-paragraph-regexp'.
3376 To get all lines with some spacing set both `ps-line-spacing' and
3431 (defvar ps-last-selected-pages nil
3438 (setq ps-selected-pages ps-last-selected-pages))
3558 (defun ps-line-lengths ()
3559 "Display the correspondence between a line length and a font size.
3563 (ps-line-lengths-internal))
3615 '(23 . ps-line-number)
3616 '(23 . ps-line-number-step)
3617 '(23 . ps-line-number-start)
3647 '(30 . ps-header-line-pad)
3653 '(30 . ps-footer-line-pad)
3679 '(26 . ps-line-number-color)
3680 '(26 . ps-line-number-font)
3681 '(26 . ps-line-number-font-size)
3682 '(26 . ps-line-spacing)
3690 '(23 . ps-last-selected-pages)
3993 (defvar ps-showline-count 1) ; line number counter
3995 (defvar ps-last-page nil)
4057 (defvar ps-line-spacing-internal nil)
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.
4305 It is a cons, the car of which is the line number where the region begins, and
4307 use this information to print the original line number (and not the number of
4348 (defsubst ps-line-height (font-sym)
4349 "The height of a line, for generating PostScript.
4353 The line-height is *not* the same as the point size of the font."
4354 (get font-sym 'line-height))
4356 (defsubst ps-title-line-height (font-sym)
4357 "The height of a `title' line, for generating PostScript.
4361 The title-line-height is *not* the same as the point size of the font."
4362 (get font-sym 'title-line-height))
4376 (defun ps-line-lengths-internal ()
4377 "Display the correspondence between a line length and a font size.
4397 nb-cpl-max ; maximum nb of characters per line
4400 nb-cpl-min ; minimum nb of characters per line
4403 nb-cpl ; current nb of characters per line
4414 "\nnb char per line / font size\n")
4436 (ps-line-spacing-internal
4437 (or ps-line-spacing-internal
4438 (ps-get-size ps-line-spacing "line spacing")))
4440 (ils ps-line-spacing-internal) ; initial line spacing
4442 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
4447 lh-min ; minimum line height
4451 lh-max ; maximum line height
4455 lh ; current line height
4495 (put sym 'line-height (ps-size-scale 'line-height))
4496 (put sym 'title-line-height
4497 (/ (* (ps-lookup 'line-height) title-font-size) size)))))
4567 (setq ps-header-pad (* ps-header-line-pad
4568 (ps-title-line-height 'ps-font-for-header))
4572 (ps-title-line-height 'ps-font-for-header)
4573 (* (ps-line-height 'ps-font-for-header)
4590 (ps-title-line-height 'ps-font-for-header)
4591 (* (ps-line-height 'ps-font-for-header)
4598 (setq ps-footer-pad (* ps-footer-line-pad
4599 (ps-title-line-height 'ps-font-for-footer))
4603 (* (ps-line-height 'ps-font-for-footer)
4620 (* (ps-line-height 'ps-font-for-footer)
4626 (let* ((line-height (ps-line-height 'ps-font-for-text))
4627 (zebra (* (+ line-height ps-line-spacing-internal)
4630 line-height))
4636 line-spacing == %s
4641 (ps-line-height 'ps-font-for-text)
4642 ps-line-spacing-internal
4740 ps-last-page (cdr (car ps-selected-pages))
4743 (< ps-last-page ps-page-postscript)))))
4749 ((<= ps-page-postscript ps-last-page)
4754 (<= ps-page-postscript ps-last-page)))
4856 (defun ps-generate-header-line (fonttag &optional content)
4885 (ps-generate-header-line fonttag0 (car contents))
4888 (ps-generate-header-line fonttag1 (car contents))
5467 XLIN YLIN are the relative position for the beginning of next line.
5599 (let ((line-height (ps-line-height 'ps-font-for-text)))
5600 (ps-output (format "/LineSpacing %s def\n" ps-line-spacing-internal)
5603 (format "/LineHeight %s def\n" line-height)
5605 (let ((height (+ line-height
5606 ps-line-spacing-internal)))
5613 (ps-output-boolean "PrintLineNumber " ps-line-number)
5614 (ps-output-boolean "SyncLineZebra " (not (integerp ps-line-number-step)))
5620 (if (integerp ps-line-number-step)
5621 ps-line-number-step
5623 (format "/PrintLineStart %d def\n" ps-line-number-start)
5625 (ps-format-color ps-line-number-color 0.0)
5682 ;; Header/line number fonts
5690 (ps-get-font-size 'ps-line-number-font-size)
5691 ps-line-number-font)
5869 ps-last-selected-pages ps-selected-pages
5871 ps-last-page nil))
5875 ;; line number
5876 (and (integerp ps-line-number-step)
5877 (<= ps-line-number-step 0)
5878 (setq ps-line-number-step 1))
5880 ps-line-number-start (max 1 (min ps-line-number-start
5881 (if (integerp ps-line-number-step)
5882 ps-line-number-step
5900 ps-line-spacing-internal (ps-get-size ps-line-spacing
5901 "line spacing")
6000 ;; set total line and page number when printing has finished
6063 (defsubst ps-next-line ()
6068 (lh (+ (ps-line-height 'ps-font-for-text)
6071 ps-line-spacing-internal))))
6078 (defun ps-continue-line ()
6080 (let ((lh (+ (ps-line-height 'ps-font-for-text) ps-line-spacing-internal)))
6129 (ps-continue-line))))
6144 (defvar ps-last-font nil)
6147 (setq ps-last-font (format "f%d" (setq ps-current-font font)))
6148 (ps-output (format "/%s F\n" ps-last-font)))
6241 (let ((linestart (line-beginning-position)))
6252 ;; \n\ftext\n ==>> next page, but keep line counting!!
6257 ;; \ntext\n ==>> next line
6258 (ps-next-line)))
6265 ;; \f\n ==>> skip \n, but keep line counting!!
6323 (ps-continue-line))
6719 ;; Back to the PS output buffer to set the last page n-up printing
6879 ;; Look in an article or mail message for the Subject: line. To be
6888 ;; Look in an article or mail message for the From: line. Sorta-kinda
6957 ;; Look in an article or mail message for the Subject: line. To be
6966 ;; Look in an article or mail message for the Subject: line. To be
7022 ps-header-line-pad .15