From 1b81e2178a1dc33fd1e027fc3096cd29a6faa46b Mon Sep 17 00:00:00 2001
From: Howard Abrams <howard.abrams@workday.com>
Date: Fri, 24 Mar 2023 10:58:22 -0700
Subject: [PATCH] Finally got litagures working on my Mac

Using a couple of hacks, but I'm keeping Mickey Peterson's project as
that seems like a better solution for the Linux system.
---
 ha-display.org            | 15 ++++----
 ha-org-word-processor.org | 13 +++++++
 ha-org.org                |  4 +-
 ha-programming.org        | 81 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 105 insertions(+), 8 deletions(-)

diff --git a/ha-display.org b/ha-display.org
index da8267d..1a98343 100644
--- a/ha-display.org
+++ b/ha-display.org
@@ -196,14 +196,16 @@ My /current/ favorite font is actually the top list of fonts that may be install
       (or
        (seq-first
         (seq-filter (lambda (font) (when (x-list-fonts font) font))
-                    '("Hack Nerd Font"
+                    '("CaskaydiaCove Nerd Font"  ; finally found it
+                      "Cascadia Code PL"         ; funky font with litagures and a dotted 0
+                      "Hack Nerd Font"           ; clean font, but no litagures!?
+                      "FiraCode Nerd Font"       ; has litagures
                       "Cousine Nerd Font"
                       "Iosevka Nerd Font"
                       "Iosevka"
                       "FantasqueSansMono Nerd Font"
                       "Monoid Nerd Font"
                       "Hasklig"
-                      "Cascadia Code PL"
                       "Source Code Pro")))
        "monospaced"))
     "My fixed width font based on what I have installed.")
@@ -216,8 +218,10 @@ I probably don't need to have such a ranking system, as chances are good I have
       (or
        (seq-first
         (seq-filter (lambda (font) (when (x-list-fonts font) font))
-                    '(;  Interesting idea: "Iosevka Comfy Motion Duo"
+                    '("Literata" ; Clean, readable with litagures
                       "XCharter" ; https://fontesk.com/xcharter-typeface/
+                      "Charter"
+                      ;  Interesting idea: "Iosevka Comfy Motion Duo"
                       "Serif")))
        (warn "Cannot find a Serif Font.  Install Source Sans Pro."))))
 
@@ -367,7 +371,6 @@ Not use what I'm doing with the [[https://github.com/domtronn/all-the-icons.el][
 #+end_src
 *Note:* Install everything with the function, =all-the-icons-install-fonts=.
 * Ligatures
-
 Seems like getting ligatures to work in Emacs has been a Holy Grail. On Mac, I've used special builds that have hacks, but now with Emacs 27 and Harfbuzz, I should be able to get --> to look like it should.
 
 #+begin_src emacs-lisp :tangle no
@@ -377,9 +380,7 @@ Seems like getting ligatures to work in Emacs has been a Holy Grail. On Mac, I'v
   (prettify-symbols-mode +1)
 #+end_src
 
-Note, in Doom, is appears we have a =ligatures= module.
-We'll start using that instead, but changing it in [[file:general-programming.org][general-programming]] file.
-
+We'll start using that instead, but setting this [[file:ha-programming.org::*Ligatures][over here]] in the programming section.
 * Technical Artifacts :noexport:
 
 Let's =provide= a name so we can =require= this file:
diff --git a/ha-org-word-processor.org b/ha-org-word-processor.org
index cfaf0a2..b549a00 100644
--- a/ha-org-word-processor.org
+++ b/ha-org-word-processor.org
@@ -200,6 +200,19 @@ After reading [[https://www.punctuationmatters.com/en-dash-em-dash-hyphen][this
   (define-key org-mode-map "-" #'ha-insert-long-dash)
 #+end_src
 The /issue/ is how do we deal with org’s dashed bullets? In this case, we want to insert an actual dash, but elsewhere, we /visually/ display the dash as a more emphasized glyph.
+** Ligatures
+Well, using the =composition-function-table=, we can finally get some ligatures to improve readability without Harfbuzz.
+#+begin_src emacs-lisp
+  (defun ha-textual-litagures ()
+    "Non-programming litagures for readable and text-derived modes."
+    (set-char-table-range composition-function-table
+                          ?f '(["\\(?:ff?[fijlt]\\)" 0 font-shape-gstring]))
+    (set-char-table-range composition-function-table
+                          ?T '(["\\(?:Th\\)" 0 font-shape-gstring])))
+
+  (add-hook 'text-mode-hook #'ha-textual-litagures)
+#+end_src
+This is now fine and ffantastic!
 * Org Beautify
 I really want to use the Org Beautify package, but it overrides my darker themes (and all I really want is headlines to behave).
 
diff --git a/ha-org.org b/ha-org.org
index a162e04..2514b15 100644
--- a/ha-org.org
+++ b/ha-org.org
@@ -612,8 +612,10 @@ Splitting out HTML snippets is often a way that I can transfer org-formatted con
 #+begin_src emacs-lisp
   (setq org-html-head-extra
         (string-join '( "<style>"
+                        "@import url('https://fonts.googleapis.com/css2?family=Literata:ital,wght@0,300;0,600;1,300;1,600&display=swap');"
                         "@import url('https://fonts.googleapis.com/css2?family=Overpass:ital,wght@0,300;0,600;1,300;1,600&display=swap');"
-                        "html { font-family: 'Overpass', sans-serif; color: #333; }"
+                        "html { font-family: 'Literata', sans-serif; color: #333; }"
+                        "h1,h2,h3,h4,h5 { font-family: 'Overpass', sans-serif; color: #333; }"
                         "pre.src { background-color: #eee; }"
                         ;; "@importmedia (prefers-color-scheme: dark) {"
                         " html { background-color: #1d1f21; color: white; }"
diff --git a/ha-programming.org b/ha-programming.org
index b4d61aa..0d80bdf 100644
--- a/ha-programming.org
+++ b/ha-programming.org
@@ -455,7 +455,88 @@ The idea of using math symbols for a programming languages keywords is /cute/, b
 
   (add-hook 'prog-mode-hook 'ha-prettify-prog)
 #+end_src
+
 Hopefully I can follow [[https://www.masteringemacs.org/article/unicode-ligatures-color-emoji][Mickey Petersen's essay]] on getting full ligatures working, but right now, they don’t work on the Mac, and that is my current workhorse.
+#+begin_src emacs-lisp
+  (use-package ligature
+    :config
+    ;; Enable the "www" ligature in every possible major mode
+    (ligature-set-ligatures 't '("www"))
+
+    ;; Enable traditional ligature support in eww-mode, if the
+    ;; `variable-pitch' face supports it
+    (ligature-set-ligatures '(org-mode eww-mode) '("ff" "fi" "ffi"))
+
+    (ligature-set-ligatures '(html-mode nxml-mode web-mode)
+                            '("<!--" "-->" "</>" "</" "/>" "://"))
+
+    ;; Create a new ligature:
+    (ligature-set-ligatures 'markdown-mode '(("=" (rx (+ "=") (? (| ">" "<"))))
+                                             ("-" (rx (+ "-")))))
+
+    ;; Enable all Cascadia Code ligatures in programming modes
+    (ligature-set-ligatures 'prog-mode '("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||=" "||>"
+                                         ":::" "::=" "=:=" "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
+                                         "!!." ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
+                                         "<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
+                                         "<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_(" "..<"
+                                         "..." "+++" "/==" "///" "_|_" "www" "&&" "^=" "~~" "~@" "~="
+                                         "~>" "~-" "**" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-" "{|"
+                                         "[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "!!" ">:"
+                                         ">=" ">>" ">-" "-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:"
+                                         "<$" "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#=" "#!"
+                                         "##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?" "+>" "++" "?:"
+                                         "?=" "?." "??" ";;" "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
+                                         "\\\\" "://"))
+    ;; Enables ligature checks globally in all buffers. You can also do it
+    ;; per mode with `ligature-mode'.
+    (global-ligature-mode t))
+#+end_src
+
+Until I can get [[https://github.com/d12frosted/homebrew-emacs-plus/issues/222][Harfbuzz support]] on my Emacs-Plus build of Mac, the following work-around seems to mostly work:
+#+begin_src emacs-lisp
+  (defun ha-mac-litagure-workaround ()
+    "Implement an old work-around for ligature support.
+  This kludge seems to only need to be set for my Mac version of
+  Emacs, since I can't build it with Harfuzz support."
+    (let ((alist '((33 . ".\\(?:\\(?:==\\|!!\\)\\|[!=]\\)")
+                   (35 . ".\\(?:###\\|##\\|_(\\|[#(?[_{]\\)")
+                   (36 . ".\\(?:>\\)")
+                   (37 . ".\\(?:\\(?:%%\\)\\|%\\)")
+                   (38 . ".\\(?:\\(?:&&\\)\\|&\\)")
+                   (42 . ".\\(?:\\(?:\\*\\*/\\)\\|\\(?:\\*[*/]\\)\\|[*/>]\\)")
+                   (43 . ".\\(?:\\(?:\\+\\+\\)\\|[+>]\\)")
+                   (45 . ".\\(?:\\(?:-[>-]\\|<<\\|>>\\)\\|[<>}~-]\\)")
+                   (46 . ".\\(?:\\(?:\\.[.<]\\)\\|[.=-]\\)")
+                   (47 . ".\\(?:\\(?:\\*\\*\\|//\\|==\\)\\|[*/=>]\\)")
+                   (48 . ".\\(?:x[a-zA-Z]\\)")
+                   (58 . ".\\(?:::\\|[:=]\\)")
+                   (59 . ".\\(?:;;\\|;\\)")
+                   (60 . ".\\(?:\\(?:!--\\)\\|\\(?:~~\\|->\\|\\$>\\|\\*>\\|\\+>\\|--\\|<[<=-]\\|=[<=>]\\||>\\)\\|[*$+~/<=>|-]\\)")
+                   (61 . ".\\(?:\\(?:/=\\|:=\\|<<\\|=[=>]\\|>>\\)\\|[<=>~]\\)")
+                   (62 . ".\\(?:\\(?:=>\\|>[=>-]\\)\\|[=>-]\\)")
+                   (63 . ".\\(?:\\(\\?\\?\\)\\|[:=?]\\)")
+                   (91 . ".\\(?:]\\)")
+                   (92 . ".\\(?:\\(?:\\\\\\\\\\)\\|\\\\\\)")
+                   (94 . ".\\(?:=\\)")
+                   (119 . ".\\(?:ww\\)")
+                   (123 . ".\\(?:-\\)")
+                   (124 . ".\\(?:\\(?:|[=|]\\)\\|[=>|]\\)")
+                   (126 . ".\\(?:~>\\|~~\\|[>=@~-]\\)"))))
+      (dolist (char-regexp alist)
+        (set-char-table-range composition-function-table (car char-regexp)
+                              `([,(cdr char-regexp) 0 font-shape-gstring])))))
+
+  (unless (s-contains? "HARFBUZZ" system-configuration-features)
+    (add-hook 'prog-mode-hook #'ha-mac-ligature-workaround))
+#+end_src
+
+The unicode-fonts package rejigs the internal tables Emacs uses to pick better fonts for unicode codepoint ranges.
+#+begin_src emacs-lisp
+  (use-package unicode-fonts
+    :config
+    (unicode-fonts-setup))
+#+end_src
 ** Compiling
 The [[help:compile][compile]] function lets me enter a command to run, or I can search the history for a previous run. What it doesn’t give me, is a project-specific list of commands. Perhaps, for each project, I define in =.dir-locals.el= a variable, =compile-command-list=, like:
 #+begin_src emacs-lisp :tangle no