emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Omit after/before-string overlay props w/ ox-clip

Browse source 
Otherwise you get fringe characters inserted into the htmlized output.
Like !'s for every flycheck error.
This commit is contained in:
Henrik Lissner 2021-03-22 01:22:33 -04:00
parent aafed6d8a0
commit 4bab5a948a
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/lang/org/autoload/org-export.el
View file

@ -44,4 +44,13 @@ properties and font-locking et all)."
(pcase major-mode (pcase major-mode
((or `markdown-mode `gfm-mode) ((or `markdown-mode `gfm-mode)
(+org--yank-html-buffer (markdown))) (+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)))))