From: Eric S Fraga <e.fraga@ucl.ac.uk>
To: Rasmus <rasmus@gmx.us>
Cc: emacs-orgmode@gnu.org
Subject: Re: controlling how htmlize fontifies code
Date: Tue, 4 Aug 2015 17:03:16 +0100 [thread overview]
Message-ID: <87r3njhwhn.fsf@ucl.ac.uk> (raw)
In-Reply-To: <87h9ofgkej.fsf@nicolasgoaziou.fr> (Nicolas Goaziou's message of "Tue, 4 Aug 2015 17:09:40 +0200")
[-- Attachment #1: Type: text/plain, Size: 879 bytes --]
On Tuesday, 4 Aug 2015 at 17:09, Nicolas Goaziou wrote:
[...]
> Not really, although I would write it like the following instead:
>
> (let ((output-type org-html-htmlize-output-type)
> (font-prefix org-html-htmlize-font-prefix))
> (with-temp-buffer
> ...
> ;; Htmlize region.
> (let ((org-html-htmlize-output-type output-type)
> (org-html-htmlize-font-prefix font-prefix))
> (org-html-htmlize-region-for-paste
> (point-min) (point-max)))))
Thanks Nicolas. This works! (diffs attached) At least with the output
type set as a local variable but not with #+bind which is perfectly fine
as local variable use is what I would prefer.
And thank you to Rasmus as well as I would imagine the suggested code
changes would work as well.
--
: Eric S Fraga (0xFFFCF67D), Emacs 25.0.50.2, Org release_8.3beta-1315-ga3b2b7
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: t.patch --]
[-- Type: text/x-diff, Size: 1926 bytes --]
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index d454fab..82e3b76 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -2041,25 +2041,29 @@ is the language used for CODE, as a string, or nil."
;; Case 2: Default. Fontify code.
(t
;; htmlize
- (setq code (with-temp-buffer
- ;; Switch to language-specific mode.
- (funcall lang-mode)
- (insert code)
- ;; Fontify buffer.
- (font-lock-ensure)
- ;; Remove formatting on newline characters.
- (save-excursion
- (let ((beg (point-min))
- (end (point-max)))
- (goto-char beg)
- (while (progn (end-of-line) (< (point) end))
- (put-text-property (point) (1+ (point)) 'face nil)
- (forward-char 1))))
- (org-src-mode)
- (set-buffer-modified-p nil)
- ;; Htmlize region.
- (org-html-htmlize-region-for-paste
- (point-min) (point-max))))
+ (let ((output-type org-html-htmlize-output-type)
+ (font-prefix org-html-htmlize-font-prefix))
+ (setq code (with-temp-buffer
+ ;; Switch to language-specific mode.
+ (funcall lang-mode)
+ (insert code)
+ ;; Fontify buffer.
+ (font-lock-ensure)
+ ;; Remove formatting on newline characters.
+ (save-excursion
+ (let ((beg (point-min))
+ (end (point-max)))
+ (goto-char beg)
+ (while (progn (end-of-line) (< (point) end))
+ (put-text-property (point) (1+ (point)) 'face nil)
+ (forward-char 1))))
+ (org-src-mode)
+ (set-buffer-modified-p nil)
+ ;; Htmlize region.
+ (let ((org-html-htmlize-output-type output-type)
+ (org-html-htmlize-font-prefix font-prefix))
+ (org-html-htmlize-region-for-paste
+ (point-min) (point-max))))))
;; Strip any enclosing <pre></pre> tags.
(let* ((beg (and (string-match "\\`<pre[^>]*>\n*" code) (match-end 0)))
(end (and beg (string-match "</pre>\\'" code))))
prev parent reply other threads:[~2015-08-04 16:03 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-08-02 9:24 controlling how htmlize fontifies code Eric S Fraga
2015-08-02 12:17 ` Rasmus
2015-08-03 13:51 ` Eric S Fraga
2015-08-02 13:19 ` Rick Frankel
2015-08-02 13:41 ` Kaushal
2015-08-03 13:50 ` Eric S Fraga
2015-08-03 21:08 ` Rick Frankel
2015-08-04 12:41 ` Eric S Fraga
2015-08-04 13:24 ` Eric S Fraga
2015-08-04 14:00 ` Rasmus
2015-08-04 15:09 ` Nicolas Goaziou
2015-08-04 15:21 ` Rasmus
2015-08-04 18:27 ` Nicolas Goaziou
2015-08-04 18:38 ` Rasmus
2015-08-04 18:44 ` Nicolas Goaziou
2015-08-04 16:03 ` Eric S Fraga [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87r3njhwhn.fsf@ucl.ac.uk \
--to=e.fraga@ucl.ac.uk \
--cc=emacs-orgmode@gnu.org \
--cc=rasmus@gmx.us \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).