Lines Matching +defs:title +defs:font +defs:size
52 ;; fontifying package such as font-lock or hilit.
54 ;; ps-print uses the same face attributes defined through font-lock or hilit to
59 ;; for example, the face font-lock-comment-face (if you are using font-lock)
115 ;; include font, color, and underline information in the PostScript image, so
117 ;; without the -with-faces suffix don't include font, color, or underline
123 ;; ps-print-buffer - print the entire buffer, without font,
128 ;; font, color, and underline information,
221 ;; The variable `ps-paper-type' determines the size of paper ps-print formats
227 ;; PostScript printer doesn't have a paper with the size indicated by
228 ;; `ps-paper-type', instead it uses the default paper size. If variable
230 ;; doesn't have a paper with the size indicated by `ps-paper-type'. It's used
403 ;; The font family and size of text in the header are determined by the
404 ;; variables `ps-header-font-family', `ps-header-font-size' and
405 ;; `ps-header-title-font-size' (see below).
407 ;; The variable `ps-header-line-pad' determines the portion of a header title
465 ;; `ps-footer-offset', `ps-print-footer-frame', `ps-footer-font-family',
466 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
584 ;; duplex and page size. Valid values are:
586 ;; lpr-switches duplex and page size are configured by `ps-lpr-switches'.
590 ;; setpagedevice duplex and page size are configured by ps-print using the
593 ;; nil duplex and page size are configured by ps-print *not* using
604 ;; Besides all that, if your printer does not have the paper size
687 ;; the current font.
691 ;; the current font.
694 ;; current font.
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.
876 ;; `ps-font-info-database' contains information for a list of font families
878 ;; `Helvetica-Narrow' `NewCenturySchlbk'). Each font family contains the font
880 ;; size (usually 10) and the corresponding line height, width of a space and
883 ;; The variable `ps-font-family' determines which font family is to be used for
884 ;; ordinary text. If its value does not correspond to a known font family, an
886 ;; currently available font families.
888 ;; The variable `ps-font-size' determines the size (in points) of the font for
894 ;; Similarly, the variable `ps-header-font-family' determines which font family
897 ;; The variable `ps-header-font-size' determines the font size, in points, for
898 ;; text in the header (similar to `ps-font-size').
900 ;; The variable `ps-header-title-font-size' determines the font size, in
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
909 ;; `ps-font-size'). The default value is 0 (zero = no paragraph spacing).
936 ;; To use a new font family, you MUST first teach ps-print this font, i.e., add
937 ;; its information to `ps-font-info-database', otherwise ps-print cannot
948 ;; - replace in this line `Courier' by the new font (say `Helvetica') to get
957 ;; - Add these values to the `ps-font-info-database':
958 ;; (setq ps-font-info-database
965 ;; (size . 10.0)
969 ;; ps-font-info-database))
970 ;; - Now you can use this font family with any size:
971 ;; (setq ps-font-family 'Helvetica)
975 ;; (setq ps-font-info-database (append ...)))
977 ;; (setq ps-font-info-database '(<your stuff> <the standard stuff>))
981 ;; (or (assq 'Helvetica ps-font-info-database)
982 ;; (setq ps-font-info-database (append ...)))))
984 ;; You can create new `mixed' font families like:
991 ;; (size . 10.0)
996 ;; Now you can use your new font family with any size:
997 ;; (setq ps-font-family 'my-mixed-family)
1000 ;; symbol, so when printing this face it'll be used the font `LineDrawNormal'.
1005 ;; Note also that the font family entry order is irrelevant, so the above
1008 ;; (size . 10.0)
1028 ;; Anyway, as ghostscript fonts are autoload, you won't get much font info.
1030 ;; Note also that ps-print DOESN'T download any font to your printer, instead
1043 ;; underline, no matter what font they are displayed in, by setting the
1108 ;; Let's, for example, remap `font-lock-keyword-face' to another foreground
1111 ;; (ps-extend-face '(font-lock-keyword-face "RoyalBlue" nil bold) 'MERGE)
1121 ;; possible to define the following text attributes: font name, font size,
1175 ;; Some tools are provided to help you customize your font setup.
1180 ;; margins and the font size. On UN*X systems, do:
1184 ;; a line length (number of characters) and the maximum font size which doesn't
1188 ;; correspondence between a number of pages and the maximum font size which
1203 ;; Automatic detection of font attributes (bold, italic).
1226 ;; `ps-print-footer-frame', `ps-footer-font-family',
1227 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
1236 ;; `ps-line-number-font', `ps-line-number-font-size' and
1290 ;; Better database font management.
1304 ;; Font family and float size for text and header.
1318 ;; Automatic font-attribute detection doesn't work well, especially with
1320 ;; auto-font detection should use the lists `ps-italic-faces', `ps-bold-faces'
1322 ;; `ps-auto-font-detect' to nil.
1324 ;; Automatic font-attribute detection doesn't work with XEmacs 19.12 in tty
1366 ;; Thanks to Corinne Ilvedson <cilvedson@draper.com> for line number font size
1400 ;; database font management.
1485 (defalias 'ps-x-face-font-instance 'face-font-instance)
1487 (defalias 'ps-x-font-instance-properties 'font-instance-properties)
1580 (defgroup ps-print-font nil
1887 "*Specify the size of paper to format for.
1894 (widget-put wid :error "Unknown paper size")
1900 "*Non-nil means give an error if paper size is not equal to `ps-paper-type'.
2020 the current font.
2024 the current font.
2027 current font.
2256 If XSCALE and YSCALE are nil, the original size is used.
2300 FONT is a font name to be used on printing the text.
2303 FONTSIZE is font size to be used, if nil, 200 is used.
2399 "*Portion of a header title line height to insert.
2413 "*Portion of a footer title line height to insert.
2649 "*Specify who is responsible for setting duplex and page size.
2653 `lpr-switches' duplex and page size are configured by `ps-lpr-switches'.
2657 `setpagedevice' duplex and page size are configured by ps-print using the
2660 nil duplex and page size are configured by ps-print *not* using
2669 Besides all that, if your printer does not have the paper size
2708 (defcustom ps-font-info-database
2714 (size . 10.0)
2723 (size . 10.0)
2732 (size . 10.0)
2741 (size . 10.0)
2750 (size . 10.0)
2759 (size . 10.0)
2767 (size . 10.0)
2774 (size . 10.0)
2781 (size . 10.0)
2788 (size . 10.0)
2795 (size . 10.0)
2801 (size . 10.0)
2807 (size . 10.0)
2811 ;; We keep this wrong entry name (but with correct font name) for
2815 (size . 10.0)
2821 Each element comprises: font family (the key), name, bold, italic, bold-italic,
2822 reference size, line height, space width, average character width.
2823 To get the info for another specific font (say Helvetica), do the following:
2831 - add the values to `ps-font-info-database'.
2834 Note also that ps-print DOESN'T download any font to your printer, instead it
2851 (const :format "" size)
2863 :group 'ps-print-font)
2865 (defcustom ps-font-family 'Courier
2869 :group 'ps-print-font)
2871 (defcustom ps-font-size '(7 . 8.5)
2872 "*Font size, in points, for ordinary text, when generating PostScript."
2880 :group 'ps-print-font)
2882 (defcustom ps-header-font-family 'Helvetica
2886 :group 'ps-print-font)
2888 (defcustom ps-header-font-size '(10 . 12)
2889 "*Font size, in points, for text in the header, when generating PostScript."
2897 :group 'ps-print-font)
2899 (defcustom ps-header-title-font-size '(12 . 14)
2900 "*Font size, in points, for the top line of text in header, in PostScript."
2908 :group 'ps-print-font)
2910 (defcustom ps-footer-font-family 'Helvetica
2914 :group 'ps-print-font)
2916 (defcustom ps-footer-font-size '(10 . 12)
2917 "*Font size, in points, for text in the footer, when generating PostScript."
2925 :group 'ps-print-font)
2938 :group 'ps-print-font
2941 (defcustom ps-line-number-font "Times-Italic"
2945 :group 'ps-print-font
2948 (defcustom ps-line-number-font-size 6
2949 "*Font size, in points, for line number, when generating PostScript."
2957 :group 'ps-print-font
3078 (defcustom ps-auto-font-detect t
3084 :group 'ps-print-font)
3087 '((font-lock-builtin-face "black" nil bold )
3088 (font-lock-comment-face "gray20" nil italic)
3089 (font-lock-constant-face "black" nil bold )
3090 (font-lock-function-name-face "black" nil bold )
3091 (font-lock-keyword-face "black" nil bold )
3092 (font-lock-string-face "black" nil italic)
3093 (font-lock-type-face "black" nil italic)
3094 (font-lock-variable-name-face "black" nil bold italic)
3095 (font-lock-warning-face "black" nil bold italic))
3128 '(font-lock-function-name-face
3129 font-lock-builtin-face
3130 font-lock-variable-name-face
3131 font-lock-keyword-face
3132 font-lock-warning-face))
3133 "*A list of the \(non-bold\) faces that should be printed in bold font.
3141 '(font-lock-variable-name-face
3142 font-lock-type-face
3143 font-lock-string-face
3144 font-lock-comment-face
3145 font-lock-warning-face))
3146 "*A list of the \(non-italic\) faces that should be printed in italic font.
3154 '(font-lock-function-name-face
3155 font-lock-constant-face
3156 font-lock-warning-face))
3474 Like `ps-print-buffer', but includes font, color, and underline information in
3492 Like `ps-print-region', but includes font, color, and underline information in
3513 Like `ps-spool-buffer', but includes font, color, and underline information in
3535 Like `ps-spool-region', but includes font, color, and underline information in
3559 "Display the correspondence between a line length and a font size.
3567 "Display number of pages to print this buffer, for various font heights.
3574 "Display number of pages to print the region, for various font heights.
3672 '(26 . ps-font-family)
3673 '(26 . ps-font-size)
3674 '(26 . ps-header-font-family)
3675 '(26 . ps-header-font-size)
3676 '(26 . ps-header-title-font-size)
3677 '(26 . ps-footer-font-family)
3678 '(26 . ps-footer-font-size)
3680 '(26 . ps-line-number-font)
3681 '(26 . ps-line-number-font-size)
3695 '(20 . ps-auto-font-detect)
3703 ;; ps-font-info-database
3872 (let* ((frame-font (or (ps-x-face-font-instance face)
3873 (ps-x-face-font-instance 'default)))
3875 (and frame-font
3877 (ps-x-font-instance-properties frame-font))))
4006 (defvar ps-current-font 0)
4023 ;; values to three decimals to cut down some on the size of the
4053 (defvar ps-font-size-internal nil)
4054 (defvar ps-header-font-size-internal nil)
4055 (defvar ps-header-title-font-size-internal nil)
4056 (defvar ps-footer-font-size-internal nil)
4161 bold - use bold font.
4162 italic - use italic font.
4207 ;; Adapted from font-lock: (obsolete stuff)
4208 ;; Originally face attributes were specified via `font-lock-face-attributes'.
4214 (defun ps-font-lock-face-attributes ()
4215 (and (boundp 'font-lock-mode) (symbol-value 'font-lock-mode)
4216 (boundp 'font-lock-face-attributes)
4217 (let ((face-attributes (symbol-value 'font-lock-face-attributes)))
4224 ;; `font-lock-face-attributes' entry.
4330 (defsubst ps-font-alist (font-sym)
4331 (get font-sym 'fonts))
4333 (defun ps-font (font-sym font-type)
4334 "Font family name for text of `font-type', when generating PostScript."
4335 (let* ((font-list (ps-font-alist font-sym))
4336 (normal-font (cdr (assq 'normal font-list))))
4337 (while (and font-list (not (eq font-type (car (car font-list)))))
4338 (setq font-list (cdr font-list)))
4339 (or (cdr (car font-list)) normal-font)))
4341 (defsubst ps-fonts (font-sym)
4342 (mapcar 'cdr (ps-font-alist font-sym)))
4344 (defsubst ps-font-number (font-sym font-type)
4345 (or (ps-alist-position font-type (ps-font-alist font-sym))
4348 (defsubst ps-line-height (font-sym)
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))
4364 (defsubst ps-space-width (font-sym)
4367 (get font-sym 'space-width))
4369 (defsubst ps-avg-char-width (font-sym)
4374 (get font-sym 'avg-char-width))
4377 "Display the correspondence between a line length and a font size.
4380 (let* ((ps-font-size-internal
4381 (or ps-font-size-internal
4382 (ps-get-font-size 'ps-font-size)))
4383 (ps-header-font-size-internal
4384 (or ps-header-font-size-internal
4385 (ps-get-font-size 'ps-header-font-size)))
4386 (ps-header-title-font-size-internal
4387 (or ps-header-title-font-size-internal
4388 (ps-get-font-size 'ps-header-title-font-size)))
4390 (ifs ps-font-size-internal) ; initial font size
4391 (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
4395 (fs-min 5) ; minimum font size
4398 (fs-max 14) ; maximum font size
4401 fs ; current font size
4414 "\nnb char per line / font size\n")
4424 "Display correspondence between font size and the number of pages.
4427 (let* ((ps-font-size-internal
4428 (or ps-font-size-internal
4429 (ps-get-font-size 'ps-font-size)))
4430 (ps-header-font-size-internal
4431 (or ps-header-font-size-internal
4432 (ps-get-font-size 'ps-header-font-size)))
4433 (ps-header-title-font-size-internal
4434 (or ps-header-title-font-size-internal
4435 (ps-get-font-size 'ps-header-title-font-size)))
4438 (ps-get-size ps-line-spacing "line spacing")))
4441 (ifs ps-font-size-internal) ; initial font size
4442 (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
4446 (fs-min 4) ; minimum font size
4450 (fs-max 14) ; maximum font size
4454 fs ; current font size
4471 "nb page / font size\n")
4481 ;; macros used in `ps-select-font'
4482 (defmacro ps-lookup (key) `(cdr (assq ,key font-entry)))
4483 (defmacro ps-size-scale (key) `(/ (* (ps-lookup ,key) font-size) size))
4485 (defun ps-select-font (font-family sym font-size title-font-size)
4486 (let ((font-entry (cdr (assq font-family ps-font-info-database))))
4487 (or font-entry
4488 (error "Don't have data to scale font %s. Known fonts families are %s"
4489 font-family
4490 (mapcar 'car ps-font-info-database)))
4491 (let ((size (ps-lookup 'size)))
4493 (put sym 'space-width (ps-size-scale 'space-width))
4494 (put sym 'avg-char-width (ps-size-scale 'avg-char-width))
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)))))
4510 (ps-select-font ps-font-family 'ps-font-for-text
4511 ps-font-size-internal ps-font-size-internal)
4512 (ps-select-font ps-header-font-family 'ps-font-for-header
4513 ps-header-font-size-internal
4514 ps-header-title-font-size-internal)
4515 (ps-select-font ps-footer-font-family 'ps-font-for-footer
4516 ps-footer-font-size-internal ps-footer-font-size-internal)
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)
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))
4635 font-text-height == %s
4641 (ps-line-height 'ps-font-for-text)
4941 ;; to three decimals to cut down some on the size of the PostScript output.
4968 (ps-float-format (nth 4 text) 200.0) ; font size
4969 (format "/%s " (or (nth 3 text) "Times-Roman")) ; font name
5200 ;; Ledger paper size is a special case, it is the only paper size where the
5201 ;; normal size is landscaped, that is, the height is smaller than width.
5356 PAGE is the page size used (see `ps-paper-type').
5526 "\n%%DocumentNeededResources: font Times-Roman Times-Italic\n%%+ font "
5529 (append (ps-fonts 'ps-font-for-text)
5530 (list (ps-font 'ps-font-for-header 'normal)
5531 (ps-font 'ps-font-for-header 'bold)
5532 (ps-font 'ps-font-for-footer 'normal)
5533 (ps-font 'ps-font-for-footer 'bold))))
5534 "\n%%+ font ")
5599 (let ((line-height (ps-line-height 'ps-font-for-text)))
5671 "\n%%IncludeResource: font Times-Roman"
5672 "\n%%IncludeResource: font Times-Italic"
5673 "\n%%IncludeResource: font "
5676 (append (ps-fonts 'ps-font-for-text)
5677 (list (ps-font 'ps-font-for-header 'normal)
5678 (ps-font 'ps-font-for-header 'bold)
5679 (ps-font 'ps-font-for-footer 'normal)
5680 (ps-font 'ps-font-for-footer 'bold))))
5681 "\n%%IncludeResource: font ")
5684 ps-header-title-font-size-internal
5685 (ps-font 'ps-font-for-header 'bold))
5687 ps-header-font-size-internal
5688 (ps-font 'ps-font-for-header 'normal))
5690 (ps-get-font-size 'ps-line-number-font-size)
5691 ps-line-number-font)
5693 ps-footer-font-size-internal
5694 (ps-font 'ps-font-for-footer 'normal))
5711 (let ((font (ps-font-alist 'ps-font-for-text))
5713 (while font
5716 ps-font-size-internal
5717 (ps-font 'ps-font-for-text (car (car font)))))
5718 (setq font (cdr font)
5721 (let ((font-entry (cdr (assq ps-font-family ps-font-info-database))))
5723 (/ (ps-lookup 'space-width) (ps-lookup 'size)))))
5801 (defun ps-get-size (size mess &optional arg)
5802 (let ((siz (cond ((numberp size)
5803 size)
5804 ((and (consp size)
5805 (numberp (car size))
5806 (numberp (cdr size)))
5808 (car size)
5809 (cdr size)))
5814 mess size
5821 (defun ps-get-font-size (font-sym)
5822 (ps-get-size (symbol-value font-sym) "font size" font-sym))
5900 ps-line-spacing-internal (ps-get-size ps-line-spacing
5902 ps-paragraph-spacing-internal (ps-get-size ps-paragraph-spacing
5904 ps-font-size-internal (ps-get-font-size 'ps-font-size)
5905 ps-header-font-size-internal (ps-get-font-size 'ps-header-font-size)
5906 ps-header-title-font-size-internal
5907 (ps-get-font-size 'ps-header-title-font-size)
5908 ps-footer-font-size-internal (ps-get-font-size 'ps-footer-font-size)
6052 (ps-set-font ps-current-font)
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)))
6099 (ps-mule-prepare-ascii-font str)
6106 (ps-avg-char-width 'ps-font-for-text)))
6109 (ps-mule-prepare-ascii-font string)
6116 (ps-space-width 'ps-font-for-text)))
6144 (defvar ps-last-font nil)
6146 (defun ps-set-font (font)
6147 (setq ps-last-font (format "f%d" (setq ps-current-font font)))
6148 (ps-output (format "/%s F\n" ps-last-font)))
6185 (defun ps-plot-region (from to font &optional fg-color bg-color effects)
6186 (or (equal font ps-current-font)
6187 (ps-set-font font))
6237 (ps-mule-set-ascii-font)
6245 (ps-mule-set-ascii-font)
6292 (ps-mule-set-ascii-font)
6320 (char-width (ps-avg-char-width 'ps-font-for-text))
6325 (ps-mule-prepare-ascii-font str)
6410 (defconst ps-font-type (vector nil 'bold 'italic 'bold-italic))
6430 (ps-font-number 'ps-font-for-text
6431 (or (aref ps-font-type (logand effect 3))
6443 ;; `font-lock-face-attributes' (obsolete stuff)
6444 (ps-font-lock-face-attributes)
6447 (if ps-auto-font-detect
7029 ps-font-family 'Courier
7030 ps-font-size 5.5
7031 ps-header-font-family 'Helvetica
7032 ps-header-font-size 6
7033 ps-header-title-font-size 8)
7042 (autoload 'ps-mule-prepare-ascii-font "ps-mule"
7043 "Setup special ASCII font for STRING.
7046 (autoload 'ps-mule-set-ascii-font "ps-mule"
7047 "Adjust current font if current charset is not ASCII.")