From 0d311d36b9d5f430324d919ac097f2364588a432 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 20 Oct 2021 17:31:13 -0500 Subject: blayfduoisaudfoiasdupjfoiu --- lisp/acdw.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'lisp/acdw.el') diff --git a/lisp/acdw.el b/lisp/acdw.el index 48ed19b..56b661f 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -474,12 +474,12 @@ first." (let ((extracted-heading (acdw/org-extract-heading-text)) (org-export-show-temporary-export-buffer nil) (org-export-filter-final-output-functions - '(html-body-id-filter html-body-div-filter)) - (org-export-with-smart-quotes nil) - (org-export-smart-quotes-alist nil)) + '(html-body-id-filter html-body-div-filter))) (insert "* ORG IS STUPID SOMETIMES\n") (goto-char (point-min)) - (org-html-export-as-html nil t nil t) + (org-html-export-as-html nil t nil t + (list :with-smart-quotes nil + :with-special-strings t)) (with-current-buffer "*Org HTML Export*" (goto-char (point-min)) (replace-regexp "

.*

" "") @@ -498,13 +498,15 @@ first." nil) (defun acdw/org-export-copy () - "copy a tree" + "Copy a tree as ASCII." (interactive) (require 'ox-ascii) (let ((extracted-heading (acdw/org-extract-heading-text))) ;; Export to ASCII - not async, subtree only, visible-only, body-only (let ((org-export-show-temporary-export-buffer nil)) - (org-ascii-export-as-ascii nil t nil t)) + (org-ascii-export-as-ascii nil t nil t + (list :with-smart-quotes t + :with-special-strings t))) (with-current-buffer "*Org ASCII Export*" (goto-char (point-min)) (insert extracted-heading) -- cgit 1.4.1-21-gabe81