diff options
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r-- | lisp/acdw.el | 14 |
1 files changed, 8 insertions, 6 deletions
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." | |||
474 | (let ((extracted-heading (acdw/org-extract-heading-text)) | 474 | (let ((extracted-heading (acdw/org-extract-heading-text)) |
475 | (org-export-show-temporary-export-buffer nil) | 475 | (org-export-show-temporary-export-buffer nil) |
476 | (org-export-filter-final-output-functions | 476 | (org-export-filter-final-output-functions |
477 | '(html-body-id-filter html-body-div-filter)) | 477 | '(html-body-id-filter html-body-div-filter))) |
478 | (org-export-with-smart-quotes nil) | ||
479 | (org-export-smart-quotes-alist nil)) | ||
480 | (insert "* ORG IS STUPID SOMETIMES\n") | 478 | (insert "* ORG IS STUPID SOMETIMES\n") |
481 | (goto-char (point-min)) | 479 | (goto-char (point-min)) |
482 | (org-html-export-as-html nil t nil t) | 480 | (org-html-export-as-html nil t nil t |
481 | (list :with-smart-quotes nil | ||
482 | :with-special-strings t)) | ||
483 | (with-current-buffer "*Org HTML Export*" | 483 | (with-current-buffer "*Org HTML Export*" |
484 | (goto-char (point-min)) | 484 | (goto-char (point-min)) |
485 | (replace-regexp "<h2>.*</h2>" "") | 485 | (replace-regexp "<h2>.*</h2>" "") |
@@ -498,13 +498,15 @@ first." | |||
498 | nil) | 498 | nil) |
499 | 499 | ||
500 | (defun acdw/org-export-copy () | 500 | (defun acdw/org-export-copy () |
501 | "copy a tree" | 501 | "Copy a tree as ASCII." |
502 | (interactive) | 502 | (interactive) |
503 | (require 'ox-ascii) | 503 | (require 'ox-ascii) |
504 | (let ((extracted-heading (acdw/org-extract-heading-text))) | 504 | (let ((extracted-heading (acdw/org-extract-heading-text))) |
505 | ;; Export to ASCII - not async, subtree only, visible-only, body-only | 505 | ;; Export to ASCII - not async, subtree only, visible-only, body-only |
506 | (let ((org-export-show-temporary-export-buffer nil)) | 506 | (let ((org-export-show-temporary-export-buffer nil)) |
507 | (org-ascii-export-as-ascii nil t nil t)) | 507 | (org-ascii-export-as-ascii nil t nil t |
508 | (list :with-smart-quotes t | ||
509 | :with-special-strings t))) | ||
508 | (with-current-buffer "*Org ASCII Export*" | 510 | (with-current-buffer "*Org ASCII Export*" |
509 | (goto-char (point-min)) | 511 | (goto-char (point-min)) |
510 | (insert extracted-heading) | 512 | (insert extracted-heading) |