diff options
author | Protesilaos Stavrou <info@protesilaos.com> | 2021-04-27 21:24:41 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@gnu.org> | 2021-04-27 21:26:37 +0200 |
commit | 667cb6f1aeac330272d55cd2b8849ef75bf7e685 (patch) | |
tree | 7cfad101dabd707dd46900e4f7bd128b61f6184d | |
parent | beb010a3a53d973c61e1ae03b0eecb9ab89e1017 (diff) | |
download | org-mode-667cb6f1aeac330272d55cd2b8849ef75bf7e685.tar.gz |
org-faces.el: Use fixed-pitch
* org-faces.el (org-hide, org-date, org-table, org-formula)
(org-code, org-block, org-verbatim): Use fixed-pitch.
Link: https://orgmode.org/list/875z8njaol.fsf@protesilaos.com/
-rw-r--r-- | etc/ORG-NEWS | 4 | ||||
-rw-r--r-- | lisp/org-faces.el | 20 |
2 files changed, 16 insertions, 8 deletions
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index af53997..5ce75ec 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -109,6 +109,10 @@ By default ox-html now inlines webp images. This is the CSS class name to use for the top level content wrapper. +*** Some faces now use fixed-pitch + +See https://orgmode.org/list/875z8njaol.fsf@protesilaos.com. + ** New features *** =ob-python= improvements to =:return= header argument diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 7f49e4d..46d8e6a 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -38,7 +38,8 @@ :group 'org-faces) (defface org-hide - '((((background light)) (:foreground "white")) + '((default :inherit fixed-pitch) + (((background light)) (:foreground "white")) (((background dark)) (:foreground "black"))) "Face used to hide leading stars in headlines. The foreground color of this face should be equal to the background @@ -193,7 +194,8 @@ set the properties in the `org-column' face. For example, set :group 'org-faces) (defface org-date - '((((class color) (background light)) (:foreground "Purple" :underline t)) + '((default :inherit fixed-pitch) + (((class color) (background light)) (:foreground "Purple" :underline t)) (((class color) (background dark)) (:foreground "Cyan" :underline t)) (t (:underline t))) "Face for date/time stamps." @@ -369,7 +371,8 @@ changes." (sexp :tag "Face"))))) (defface org-table ;Copied from `font-lock-function-name-face' - '((((class color) (min-colors 88) (background light)) (:foreground "Blue1")) + '((default :inherit fixed-pitch) + (((class color) (min-colors 88) (background light)) (:foreground "Blue1")) (((class color) (min-colors 88) (background dark)) (:foreground "LightSkyBlue")) (((class color) (min-colors 16) (background light)) (:foreground "Blue")) (((class color) (min-colors 16) (background dark)) (:foreground "LightSkyBlue")) @@ -385,7 +388,8 @@ changes." :group 'org-faces) (defface org-formula - '((((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) + '((default :inherit fixed-pitch) + (((class color) (min-colors 88) (background light)) (:foreground "Firebrick")) (((class color) (min-colors 88) (background dark)) (:foreground "chocolate1")) (((class color) (min-colors 8) (background light)) (:foreground "red")) (((class color) (min-colors 8) (background dark)) (:foreground "red")) @@ -393,12 +397,12 @@ changes." "Face for formulas." :group 'org-faces) -(defface org-code '((t :inherit shadow)) +(defface org-code '((t :inherit (fixed-pitch shadow))) "Face for fixed-width text like code snippets." :group 'org-faces :version "22.1") -(defface org-meta-line '((t :inherit font-lock-comment-face)) +(defface org-meta-line '((t :inherit (fixed-pitch font-lock-comment-face))) "Face for meta lines starting with \"#+\"." :group 'org-faces :version "22.1") @@ -425,7 +429,7 @@ This face applies to the #+TITLE:, #+SUBTITLE:, #+AUTHOR:, #+EMAIL: and #+DATE: keywords." :group 'org-faces) -(defface org-block `((t :inherit shadow +(defface org-block `((t :inherit (fixed-pitch shadow) ,@(and (>= emacs-major-version 27) '(:extend t)))) "Face used for text inside various blocks. @@ -447,7 +451,7 @@ verse and quote blocks are fontified using the `org-verse' and "Face used for the line delimiting the end of source blocks." :group 'org-faces) -(defface org-verbatim '((t (:inherit shadow))) +(defface org-verbatim '((t (:inherit (fixed-pitch shadow)))) "Face for fixed-with text like code snippets." :group 'org-faces :version "22.1") |