From c066d60c14427c1e5613b29da280b608f2c5c227 Mon Sep 17 00:00:00 2001
From: Skylar Hill <stellarskylark@posteo.net>
Date: Fri, 12 Apr 2024 19:00:38 -0500
Subject: [PATCH] Disable org polymode

---
 Emacs.org               | 26 +++++++++++++-------------
 home/emacs-packages.scm |  4 ++--
 home/init.el            | 22 +++++++++++-----------
 3 files changed, 26 insertions(+), 26 deletions(-)

diff --git a/Emacs.org b/Emacs.org
index 10f8c8e..7b27178 100644
--- a/Emacs.org
+++ b/Emacs.org
@@ -69,8 +69,8 @@
                           emacs-org-roam
                           emacs-org-superstar
                           emacs-parinfer-rust-mode
-                          emacs-polymode
-                          emacs-polymode-org
+                          ;; emacs-polymode
+                          ;; emacs-polymode-org
                           emacs-swiper
                           emacs-telephone-line
                           emacs-which-key
@@ -114,17 +114,17 @@
   (use-package org
     :hook (org-superstar-mode))
 
-  (use-package poly-org
-    :config
-    (pm-around-advice #'org-babel-tangle #'polymode-with-current-base-buffer)
-    (pm-around-advice #'org-babel-demarcate-block #'polymode-with-current-base-buffer)
-    :bind (:map poly-org-mode-map
-                ("C-c C-v C-t" . org-babel-tangle)
-                ("C-c C-v t" . org-babel-tangle)
-                ("C-c C-v C-d" . org-babel-demarcate-block)
-                ("C-c C-v d" . org-babel-demarcate-block))
-    :hook ((poly-org-mode . (lambda () (setq-local org-src-fontify-natively t)))
-           (org-mode . poly-org-mode)))
+  ;; (use-package poly-org
+  ;;   :config
+  ;;   (pm-around-advice #'org-babel-tangle #'polymode-with-current-base-buffer)
+  ;;   (pm-around-advice #'org-babel-demarcate-block #'polymode-with-current-base-buffer)
+  ;;   :bind (:map poly-org-mode-map
+  ;;               ("C-c C-v C-t" . org-babel-tangle)
+  ;;               ("C-c C-v t" . org-babel-tangle)
+  ;;               ("C-c C-v C-d" . org-babel-demarcate-block)
+  ;;               ("C-c C-v d" . org-babel-demarcate-block))
+  ;;   :hook ((poly-org-mode . (lambda () (setq-local org-src-fontify-natively t)))
+  ;;          (org-mode . poly-org-mode)))
 
 
   (use-package geiser-guile
diff --git a/home/emacs-packages.scm b/home/emacs-packages.scm
index 952f325..09dd2d0 100644
--- a/home/emacs-packages.scm
+++ b/home/emacs-packages.scm
@@ -66,8 +66,8 @@ Emacs supports modules.")
                         emacs-org-roam
                         emacs-org-superstar
                         emacs-parinfer-rust-mode
-                        emacs-polymode
-                        emacs-polymode-org
+                        ;; emacs-polymode
+                        ;; emacs-polymode-org
                         emacs-swiper
                         emacs-telephone-line
                         emacs-which-key
diff --git a/home/init.el b/home/init.el
index 2d38724..cc112e1 100644
--- a/home/init.el
+++ b/home/init.el
@@ -32,17 +32,17 @@
 (use-package org
   :hook (org-superstar-mode))
 
-(use-package poly-org
-  :config
-  (pm-around-advice #'org-babel-tangle #'polymode-with-current-base-buffer)
-  (pm-around-advice #'org-babel-demarcate-block #'polymode-with-current-base-buffer)
-  :bind (:map poly-org-mode-map
-              ("C-c C-v C-t" . org-babel-tangle)
-              ("C-c C-v t" . org-babel-tangle)
-              ("C-c C-v C-d" . org-babel-demarcate-block)
-              ("C-c C-v d" . org-babel-demarcate-block))
-  :hook ((poly-org-mode . (lambda () (setq-local org-src-fontify-natively t)))
-         (org-mode . poly-org-mode)))
+;; (use-package poly-org
+;;   :config
+;;   (pm-around-advice #'org-babel-tangle #'polymode-with-current-base-buffer)
+;;   (pm-around-advice #'org-babel-demarcate-block #'polymode-with-current-base-buffer)
+;;   :bind (:map poly-org-mode-map
+;;               ("C-c C-v C-t" . org-babel-tangle)
+;;               ("C-c C-v t" . org-babel-tangle)
+;;               ("C-c C-v C-d" . org-babel-demarcate-block)
+;;               ("C-c C-v d" . org-babel-demarcate-block))
+;;   :hook ((poly-org-mode . (lambda () (setq-local org-src-fontify-natively t)))
+;;          (org-mode . poly-org-mode)))
 
 
 (use-package geiser-guile