Reorganize the advice toggle functions

This commit is contained in:
Gerard Vermeulen 2022-10-31 13:46:31 +01:00
parent 87ac53dcb3
commit b57898eb40

View File

@ -600,15 +600,15 @@ and [[lst:3rd-window-management]] implement a selection of his recommendations.
(side . left) (side . left)
(window-width . 70)))) (window-width . 70))))
#+end_src #+end_src
president
* [[info:elisp#Advising Functions][Advising Functions (info)]] * [[info:elisp#Advising Functions][Advising functions (info)]]
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: sec:advising-function :CUSTOM_ID: sec:advising-function
:END: :END:
#+caption[Tools for advising functions]: #+caption[Toggle any advice]:
#+caption: Tools for advising functions. #+caption: Toggle any advice.
#+name: lst:advising-tools #+name: lst:toggle-any-advice
#+begin_src emacs-lisp #+begin_src emacs-lisp
(with-eval-after-load 'emacs (with-eval-after-load 'emacs
(defun advice-toggle (symbol where function &optional props) (defun advice-toggle (symbol where function &optional props)
@ -622,6 +622,52 @@ president
(advice-add symbol where function props))))) (advice-add symbol where function props)))))
#+end_src #+end_src
#+caption[Toggle specific advice]:
#+caption: Toggle specific advice.
#+name: lst:toggle-specific-advice
#+begin_src emacs-lisp
(with-eval-after-load 'emacs
(defun toggle-TeX-brace-count-line-override ()
"Toggle `TeX-brace-count-line-override' advice."
(interactive)
(advice-toggle 'TeX-brace-count-line
:override #'TeX-brace-count-line-override))
(defun toggle-engrave-faces-latex-face-apply-override ()
"Toggle `engrave-faces-latex-face-apply' advice."
(interactive)
(advice-toggle 'engrave-faces-latex-face-apply
:override #'engrave-faces-latex-face-apply-override))
(defun toggle-engrave-faces-latex-face-mapper-override ()
"Toggle `engrave-faces-latex-face-mapper' advice."
(interactive)
(advice-toggle 'engrave-faces-latex-face-mapper
:override #'engrave-faces-latex-face-mapper-override))
(defun toggle-eww-display-pdf-around ()
"Toggle `eww-display-advice' advice."
(interactive)
(advice-toggle 'eww-display-pdf :around #'eww-display-pdf-as-binary))
(defun toggle-ilog-timer-function-after ()
"Toggle `ilog-timer-function' advice."
(interactive)
(advice-toggle 'ilog-timer-function :after #'ilog-ensure-ilog-buffer-window))
(defun toggle-keycast-log-update-buffer-override ()
"Toggle `keycast-log-update-buffer' advice."
(interactive)
(advice-toggle 'keycast-log-update-buffer
:override #'keycast-log-update-buffer-plain))
(defun toggle-org-babel-python-format-session-value-override ()
"Toggle `org-babel-python-format-session-value' advice."
(interactive)
(advice-toggle 'org-babel-python-format-session-value
:override #'org-babel-python-format-session-value-override)))
#+end_src
* [[info:emacs#Dired][Dired: directory editor as file manager (info)]] * [[info:emacs#Dired][Dired: directory editor as file manager (info)]]
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: sec:file-manager :CUSTOM_ID: sec:file-manager
@ -807,6 +853,8 @@ defined in this Org file.
(toggle-engrave-faces-latex-face-apply-override :no-manual t) (toggle-engrave-faces-latex-face-apply-override :no-manual t)
(toggle-engrave-faces-latex-face-mapper-override :no-manual t) (toggle-engrave-faces-latex-face-mapper-override :no-manual t)
(toggle-eww-display-pdf-around :no-manual t) (toggle-eww-display-pdf-around :no-manual t)
(toggle-ilog-timer-function-after :no-manual t)
(toggle-keycast-log-update-buffer-override :no-manual t)
(toggle-org-babel-python-format-session-value-override :no-manual t) (toggle-org-babel-python-format-session-value-override :no-manual t)
"Face" "Face"
(invert-default-face :no-manual t) (invert-default-face :no-manual t)
@ -815,9 +863,7 @@ defined in this Org file.
(enable-this-command :no-manual t) (enable-this-command :no-manual t)
(narrow-or-widen-dwim :no-manual t) (narrow-or-widen-dwim :no-manual t)
(org-narrow-to-table :no-manual t) (org-narrow-to-table :no-manual t)
(toggle-ilog-timer-function-after :no-manual)
"LaTeX" "LaTeX"
(TeX-brace-count-line-override :no-manual t)
(biber-delete-cache :no-manual t) (biber-delete-cache :no-manual t)
(update-lualatex-opentype-font-name-database :no-manual t) (update-lualatex-opentype-font-name-database :no-manual t)
"Org" "Org"
@ -931,15 +977,8 @@ users from shooting themselves in the feet. Listing
(not (get-buffer-window ilog-buffer-name))) (not (get-buffer-window ilog-buffer-name)))
(display-buffer (get-buffer ilog-buffer-name)))) (display-buffer (get-buffer ilog-buffer-name))))
(define-key help-map (kbd "C-l") #'interaction-log-mode)) (define-key help-map (kbd "C-l") #'interaction-log-mode)
(advice-add 'ilog-timer-function :after #'ilog-ensure-ilog-buffer-window))
(with-eval-after-load 'emacs
(defun toggle-ilog-timer-function-after ()
"Toggle `ilog-timer-function' advice."
(interactive)
(advice-toggle 'ilog-timer-function :after #'ilog-ensure-ilog-buffer-window))
(toggle-ilog-timer-function-after))
#+end_src #+end_src
@ -986,13 +1025,8 @@ Listing [[lst:configure-keycast]] configures =keycast=.
(insert output)) (insert output))
(goto-char (if keycast-log-newest-first (point-min) (point-max))))))) (goto-char (if keycast-log-newest-first (point-min) (point-max)))))))
(defun toggle-keycast-log-update-buffer-override () (advice-add 'keycast-log-update-buffer
"Toggle `keycast-log-update-buffer' advice." :override #'keycast-log-update-buffer-plain))
(interactive)
(advice-toggle 'keycast-log-update-buffer
:override #'keycast-log-update-buffer-plain))
(toggle-keycast-log-update-buffer-override))
#+end_src #+end_src
* [[info:emacs#Emacs Server][Using Emacs as a server (info)]] * [[info:emacs#Emacs Server][Using Emacs as a server (info)]]
@ -1800,12 +1834,7 @@ in listing [[lst:configure-auctex]] corrects this by advising to override
(forward-char) t)))))) (forward-char) t))))))
count))) count)))
(defun toggle-TeX-brace-count-line-override () (advice-add 'TeX-brace-count-line :override #'TeX-brace-count-line-override))
"Toggle `TeX-brace-count-line-override' advice."
(interactive)
(advice-toggle 'TeX-brace-count-line :override #'TeX-brace-count-line-override))
(toggle-TeX-brace-count-line-override))
#+end_src #+end_src
Listing [[lst:configure-bibtex]] configures the Emacs =bibtex= library to use the Listing [[lst:configure-bibtex]] configures the Emacs =bibtex= library to use the
@ -2041,16 +2070,10 @@ backward compatibility. See table [[tab:org-latex-class-tag-placeholder]] and ty
__org_babel_python_final = None" __org_babel_python_final = None"
(org-babel-process-file-name src-file 'noquote) (org-babel-process-file-name src-file 'noquote)
(org-babel-process-file-name result-file 'noquote) (org-babel-process-file-name result-file 'noquote)
(if (member "pp" result-params) "True" "False")))) (if (member "pp" result-params) "True" "False")))
(with-eval-after-load 'emacs (advice-add 'org-babel-python-format-session-value
(defun toggle-org-babel-python-format-session-value-override () :override #'org-babel-python-format-session-value-override))
"Toggle `org-babel-python-format-session-value' advice."
(interactive)
(advice-toggle 'org-babel-python-format-session-value
:override #'org-babel-python-format-session-value-override))
(toggle-org-babel-python-format-session-value-override))
#+end_src #+end_src
#+caption[Customize =Org=]: #+caption[Customize =Org=]:
@ -2543,26 +2566,10 @@ listings below make* [[https://github.com/tecosaur/engrave-faces#readme][Engrave
(engrave-faces-latex--color fg) "}{")) (engrave-faces-latex--color fg) "}{"))
(when st "\\sout{") (when bl "\\textbf{") (when it "\\textit{") (when st "\\sout{") (when bl "\\textbf{") (when it "\\textit{")
content content
(when bg "}") (when fg "}") (when st "}") (when bl "}") (when it "}")))))) (when bg "}") (when fg "}") (when st "}") (when bl "}") (when it "}")))))
(with-eval-after-load 'emacs (advice-add 'engrave-faces-latex-face-apply
(defun advice-toggle (symbol where function &optional props) :override #'engrave-faces-latex-face-apply-override))
"Toggle between states after `advice-remove' and `advice-add'."
(let ((how "%s `%s' advice `%s' %s `%s'"))
(if (advice-member-p function symbol)
(progn
(message how "Removal of" where function "from" symbol)
(advice-remove symbol function))
(message how "Addition of" where function "to" symbol)
(advice-add symbol where function props))))
(defun toggle-engrave-faces-latex-face-apply-override ()
"Toggle `engrave-faces-latex-face-apply' advice."
(interactive)
(advice-toggle 'engrave-faces-latex-face-apply
:override #'engrave-faces-latex-face-apply-override))
(toggle-engrave-faces-latex-face-apply-override))
#+end_src #+end_src
#+caption[Fix engraving of horizontal/vertical spacing in multiline docstrings]: #+caption[Fix engraving of horizontal/vertical spacing in multiline docstrings]:
@ -2597,16 +2604,10 @@ listings below make* [[https://github.com/tecosaur/engrave-faces#readme][Engrave
(push (engrave-faces-latex-face-apply faces pc) stack))) (push (engrave-faces-latex-face-apply faces pc) stack)))
(when-let ((pc (match-string 2 protected-content))) (when-let ((pc (match-string 2 protected-content)))
(push pc stack))) (push pc stack)))
(apply #'concat (nreverse stack)))))) (apply #'concat (nreverse stack)))))
(with-eval-after-load 'emacs (advice-add 'engrave-faces-latex-face-mapper
(defun toggle-engrave-faces-latex-face-mapper-override () :override #'engrave-faces-latex-face-mapper-override))
"Toggle `engrave-faces-latex-face-mapper' advice."
(interactive)
(advice-toggle 'engrave-faces-latex-face-mapper
:override #'engrave-faces-latex-face-mapper-override))
(toggle-engrave-faces-latex-face-mapper-override))
#+end_src #+end_src
#+caption[Emacs setup to use =engrave-faces-latex= in =org-mode= smartly]: #+caption[Emacs setup to use =engrave-faces-latex= in =org-mode= smartly]:
@ -4995,15 +4996,8 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
(name (or (and (eq "" title) (plist-get eww-data :url)) title))) (name (or (and (eq "" title) (plist-get eww-data :url)) title)))
(rename-buffer (format "*%s # eww*" name) t))) (rename-buffer (format "*%s # eww*" name) t)))
(add-hook 'eww-after-render-hook #'eww-rename-buffer)) (add-hook 'eww-after-render-hook #'eww-rename-buffer)
(advice-add 'eww-display-pdf :around #'eww-display-pdf-as-binary))
(with-eval-after-load 'emacs
(defun toggle-eww-display-pdf-around ()
"Toggle `eww-display-advice' advice."
(interactive)
(advice-toggle 'eww-display-pdf :around #'eww-display-pdf-as-binary))
(toggle-eww-display-pdf-around))
#+end_src #+end_src
*** [[https://en.wikipedia.org/wiki/Media_type#Mailcap][Mailcap]] *** [[https://en.wikipedia.org/wiki/Media_type#Mailcap][Mailcap]]