eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Disable goggles for certain puni functions

Browse source
This commit is contained in:
eriedaberrie 2023-01-24 23:56:45 -08:00
parent c3e8f5d5e6
commit 5fb493234c
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
init.el
View file

@ -150,7 +150,21 @@
("C-c p r" . puni-raise) ("C-c p r" . puni-raise)
("C-c p C-s" . puni-splice) ("C-c p C-s" . puni-splice)
("C-c p s" . puni-split) ("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 (use-package ace-window
:bind ("C-c w" . ace-window) :bind ("C-c w" . ace-window)