From fed92a6fb8798825435127d9ddd7219aebdb294b Mon Sep 17 00:00:00 2001
From: MitchMarq42 <dr.m.perseos@gmail.com>
Date: Sat, 11 Mar 2023 09:29:05 -0900
Subject: [PATCH] Disable org-modern and move my gray stars into main org block

---
 lisp/mitch-packages.el | 46 ++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 24 deletions(-)

diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el
index f237d23..32acb45 100644
--- a/lisp/mitch-packages.el
+++ b/lisp/mitch-packages.el
@@ -699,6 +699,15 @@ See https://emacs.stackexchange.com/questions/2538/how-to-define-additional-mode
   (defun insert-ï ()
     (interactive)
     (insert 239)) ; this is a lowercase I with an umlaut. Used for the word `naiive'.
+  (defun mitch/org-grayify-stars ()
+    "Make the `*' characters in Org headlines look like the `#'s in markdown."
+    (interactive)
+    (font-lock-add-keywords
+     nil
+     `((,(rx bol (+ "*")) . ;; shadow
+	font-lock-doc-markup-face))))
+  (add-hook 'org-mode-hook
+	    #'mitch/org-grayify-stars 90)
   :hook
   (org-mode . turn-off-line-numbers)
   (org-mode . org-vw-mode)
@@ -1218,30 +1227,19 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
 	      (guid (seq uuid)))
        (rxt-elisp-to-pcre (rx ,@expressions)))))
 
-(use-package org-modern
-  :after org
-  :custom
-  (org-modern-tag nil)
-  (org-modern-todo nil)
-  (org-modern-block-name nil)
-  (org-modern-table nil)
-  (org-modern-hide-stars nil)
-  (org-modern-star nil)
-  ;; (org-modern-block-fringe 16)
-  :hook (org-mode . org-modern-mode)
-  :config
-  (defun mitch/org-grayify-stars ()
-    "Make the `*' characters in Org headlines look like the `#'s in markdown."
-    (interactive)
-    (font-lock-add-keywords
-     nil
-     `((,(rx bol (+ "*")) . ;; shadow
-	font-lock-doc-markup-face))))
-  (add-hook 'org-mode-hook
-	    #'mitch/org-grayify-stars 90)
-  ;; (advice-add 'org-modern--make-font-lock-keywords
-  ;; 	      :after #'mitch/org-grayify-stars)
-  )
+;; (use-package org-modern
+;;   :after org
+;;   :custom
+;;   (org-modern-tag nil)
+;;   (org-modern-todo nil)
+;;   (org-modern-block-name nil)
+;;   (org-modern-table nil)
+;;   (org-modern-hide-stars nil)
+;;   (org-modern-star nil)
+;;   ;; (org-modern-block-fringe 16)
+;;   :hook (org-mode . org-modern-mode)
+;;   :config
+;;   )
 
 ;; svg-tags; disabled because reasons
 ;; (use-package svg-tag-mode