commit b66025cf1ad47288e423c91b10616db1b6cd2a80 parent d38fd66b8e18e748dd7cfe3b7028d292faffbfb3 Author: Alex Balgavy <alex@balgavy.eu> Date: Sat, 27 Aug 2022 13:17:56 +0200 emacs: function to replace typographic quotes with normal ones Useful when I copy-paste into org mode. Diffstat:
| M | emacs/config.org | | | 13 | +++++++++++++ |
1 file changed, 13 insertions(+), 0 deletions(-)
diff --git a/emacs/config.org b/emacs/config.org @@ -575,6 +575,19 @@ Some functions to start/stop syncthing. (user-error "Syncthing is not running.")) (async-shell-command "syncthing cli operations shutdown")) #+end_src +** Replace typographic quotes +#+begin_src emacs-lisp + (defun za/replace-typographic-quotes () + "Replace typographic quotes with plain quotes" + (interactive) + (save-mark-and-excursion + (goto-char (point-min)) + (while (re-search-forward (rx (any ?“ ?”)) nil 'noerror) + (replace-match "\"")) + (goto-char (point-min)) + (while (re-search-forward (rx (any "‘" "’")) nil 'noerror) + (replace-match "'")))) +#+end_src * Interface ** Theme Icons required for some parts of the doom theme: