From 4bab5a948a1d877f4c09c615a30ec3cdb878a129 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 22 Mar 2021 01:22:33 -0400 Subject: [PATCH] Omit after/before-string overlay props w/ ox-clip Otherwise you get fringe characters inserted into the htmlized output. Like !'s for every flycheck error. --- modules/lang/org/autoload/org-export.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/modules/lang/org/autoload/org-export.el b/modules/lang/org/autoload/org-export.el index a563a8583..cb54346f8 100644 --- a/modules/lang/org/autoload/org-export.el +++ b/modules/lang/org/autoload/org-export.el @@ -44,4 +44,13 @@ properties and font-locking et all)." (pcase major-mode ((or `markdown-mode `gfm-mode) (+org--yank-html-buffer (markdown))) - (_ (ox-clip-formatted-copy beg end)))) + (_ + ;; Omit after/before-string overlay properties in htmlized regions, so we + ;; don't get fringe characters for things like flycheck or git-gutter. + (letf! (defun htmlize-get-text-with-display (beg end) + (let ((text (buffer-substring-no-properties beg end))) + (htmlize-copy-prop 'display beg end text) + (htmlize-copy-prop 'htmlize-link beg end text) + ;; (setq text (htmlize-add-before-after-strings beg end text)) + text)) + (ox-clip-formatted-copy beg end)))))