diff options
| -rw-r--r-- | lisp/+org.el | 14 |
1 files changed, 14 insertions, 0 deletions
| diff --git a/lisp/+org.el b/lisp/+org.el index 3d14c52..2a57fe2 100644 --- a/lisp/+org.el +++ b/lisp/+org.el | |||
| @@ -568,5 +568,19 @@ and POST-PROCESS are passed to `org-export-to-file'." | |||
| 568 | (interactive) | 568 | (interactive) |
| 569 | (+org-export-clip-to-html nil :subtree)) | 569 | (+org-export-clip-to-html nil :subtree)) |
| 570 | 570 | ||
| 571 | ;;; Unsmartify quotes and dashes and stuff. | ||
| 572 | (defun +org-unsmartify () | ||
| 573 | "Replace \"smart\" punctuation with their \"dumb\" counterparts." | ||
| 574 | (interactive) | ||
| 575 | (save-excursion | ||
| 576 | (goto-char (point-min)) | ||
| 577 | (while (re-search-forward "[“”‘’–—]" nil t) | ||
| 578 | (let ((replace (pcase (match-string 0) | ||
| 579 | ((or "“" "”") "\"") | ||
| 580 | ((or "‘" "’") "'") | ||
| 581 | ("–" "--") | ||
| 582 | ("—" "---")))) | ||
| 583 | (replace-match replace nil nil))))) | ||
| 584 | |||
| 571 | (provide '+org) | 585 | (provide '+org) |
| 572 | ;;; +org.el ends here | 586 | ;;; +org.el ends here |