From 5fb493234c3d77959fd3021d3eaeddeff13e2dc0 Mon Sep 17 00:00:00 2001
From: eriedaberrie <eriedaberrie@gmail.com>
Date: Tue, 24 Jan 2023 23:56:45 -0800
Subject: [PATCH] Disable goggles for certain puni functions

---
 init.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index a404019..7667e80 100644
--- a/init.el
+++ b/init.el
@@ -150,7 +150,21 @@
               ("C-c p r" . puni-raise)
               ("C-c p C-s" . puni-splice)
               ("C-c p s" . puni-split)
-              ("C-c p z" . puni-squeeze)))
+              ("C-c p z" . puni-squeeze))
+  :config
+  (with-eval-after-load 'goggles
+    (dolist (fun '(puni-slurp-forward
+                   puni-barf-forward
+                   puni-slurp-backward
+                   puni-barf-backward
+                   puni-raise))
+      (advice-add fun :around (lambda (oldfun &rest r)
+                                (let ((old-goggles-mode goggles-mode))
+                                  (goggles-mode 0)
+                                  (let ((ret (apply oldfun r)))
+                                    (when old-goggles-mode
+                                      (goggles-mode))
+                                    ret)))))))
 
 (use-package ace-window
   :bind ("C-c w" . ace-window)