summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorProtesilaos Stavrou <info@protesilaos.com>2021-04-27 21:24:41 +0200
committerBastien Guerry <bzg@gnu.org>2021-04-27 21:26:37 +0200
commit667cb6f1aeac330272d55cd2b8849ef75bf7e685 (patch)
tree7cfad101dabd707dd46900e4f7bd128b61f6184d
parentbeb010a3a53d973c61e1ae03b0eecb9ab89e1017 (diff)
downloadorg-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-NEWS4
-rw-r--r--lisp/org-faces.el20
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")