From dd49acbfd28b9a83cc7c2800ef68eacec922244f Mon Sep 17 00:00:00 2001
From: Howard Abrams <howard.abrams@workday.com>
Date: Sat, 9 Apr 2022 09:03:34 -0700
Subject: [PATCH] Turn on colored Emojis

However, this doesn't seem to be needed for latest MacOS builds of
Emacs 28.
---
 ha-display.org            | 27 ++++++++++++++++++++++++---
 ha-org-word-processor.org |  4 ++--
 2 files changed, 26 insertions(+), 5 deletions(-)

diff --git a/ha-display.org b/ha-display.org
index c733f1e..1d25ef2 100644
--- a/ha-display.org
+++ b/ha-display.org
@@ -289,7 +289,7 @@ Simple function that gives me the font information based on the size I need.  Re
     (let ((fav-font (format "%s-%d" ha-fixed-font size)))
       (set-face-attribute 'default nil :font fav-font)
       (set-face-attribute 'fixed-pitch nil :family ha-fixed-font :inherit 'default :height 1.0)
-      (set-face-attribute 'variable-pitch nil :family ha-variable-font :inherit 'default :height 1.15)))
+      (set-face-attribute 'variable-pitch nil :family ha-variable-font :inherit 'default :height 1.2)))
 #+END_SRC
 
 Define /interactive/ functions to quickly adjusting the font size based on my computing scenario:
@@ -298,7 +298,7 @@ Define /interactive/ functions to quickly adjusting the font size based on my co
   (defun ha-mac-monitor-fontsize ()
     "Quickly set reset my font size when I connect my laptop to a monitor on a Mac."
     (interactive)
-    (ha-set-favorite-font-size 17))
+    (ha-set-favorite-font-size 16))
 
   (defun ha-linux-monitor-fontsize ()
     "Quickly set reset my font size when I connect my laptop to a monitor on Linux."
@@ -376,7 +376,28 @@ And some keybindings to call them:
   (global-set-key (kbd "s-9") 'font-size-laptop-default)
 #+END_SRC
 
-* Icons and Whatnot
+* Emojis, Icons and Whatnot
+In Emacs 28.1, we have better Unicode 14 support. Which means, we need to install [[https://github.com/googlefonts/noto-emoji][Noto Color Emoji]]. Currently, my systems, seems to work just fine, but I’m leaving this code here in case I have issues, as I might use what Apple supplies when on a Mac (thanks [[http://xahlee.info/emacs/emacs/emacs_list_and_set_font.html][Xah Lee]]):
+#+BEGIN_SRC emacs-lisp
+;; set font for symbols
+(set-fontset-font t 'symbol
+ (cond
+  ((string-equal system-type "darwin")
+   (cond
+    ((member "Apple Symbols" (font-family-list)) "Apple Symbols")))
+  ((string-equal system-type "gnu/linux")
+   (cond
+    ((member "Symbola" (font-family-list)) "Symbola")))))
+
+;; set font for emoji (should come after setting symbols)
+(set-fontset-font t 'emoji
+ (cond
+  ((member "Apple Color Emoji" (font-family-list)) "Apple Color Emoji")
+  ((member "Noto Color Emoji" (font-family-list)) "Noto Color Emoji")
+  ((member "Symbola" (font-family-list)) "Symbola")))
+#+END_SRC
+Test this out: 😄 😱 😸 👸 👽 🙋
+
 Not use what I'm doing with the [[https://github.com/domtronn/all-the-icons.el][all-the-icons]] package, but the Doom Modeline uses much of this.
 #+BEGIN_SRC emacs-lisp
 (use-package all-the-icons)
diff --git a/ha-org-word-processor.org b/ha-org-word-processor.org
index adbf8a8..85c3b7c 100644
--- a/ha-org-word-processor.org
+++ b/ha-org-word-processor.org
@@ -131,7 +131,7 @@ While we are at it, let’s make sure the code blocks are using my fixed with fo
   (when window-system
     (dolist (face '(org-block org-code org-verbatim org-table org-drawer org-table org-formula
                     org-special-keyword org-property-value org-document-info-keyword))
-      (set-face-attribute face nil :inherit 'fixed-pitch)))
+      (set-face-attribute face nil :inherit 'fixed-pitch :height 0.9)))
 
   (set-face-attribute 'org-table nil :height 1.0)
   (set-face-attribute 'org-formula nil :height 1.0)
@@ -344,7 +344,7 @@ What does do? Here are some examples:
 * Padding
 The [[https://github.com/TonCherAmi/org-padding][org-padding]] project looks places extra space before and after headers and blocks (essentially leading), to create a more word-processor-y experience. Great idea, however, I have spent a lot of extra time entering blank lines before and after my headers and blocks:
 
-#+BEGIN_SRC emacs-lisp :tangle no
+#+BEGIN_SRC emacs-lisp
 (use-package org-padding
   :straight (:type git :protocol ssh :host github :repo "TonCherAmi/org-padding")
   :hook