From 5c11765f8275dcce0bc7dbf38ec75ca4d76290c2 Mon Sep 17 00:00:00 2001
From: Howard Abrams <howard.abrams@gmail.com>
Date: Mon, 26 Feb 2024 13:18:05 -0800
Subject: [PATCH] Migrate from specific variable-pitch to mixed-pitch project

---
 ha-aux-apps.org           | 4 ++--
 ha-display.org            | 8 ++++++++
 ha-feed-reader.org        | 6 ------
 ha-org-word-processor.org | 7 -------
 ha-programming.org        | 2 --
 5 files changed, 10 insertions(+), 17 deletions(-)

diff --git a/ha-aux-apps.org b/ha-aux-apps.org
index e1f552b..e5ca580 100644
--- a/ha-aux-apps.org
+++ b/ha-aux-apps.org
@@ -66,7 +66,7 @@ I would like a dedicate perspective to Mastodon, and I would like a leader key s
 Let’s turn on non-fixed-width fonts to make everything easier to read:
 #+begin_src emacs-lisp
   (use-package mastodon
-     :hook (mastodon-mode . variable-pitch-mode))
+     :hook (mastodon-mode . mixed-pitch-mode))
 #+end_src
 Starting the =mastodon= perspective, I set some initial windows:
 #+begin_src emacs-lisp
@@ -152,7 +152,7 @@ For some reason, you need [[https://github.com/Fanael/rainbow-identifiers][rainb
 In the Telega chat’s, let’s turn on non-fixed-width fonts:
 #+begin_src emacs-lisp
   (use-package telega
-     :hook (telega-chat-mode . variable-pitch-mode))
+     :hook (telega-chat-mode . mixed-pitch-mode))
 #+end_src
 * RPG DM
 Been working on my [[https://gitlab.com/howardabrams/emacs-rpgdm][RPG DM project]] for getting Emacs helping as a /Dungeon Master's Assistant/. The idea is to be able to roll dice and whatnot. What I find most useful is the [[https://gitlab.com/howardabrams/emacs-rpgdm/-/blob/main/rpgdm-tables.el][random tables]].
diff --git a/ha-display.org b/ha-display.org
index 3054d17..36578e5 100644
--- a/ha-display.org
+++ b/ha-display.org
@@ -346,6 +346,14 @@ Which font to choose?
 
   (font-monitor-size-default)
 #+end_src
+** Mixed Pitch
+[[https://github.com/emacsmirror/mixed-pitch][Mixed pitch]] is a minor mode that enables mixing fixed-pitch (also known as fixed-width or monospace) and variable-pitch (AKA “proportional”) fonts. It tries to be smart about which fonts get which face.
+
+#+begin_src emacs-lisp
+(use-package mixed-pitch
+  :hook
+  (text-mode . mixed-pitch-mode))
+#+end_src
 ** Zooming or Increasing Font Size
 Do we want to increase the size of font in a single window (using =text-scale-increase=), or globally (using my new =font-size-increase=)?
 
diff --git a/ha-feed-reader.org b/ha-feed-reader.org
index addaef9..36abc05 100644
--- a/ha-feed-reader.org
+++ b/ha-feed-reader.org
@@ -58,12 +58,6 @@ Let's get our feeds from a collection of org mode files. By default, Doom config
     (elfeed-search-update))
 #+end_src
 
-Let’s turn on non-fixed-width fonts to make everything easier to read:
-#+begin_src emacs-lisp :tangle no
-  (use-package elfeed
-     :hook (elfeed-show-mode . variable-pitch-mode))
-#+end_src
-
 According to Ben Maughan and [[http://pragmaticemacs.com/emacs/to-eww-or-not-to-eww/][this Pragmatic Emacs essay]], we could easily browse an article in the GUI browser instead of EWW with capital B:
 
 #+begin_src emacs-lisp
diff --git a/ha-org-word-processor.org b/ha-org-word-processor.org
index afbe442..be5fd53 100644
--- a/ha-org-word-processor.org
+++ b/ha-org-word-processor.org
@@ -268,13 +268,6 @@ And decrease the prominence of the property drawers:
   (set-face-attribute 'org-property-value nil :height 0.85)
   (set-face-attribute 'org-special-keyword nil :height 0.85)
 #+end_src
-This process allows us to use =variable-pitch= mode for all org documents.
-#+begin_src emacs-lisp
-  (use-package org
-    ;; TODO: Using the latest org-mode
-    ;; :straight (:type built-in)
-    :hook (org-mode . variable-pitch-mode))
-#+end_src
 * Org Modern
 The [[https://github.com/minad/org-modern][org-modern]] project attempts to do a lot of what I was doing in this file.
 #+begin_src emacs-lisp
diff --git a/ha-programming.org b/ha-programming.org
index de02a1d..38f70c8 100644
--- a/ha-programming.org
+++ b/ha-programming.org
@@ -1039,7 +1039,6 @@ Also, I like Markdown is look like a word processor, similarly to my org files:
     :mode ((rx ".md" string-end) . gfm-mode)
     :init (setq markdown-command "multimarkdown"
                 markdown-header-scaling t)
-    :hook (markdown-mode . variable-pitch-mode)
     :general
     (:states 'normal :no-autoload t :keymaps 'markdown-mode-map
              ", l" '("insert link" . markdown-insert-link) ; Also C-c C-l
@@ -1090,7 +1089,6 @@ Using [[https://polymode.github.io/][polymode]], let’s add syntax coloring to
 Support for [[https://docutils.sourceforge.io/rst.html][reStructuredText]] is [[https://www.emacswiki.org/emacs/reStructuredText][well supported]] in Emacs.
 #+begin_src emacs-lisp
   (use-package rst
-    :hook (rst-mode . variable-pitch-mode)
     :config
     (set-face-attribute 'rst-literal nil :font ha-fixed-font))
 #+end_src