From dc272b5289636dee4d587711dd39a5a9ee048fd3 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Thu, 20 May 2021 18:40:59 +0100 Subject: [PATCH] el/dot-emacs.el: Fix fontification in printouts. --- el/dot-emacs.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/el/dot-emacs.el b/el/dot-emacs.el index 5a4923b..1782095 100644 --- a/el/dot-emacs.el +++ b/el/dot-emacs.el @@ -1377,6 +1377,18 @@ case." (eval-after-load 'ps-print '(progn + ;; Notice that the comment-delimiters should be in italics too. + (pushnew 'font-lock-comment-delimiter-face ps-italic-faces) + + ;; Select more suitable colours for the main kinds of tokens. The + ;; colours set on the Emacs faces are chosen for use against a dark + ;; background, and work very badly on white paper. + (ps-extend-face '(font-lock-comment-face "darkgreen" nil italic)) + (ps-extend-face '(font-lock-comment-delimiter-face "darkgreen" nil italic)) + (ps-extend-face '(font-lock-string-face "RoyalBlue4" nil)) + (ps-extend-face '(mdw-punct-face "sienna" nil)) + (ps-extend-face '(mdw-number-face "OrangeRed3" nil)) + ;; Teach `ps-print' about my condensed varsions of Courier. (setq ps-font-info-database (append '((CourierCondensed -- 2.11.0