From bc4fecd6b13028f53c09ed62d1c9c1a1d7614d01 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Mon, 11 May 2026 12:30:55 -0400
Subject: [PATCH] Don't fontify org-src blocks natively

Just use blue foreground to show it as a block
---
 config.org                | 63 ++++++++++++++++++++-------------------
 themes/eng-paper-theme.el |  2 ++
 2 files changed, 34 insertions(+), 31 deletions(-)

diff --git a/config.org b/config.org
index 035cb9d..5917a5e 100644
--- a/config.org
+++ b/config.org
@@ -230,37 +230,38 @@ Sly really doesn't play well with elodc in the minibuffer, so here are some sett
 ** Configuration
 *** General options
 #+BEGIN_SRC emacs-lisp
-  (with-eval-after-load 'org-mode (add-to-list 'org-export-backends 'md))
-
-  (setq org-startup-indented nil
-	org-indent-indentation-per-level tab-width
-	org-startup-folded 'fold
-	org-startup-with-inline-images t
-	org-cycle-inline-images-display t
-	org-cycle-separator-lines 0
-	org-blank-before-new-entry '((heading) (plain-list-item . auto))
-	org-M-RET-may-split-line nil
-	org-treat-S-cursor-todo-selection-as-state-change nil
-	org-treat-insert-todo-heading-as-state-change nil
-	org-table-export-default-format "orgtbl-to-csv"
-	org-list-allow-alphabetical t
-	org-fold-catch-invisible-edits 'show-and-error
-	org-ellipsis "↴"
-	org-tags-column 0
-	org-reverse-note-order t
-	org-enforce-todo-dependencies t
-	org-enforce-todo-checkbox-dependencies t
-	org-fontify-done-headline nil
-	org-fontify-todo-headline nil
-	org-goto-interface 'outline-path-completion
-	org-outline-path-complete-in-steps nil
-	org-goto-auto-isearch nil
-	org-special-ctrl-a/e t
-	org-special-ctrl-k t
-	org-return-follows-link t
-	org-yank-adjusted-subtrees t
-	org-src-window-setup 'current-window
-	org-src-preserve-indentation t)
+(with-eval-after-load 'org-mode (add-to-list 'org-export-backends 'md))
+
+(setq org-startup-indented nil
+      org-indent-indentation-per-level tab-width
+      org-startup-folded 'fold
+      org-startup-with-inline-images t
+      org-cycle-inline-images-display t
+      org-cycle-separator-lines 0
+      org-blank-before-new-entry '((heading) (plain-list-item . auto))
+      org-M-RET-may-split-line nil
+      org-treat-S-cursor-todo-selection-as-state-change nil
+      org-treat-insert-todo-heading-as-state-change nil
+      org-table-export-default-format "orgtbl-to-csv"
+      org-list-allow-alphabetical t
+      org-fold-catch-invisible-edits 'show-and-error
+      org-ellipsis "↴"
+      org-tags-column 0
+      org-reverse-note-order t
+      org-enforce-todo-dependencies t
+      org-enforce-todo-checkbox-dependencies t
+      org-fontify-done-headline nil
+      org-fontify-todo-headline nil
+      org-src-fontify-natively nil
+      org-goto-interface 'outline-path-completion
+      org-outline-path-complete-in-steps nil
+      org-goto-auto-isearch nil
+      org-special-ctrl-a/e t
+      org-special-ctrl-k t
+      org-return-follows-link t
+      org-yank-adjusted-subtrees t
+      org-src-window-setup 'current-window
+      org-src-preserve-indentation t)
 #+END_SRC
 *** Time Clocking
 #+BEGIN_SRC emacs-lisp
diff --git a/themes/eng-paper-theme.el b/themes/eng-paper-theme.el
index 867d74a..d8327d0 100644
--- a/themes/eng-paper-theme.el
+++ b/themes/eng-paper-theme.el
@@ -126,6 +126,8 @@
      ((,class (:inherit default))))
    `(org-special-keyword
      ((,class (:foreground ,precaution-blue))))
+   `(org-block
+     ((,class (:foreground ,precaution-blue))))
 ;;; Org Agenda
    `(header-line
      ((,class (:inherit default))))
-- 
2.39.5