Lines Matching +defs:font +defs:lock
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,
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).
465 ;; `ps-footer-offset', `ps-print-footer-frame', `ps-footer-font-family',
466 ;; `ps-footer-font-size', `ps-footer-line-pad', `ps-footer-lines',
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
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
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:
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
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.
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
2020 the current font.
2024 the current font.
2027 current font.
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.
2708 (defcustom ps-font-info-database
2811 ;; We keep this wrong entry name (but with correct font name) for
2821 Each element comprises: font family (the key), name, bold, italic, bold-italic,
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
2863 :group 'ps-print-font)
2865 (defcustom ps-font-family 'Courier
2869 :group 'ps-print-font)
2871 (defcustom ps-font-size '(7 . 8.5)
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)
2897 :group 'ps-print-font)
2899 (defcustom ps-header-title-font-size '(12 . 14)
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)
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
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)
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)
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)))
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)))
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)
4968 (ps-float-format (nth 4 text) 200.0) ; font size
4969 (format "/%s " (or (nth 3 text) "Times-Roman")) ; font name
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))))
5821 (defun ps-get-font-size (font-sym)
5822 (ps-get-size (symbol-value font-sym) "font size" font-sym))
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
6494 (defalias 'ps-jitify 'jit-lock-fontify-now)
6495 (defalias 'ps-lazify 'lazy-lock-fontify-region)
6500 (cond ((and (boundp 'jit-lock-mode) (symbol-value 'jit-lock-mode))
6502 ((and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode))
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.")