;;; mkhtml.el --- Create HTML with links. (Extensions to `htmlize.el'.)
;;
;; Filename: mkhtml.el
;; Description: Create HTML with links. (Extensions to `htmlize.el'.)
;; Author: Drew Adams
;; Maintainer: Drew Adams
;; Copyright (C) 2000-2007, Drew Adams, all rights reserved.
;; Created: Tue Jul 18 13:11:51 2000
;; Version: 20.1
;; Last-Updated: Fri Jan 19 22:18:52 2007 (-28800 Pacific Standard Time)
;; By: dradams
;; Update #: 2319
;; URL: http://www.emacswiki.org/cgi-bin/wiki/mkhtml.el
;; Keywords: tools, hypermedia, www, info
;; Compatibility: Emacs 20.x
;;
;; Features that might be required by this library:
;;
;; `avoid', `cl', `custom', `dired', `easymenu', `fit-frame',
;; `frame-cmds', `frame-fns', `info', `info+', `misc-fns',
;; `mkhtml-htmlize', `strings', `thingatpt', `thingatpt+'.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;
;; Extensions to `htmlize.el' (Hrvoje Niksic, hniksic@xemacs.org).
;;
;; Hrvoje Niksic's `htmlize.el' creates HTML files from fontified
;; buffers, but it does not attempt to create any HTML links. Library
;; `mkhtml.el' extends `htmlize.el' by trying to do that in a couple
;; of specific cases, interpreting mouse-face'd text in Info and Dired
;; buffers as links. A version of `htmlize.el' named
;; `mkhtml-htmlize.el' is provided with the MKHTML package.
;;
;; Recent versions of `htmlize.el' do not work with `mkhtml.el' - I
;; just have not had a chance to update `mkhtml.el'. For use other
;; than with `mkhtml.el', you can get the latest version of
;; `htmlize.el' from Niksic's web site at
;; `http://fly.srk.fer.hr/~hniksic/emacs/htmlize.el', or perhaps by
;; email (hniksic@xemacs.org).
;;
;; Somewhat related functionality to that of `mkhtml.el' is available
;; with `info2www'. This is a shell script that converts Emacs Info
;; files on the fly to HTML. See
;; `http://www-flash.stanford.edu/info2www/info2www.html'.
;;
;; See also the `makeinfo' utility (Note: texi2html is now obsolete,
;; replaced by Makeinfo). Like mkhtml, makeinfo can convert entire
;; Info files to HTML. The result of converting an Info file with
;; makeinfo is a single HTML file. The result of converting an Info
;; file with `mkhtml-file' is an HTML file for each node in the Info
;; file. To produce a single HTML file with multiple Info nodes using
;; mkhtml, you need to first merge the nodes with the command
;; `Info-merge-subnodes' (see file `info+.el').
;;
;; -------------------------------------------------------------------
;; Main new functions defined here:
;;
;; `mkhtml-any-buffer', `mkhtml-convert-std-filename',
;; `mkhtml-dired', `mkhtml-dired-files', `mkhtml-dired-link-fn',
;; `mkhtml-file', `mkhtml-file-menu-item', `mkhtml-files',
;; `mkhtml-get-basefont-size', `mkhtml-get-css-font-size',
;; `mkhtml-get-font-family', `mkhtml-info-buffer',
;; `mkhtml-info-link-fn', `mkhtml-insert-header',
;; `mkhtml-make-HTML-file-name', `mkhtml-merged-info-buffer',
;; `mkhtml-merged-info-link-fn', `mkhtml-non-file-menu-item',
;; `mkhtml-particular-buffer', `mkhtml-plain-buffer',
;; `mkhtml-plain-link-fn', `mkhtml-save-buffer'.
;;
;; New user options (variables) defined here:
;;
;; `mkhtml-dir-sep-replacement', `mkhtml-file-node-sep',
;; `mkhtml-font-size', `mkhtml-hover-link-bg-color',
;; `mkhtml-hover-link-fg-color', `mkhtml-link-color',
;; `mkhtml-preserve-fonts', `mkhtml-visited-link-color'.
;;
;; Other variable defined here: `mkhtml-version'.
;;
;;
;; ***** NOTE: The following functions defined in `htmlize.el' have
;; been REDEFINED HERE:
;;
;; `htmlize-css-specs' - Adds font-family and font-size too.
;; `htmlize-css-insert-head' - Adds link color too.
;; `htmlize-font-body-tag' - Adds BASEFONT size too.
;; -------------------------------------------------------------------
;;
;;
;; COMMANDS
;;
;; The main commands defined here are `mkhtml-any-buffer',
;; `mkhtml-dired-files' and `mkhtml-file'. These all try to analyze
;; the context (Dired, Info, merged Info) of the buffer or file(s) to
;; determine how to create appropriate HTML links. The most powerful
;; of the commands here is `mkhtml-any-buffer'.
;;
;; If you know the context, you can alternatively use directly one of
;; the individual commands `mkhtml-dired', `mkhtml-info-buffer',
;; `mkhtml-merged-info-buffer', or `mkhtml-plain-buffer'. Each of
;; these uses the generic function `mkhtml-particular-buffer'. You
;; can also use `mkhtml-particular-buffer' to create your own function
;; for creating HTML links in another special context.
;;
;; Loading this file adds to the `Info' menu-bar menu (in Info mode).
;;
;;
;; RELATED FILES
;;
;; The MKHTML package contains these files:
;;
;; `frame-cmds.el': frame and window commands (interactive functions)
;; (uses `frame-fns.el', `icomplete+.el', `strings.el')
;; `frame-fns.el': non-interactive frame and window functions
;; `htmlize.el': create HTML from font-lock'd buffers
;; `icomplete+.el': extends GNU `icomplete.el'
;; `info+.el': extends GNU `info.el'
;; (uses `fit-frame.el', `strings.el', `thingatpt+.el')
;; `misc-fns.el': miscellaneous non-interactive functions
;; `mkhtml.el' (this file): extends `htmlize.el' to treat hyperlinks
;; `fit-frame.el': fits frames to their selected window
;; (uses `misc-fns.el', `strings.el')
;; `strings.el': miscellaneous string functions
;; (uses `thingatpt+.el')
;; `thingatpt+.el' - extends GNU `thingatpt.el'
;;
;; All of these are loaded automatically, when you load `mkhtml.el'.
;; The best way to do that is by adding this to your `~/.emacs' file:
;;
;; (require 'mkhtml)
;;
;; Only `htmlize.el' is strictly required by `mkhtml.el', but
;; `info+.el' is also needed if you want to take advantage of certain
;; functionalities in `mkhtml.el' (see next paragraph). The other
;; files in this package are not strictly required, but they let you
;; take best advantage of `info+.el'.
;;
;; Commands `mkhtml-merged-info-buffer' and `mkhtml-any-buffer',
;; defined here, are able to convert merged Info buffers, which are
;; created by command `Info-merge-subnodes' (see file `info+.el'). A
;; merged Info buffer contains a merge of an Info node with all of its
;; subnodes (perhaps recursively). This can be useful for creating
;; larger HTML files containing several nodes (otherwise, a separate
;; HTML file is created for each node).
;;
;; File `setup-info.el' can be useful if you want to make HTML
;; versions of large Info indexes such as the Emacs manual Key Index.
;; By default, large index menus are not highlighted in Info, so no
;; HTML links are created for them. File `setup-info.el' allows for
;; highlighting larger menus by increasing variable
;; `Info-fontify-maximum-menu-size' to 100000. It also redefines the
;; faces in `Info-title-face-alist'.
;;
;;
;; The following binding is made here:
;;
;; menu bar Tools menu `mkhtml-any-buffer'
;;
;; The following bindings are made here for Info mode
;; (these commands are also added to the Info menu-bar menu):
;;
;; `c' `mkhtml-info-buffer'
;; `w' `mkhtml-file'
;;
;; The command `mkhtml-merged-info-buffer' is added to the Info
;; menu-bar menu for merged Info buffers.
;;
;;
;;
;;
;;
;; CURRENT LIMITATIONS / POSSIBLE IMPROVEMENTS:
;;
;; 1. Perhaps it would be better to use relative paths, not absolute?
;; Or to make it a user choice?
;; 2. No attempt has been made to support other than GNU Emacs
;; (e.g. XEmacs).
;; 3. There is no treatment yet of file names in `Note:' (Info cross
;; references). For example, `Note: (emacs) Minibuffer::' =>
;; a link to "#(emacs) Minibuffer" (merged Info buffer) or to
;; "(emacs) Minibuffer.html" (normal Info buffer).
;; 4. Not yet taking into account `Note: xxx: yyy' (as opposed to
;; `Note: xxx:: yyy'). Currently this links to xxx, not yyy.
;; 5. For a merged info buffer, there is no way of knowing if a link
;; is to elsewhere in the same buffer or not. Most such links
;; are menu items, so they will point to places in the same
;; buffer. But cross refs (`Note:') may point beyond the buffer.
;; Those are not treated differently here - all links are
;; currently made to point to hashes (#) in the same HTML file
;; derived from the same buffer.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Change log:
;;
;; 2007/01/19 dadams
;; Split H REF, so can upload to Emacs Wiki (else detected as spam).
;; 2001/01/05 dadams
;; Version 1.7:
;; Removed note on htmlize.el limitation wrt non-ASCII (apparently fixed).
;; 2001/01/03 dadams
;; Version 1.6: Updated Hrvoje Niksic's address.
;; 2000/11/21 dadams
;; Version 1.4:
;; 1. Added: htmlize-css-insert-head, mkhtml-insert-header,
;; mkhtml-hover-link-bg-color, mkhtml-hover-link-fg-color,
;; mkhtml-link-color, mkhtml-visited-link-color.
;; 2. Use mkhtml-insert-header in: mkhtml-any-buffer, mkhtml-particular-buffer
;; 2000/11/15 dadams
;; Version 1.3: Bug fix -
;; Generating HTML from Dired buffer using mkhtml-any-buffer:was using all the
;; mouse-faced text as link target; now uses just the file name.
;;
;; 2000/08/17 dadams
;; mkhtml-file bug fix: restore `Info-current-node' when done.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:
(and (< emacs-major-version 21) ;; dolist, push
(eval-when-compile (require 'cl))) ;; (plus, for Emacs <20: when, unless)
(require 'dired) ;; dired-get-filename, dired-get-marked-files,
;; dired-replace-in-string
(require 'info+ nil t) ;; (no error if not found): Info-merged-menu, Info-merged-map
(require 'info) ;; Info-select-node, Info-get-token
(require 'mkhtml-htmlize) ;; htmlize-face-boldp, htmlize-face-hash,
;; htmlize-face-italicp, htmlize-face-rgb-background,
;; htmlize-face-rgb-foreground, htmlize-faces-in-buffer,
;; htmlize-face-strikep, htmlize-face-underlinep,
;; htmlize-head-tags, htmlize-make-face-hash, htmlize-method,
;; htmlize-output-type, htmlize-protect-string,
;; htmlize-symbol-face-p, htmlize-version
(require 'easymenu) ;; easy-menu-do-add-item
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst mkhtml-version "1.7"
"This version of the MKHTML package (not just file `mkhtml.el'.")
;; Add command to main menubar menu.
(define-key menu-bar-tools-menu [mkhtml-any-buffer]
'("HTMLize Buffer" . mkhtml-any-buffer))
;; Add commands to the Info menubar menus.
(when (and (boundp 'Info-mode-menu) Info-mode-menu) ; Defined in `info+.el'
(define-key Info-mode-map "c" 'mkhtml-info-buffer)
(define-key Info-mode-map "w" 'mkhtml-file)
(cond ((lookup-key Info-mode-menu [Edit\ Node]) ; Place before Edit Node.
(easy-menu-do-add-item Info-mode-menu
["HTMLize Buffer" mkhtml-info-buffer t]
"Edit Node")
(easy-menu-do-add-item Info-mode-menu
["HTMLize Whole Info File" mkhtml-file t]
"Edit Node"))
(t ; Place before Exit (else place at end).
(easy-menu-do-add-item Info-mode-menu
["HTMLize Buffer" mkhtml-info-buffer t]
"Exit")
(easy-menu-do-add-item Info-mode-menu
["HTMLize Whole Info File" mkhtml-file t]
"Exit"))))
(when (and (boundp 'Info-merged-menu) Info-merged-menu) ; Defined in `info+.el'
(define-key Info-merged-map "c" 'mkhtml-buffer)
(easy-menu-do-add-item Info-merged-menu ; Place before Quit.
["HTMLize Buffer" mkhtml-merged-info-buffer t]
"Quit"))
(defvar mkhtml-file-node-sep "-"
"*String to separate Info file and node names in HTML file names.")
(defvar mkhtml-dir-sep-replacement "--"
"*String to replace `directory-sep-char' in Info node filenames.")
(defvar mkhtml-link-color "#02F"
"*Color to use for unvisited hypertext links.")
(defvar mkhtml-visited-link-color "#808"
"*Color to use for visited hypertext links.")
(defvar mkhtml-hover-link-fg-color "purple"
"*Color to use for foreground when mouse is over hypertext links.")
(defvar mkhtml-hover-link-bg-color "#AFB"
"*Color to use for background when mouse is over hypertext links.")
(defsubst mkhtml-file-menu-item ()
"The file menu item surrounding point, or nil if none.
A file menu item is one that ends in `::', instead of just `:'."
(Info-get-token (point) "\\* " "\\* \\([^:]*\\)::"))
(defsubst mkhtml-non-file-menu-item ()
"The non-file menu item surrounding point, or nil if none.
A non-file menu item is one that ends in `:', instead of `::'."
(Info-get-token (point) "\\* " "\\* [^:]*:[ \t]+\\([^\t,.\n]+\\)[\t,.\n]"))
;; This doesn't lose FILE's extension, like `htmlize-make-file-name'
;; does. This is useful when, e.g., you have `xxx.cc' and `xxx.hh':
;; you get 2 different result files, `xxx.cc.html' & `xxx.hh.html',
;; instead of just having `xxx.html' be overwritten.
(defun mkhtml-make-HTML-file-name (file dir)
"Make absolute HTML file name+path.
FILE names the file without suffix \"\.html\". DIR is the directory."
(expand-file-name (concat (file-name-nondirectory file) ".html")
(or dir (file-name-directory file))))
(defun mkhtml-convert-std-filename (filename)
"Convert FILENAME to an innocuous file name.
This uses `convert-standard-filename', after replacing occurrences of
both `directory-sep-char' and (on Windows only) \"\\\" with
`mkhtml-dir-sep-replacement'.
Note: We need to replace \"\\\" here explicitly because even on
Windows `directory-sep-char' is \"/\", not \"\\\"."
(convert-standard-filename
(dired-replace-in-string
(concat "[" (char-to-string directory-sep-char)
(and (eq system-type 'windows-nt) "\\")
"]")
mkhtml-dir-sep-replacement
filename)))
;;; *** MAIN COMMAND ***
;;; Same as `htmlize-many-files-dired' (see `htmlize.el'), but with:
;;; 1) `mkhtml-file' in place of `htmlize-file'.
;;; 2) interactively, prompts for target HTML-DIR.
;;; 3) HTML-DIR is not optional.
;;;###autoload
(defun mkhtml-dired-files (arg html-dir)
"HTMLize marked files in a Dired buffer. Mouse-face => HTML links.
Create an HTML file corresponding to each of the marked files.
If (prefix) ARG is an integer, use next ARG files, starting at cursor.
If ARG is otherwise non-nil, use current file (at cursor).
HTML-DIR is the directory where the HTML files are created."
(interactive
(list current-prefix-arg
(read-file-name "Directory for HTML file: " nil default-directory)))
(mkhtml-files (dired-get-marked-files nil arg) html-dir))
;;; Same as `htmlize-many-files' (see `htmlize.el'), but with:
;;; 1) `mkhtml-file' in place of `htmlize-file'.
;;; 2) interactively, prompts for target HTML-DIR.
;;; 3) HTML-DIR is not optional.
;;;###autoload
(defun mkhtml-files (files html-dir)
"HTMLize files specified by FILES list. Mouse-face => HTML links.
Create an HTML file corresponding to each of the files in list FILES.
This calls `mkhtml-file' on each of the FILES.
HTML-DIR is the directory where resulting HTML files are created.
Normally, each HTML file is saved to the directory of its source file."
(interactive
(list
(let (file file-list)
;; Check for `ommadawn', because checking against nil doesn't do
;; what you'd expect.
(while (not (eq (setq file (read-file-name "HTML-ize file (RET to finish): "
(and file-list (file-name-directory
(car file-list)))
'ommadawn t))
'ommadawn))
(push file file-list))
file-list)
(read-file-name "Directory for HTML file: " nil default-directory)))
(dolist (file files) (mkhtml-file file html-dir)))
;;; *** MAIN COMMAND ***
;;;###autoload
(defun mkhtml-file (file html-dir)
"Convert FILE to an HTML file in directory HTML-DIR.
\(Source FILE is not altered.)
If FILE is an Info file, then create HTML file for each node in it.
When called interactively, the current buffer is used for FILE."
(interactive
(list nil ; FILE defined in body, below.
(read-file-name "Directory for HTML file(s): " nil default-directory)))
(let ((mode-line-id mode-line-buffer-identification)
info-file)
(when file (set-buffer (find-file-noselect file))) ; Visit FILE.
(setq info-file (save-excursion
(save-restriction
(widen)
(goto-char (point-min))
(and (re-search-forward
"\n\^_\nFile: \\([^,: \t]+\\),?[ \t]+" nil t)
(setq file
(buffer-substring-no-properties
(match-beginning 1) (match-end 1)))))))
(cond (info-file
(let ((curr-node Info-current-node))
(save-excursion
(save-restriction
(widen) ; Make sure we do the whole info file.
(goto-char (point-min))
(while (re-search-forward "\n\^_\nFile: \\([^,: \t]+\\),?[ \t]+" nil t)
(Info-select-node) ; Narrow to just one node.
(mkhtml-any-buffer nil html-dir)
(widen))))
(when curr-node (setq Info-current-node curr-node))) ; Restore origin.
;; Reset this, because `Info-select-node' changes it.
(setq mode-line-buffer-identification mode-line-id))
(t
;; Non-info file.
(unless file ; E.g., interactive call.
(setq file
(file-name-nondirectory (or (buffer-file-name) (buffer-name))))
(find-file-noselect file))
(mkhtml-any-buffer (current-buffer) html-dir)))))
(defun mkhtml-insert-header (buffer)
"Insert HTML file header.
BUFFER is the buffer whose name is used in the HTML tag.
It can be a buffer or a string."
(insert (htmlize-method doctype) ?\n
(format "<!-- Created by mkhtml-%s, using htmlize-%s in %s mode. -->\n"
mkhtml-version htmlize-version htmlize-output-type))
(insert "<html>\n <head>\n <title>"
(htmlize-protect-string
(if (stringp buffer) buffer (buffer-name buffer)))
"\n" htmlize-head-tags)
(htmlize-method insert-head)
(insert " ")
(insert "\n " (or (htmlize-method body-tag) "") "\n \n"))
;;; *** MAIN COMMAND ***
;;;###autoload
(defun mkhtml-any-buffer (&optional buffer html-dir)
"HTMLize BUFFER (default: current). Mouse-face => HTML links.
Save buffer as a new HTML file in directory HTML-DIR.
Certain buffer types are treated specially, in that text with
`mouse-face' property is converted to appropriate HTML links.
This is true of Dired, normal Info, and merged Info buffers.
Dired buffers are treated as by `mkhtml-dired'.
Info buffers are treated as by `mkhtml-info-buffer'.
Merged Info buffers are treated as by `mkhtml-merged-info-buffer'.
A merged Info buffer is one created by `Info-merge-subnodes' (defined
in file `info+.el'), which is a merge of an Info node with all of
its subnodes.
Other buffers are treated as by `mkhtml-plain-buffer': Note that HTML
links resulting from mouse-face'd text there are likely to point
nowhere.
\(Note: Buffers with no mouse-face'd text are treated as by
`htmlize-buffer'.)"
(interactive
(list (buffer-name)
(read-file-name "Directory for HTML file: " nil default-directory)))
(or buffer (setq buffer (current-buffer)))
(save-excursion
(set-buffer buffer)
(run-hooks 'htmlize-before-hook)
(htmlize-make-face-hash (cons 'default (htmlize-faces-in-buffer))))
(save-window-excursion
(let* ((html-buf (get-buffer-create "*html*"))
next-face-change last-face-change next-mouse-change last-mouse-change
face mouse-face face-object no-node-p link link-start link-end this-File)
(set-buffer html-buf)
(erase-buffer)
(buffer-disable-undo)
(mkhtml-insert-header buffer)
(with-current-buffer buffer
(save-excursion
(goto-char (point-min))
(if (setq no-node-p ; Merged Info or non-Info buffer
(not (looking-at "File:[ \t]+\\([^:,\t\n]+\\),?[ \t]*\
Node:[ \t]+[^:,\t\n]+,?")))
(setq this-File (file-name-nondirectory (or (buffer-file-name)
(buffer-name))))
(setq this-File (buffer-substring-no-properties
(match-beginning 1) (match-end 1)))) ; Info
(setq next-face-change (point))
(setq next-mouse-change (point))
(while (not (eobp))
(setq face (get-text-property (point) 'face))
(setq mouse-face (get-text-property (point) 'mouse-face))
(setq last-face-change next-face-change)
(setq last-mouse-change next-mouse-change)
(setq next-face-change (next-single-property-change
(point) 'face nil (point-max)))
(setq next-mouse-change (next-single-property-change
(point) 'mouse-face nil (point-max)))
(setq link-start (point))
(setq link-end next-mouse-change)
(when (consp face) (setq face (car face))) ; Choose the first face.
(when (eq face 'default) (setq face nil))
;;`face' property can contain arbitrary stuff.
(unless (htmlize-symbol-face-p face) (setq face nil))
(when (or mouse-face
(and face (boundp info-file-face) (eq face info-file-face)))
(cond
;; Either sub-node title in merged Info buffer
;; or "File:" zone of normal Info buffer. Ignore the latter.
((not mouse-face)
(let ((menu-item (or (mkhtml-non-file-menu-item)
(mkhtml-file-menu-item))))
;; Sub-node title line in merged Info buffer (from
;;`Info-merge-subnodes', defined in `info+.el').
;; Create anchor.
(when menu-item
(princ (concat "") html-buf))))
;; mouse-face link in EITHER a merged Info buffer (from
;; `Info-merge-subnodes', defined in
;; `info+.el')
;; OR a non-Info buffer.
((and no-node-p (>= (point) last-mouse-change))
(if (memq major-mode '(dired-mode vc-dired-mode))
;; Dired buffer - cf. `mkhtml-dired-link-fn'.
;; Create external link to this line's file.
(princ (concat "")
html-buf)
;; Create internal link (#),
(princ (concat "")
html-buf)))
;; mouse-face link in a normal Info node buffer.
;; Create external link.
((>= (point) last-mouse-change) ; mouse-face, somewhere in a node
(let ((non-file-menu-item (mkhtml-non-file-menu-item))
node-name)
(cond (non-file-menu-item ; menu item that doesn't name a file.
(if (string-match "^dir" this-File)
(princ (concat "")
html-buf)
(princ (concat "")
html-buf)))
((string-match "^(dir)" ; link to the root Info node.
(setq node-name (buffer-substring-no-properties
link-start link-end)))
(princ (concat "")
html-buf))
(t ; other link
(princ (concat "")
html-buf)))))
(t))) ; Face change inside mouse-face: no-op.
(when (and face (>= (point) last-face-change))
(setq face-object (gethash face htmlize-face-hash))
(princ (htmlize-method face-prejunk face-object) html-buf))
(princ (htmlize-protect-string
(buffer-substring-no-properties
(point) (min next-face-change next-mouse-change)))
html-buf)
(when (and face (<= next-face-change next-mouse-change))
(princ (htmlize-method face-postjunk face-object) html-buf))
(when (and mouse-face (<= next-mouse-change next-face-change))
(princ "" html-buf))
(goto-char (min next-face-change next-mouse-change)))))
(insert "\n \n