Add variable-pitch-mode in Org and Info

1 files changed, 45 insertions, 0 deletions

@@ -127,5 +127,50 @@ This is for emoji fonts."
         (set-fontset-font t 'symbol
                           (font-spec :family font) nil 'append)))))
 
+
+;;; Variable-pitch
+;; from https://github.com/turbana/emacs-config#variable-pitch
+
+(defcustom acdw-fonts/fixed-pitch-faces '(linum
+                                          org-block
+                                          org-block-begin-line
+                                          org-block-end-line
+                                          org-checkbox
+                                          org-code
+                                          org-date
+                                          org-document-info-keyword
+                                          org-hide
+                                          org-indent
+                                          org-link
+                                          org-meta-line
+                                          org-special-keyword
+                                          org-table
+                                          whitespace-space)
+  "Faces to keep fixed-pitch in `acdw/variable-pitch-mode'."
+  :type 'sexp
+  :group 'faces)
+
+(defun acdw-fonts//variable-pitch-add-inherit (attrs parent)
+  "Add `:inherit PARENT' to ATTRS unless already present.
+Handles cases where `:inherit' is already specified."
+  (let ((current-parent (plist-get attrs :inherit)))
+    (unless (or (eq parent current-parent)
+                (and (listp current-parent)
+                     (member parent current-parent)))
+      (plist-put attrs :inherit (if current-parent
+                                    (list current-parent parent)
+                                  parent)))))
+
+(defun acdw-fonts/adapt-variable-pitch ()
+  "Adapt `variable-pitch-mode' to keep some fonts fixed-pitch."
+  (when variable-pitch-mode
+    (mapc (lambda (face)
+            (when (facep face)
+              (apply #'set-face-attribute
+                     face nil (acdw-fonts//variable-pitch-add-inherit
+                               (face-attr-construct face)
+                               'fixed-pitch))))
+          acdw-fonts/fixed-pitch-faces)))
+
 (provide 'acdw-fonts)
 ;;; acdw-fonts.el ends here