弄了个htmlize的小扩展

时间：2006-05-02 来源：pluskid

htmlize.el 是 Emacs 的一个很不错的插件，他可以根据你当前的 color-theme 的设定把代码输出为 html 格式的。但是他输出的 html 是整个 html 文件，包括文件头等很多信息，不方便直接插入 blog 或者 wiki 之类的允许不完整的 html 语法的地方。所以我对它做了一个小的外包装，剔除了它输出的头部和尾部，让他可以嵌入 blog ，并且，我发现在 blog 里面即使用了 <pre> 标签，换行符好像还是被忽略，所以我还在每行后面加了 <br> 来换行。另外，我还添加了 margin 的属性，让他显示得好看一点。下面就是他的内容，这个就是用他自身来处理的效果哟：

(defun kid-htmlize-buffer ()
  (interactive)
  (setq htmlize-output-type 'font)
  (switch-to-buffer (htmlize-buffer))
  (goto-char 0)
  (kill-line 6)
  (replace-regexp (concat "^.*<body text=\\\""
                          "\\([^\"]*\\)\\\""
                          " bgcolor=\\\"\\([^\"]*\\)"
                          "\\\">.*\n.*<pre>") 
                  (concat "<pre style=\"color: \\1;"
                          "background-color: \\2;"
                          " margin-left: 5%;"
                          " margin-right: 5%;"
                          " margin-top: 2%;"
                          " margin-bottom: 2%;\">"))
  (next-line)
  (replace-regexp "$" "<br>")
  (end-of-buffer)
  (previous-line 2)
  (kill-line 2))

Wed May 3 22:15:31 CST 2006
我发现这并不是我想要的，最常用的事实上是对于 region 的操作，于是我做了一点小修改：

;; author: pluskid
;; 使用 htmlize.el 把 buffer 格式化，然后去掉首尾部分，再
;; 稍做加工，让它好嵌入 blog 或者 wiki 等允许使用部分 html
;; 的地方。
(defun kid-htmlize-post-process ()
  (goto-char 0)
  (kill-line 6)
  (replace-regexp (concat "^.*<body text=\\\""
                          "\\([^\"]*\\)\\\""
                          " bgcolor=\\\"\\([^\"]*\\)"
                          "\\\">.*\n.*<pre>") 
                  (concat "<pre style=\"color: \\1;"
                          "background-color: \\2;"
                          " margin-left: 5%;"
                          " margin-right: 5%;"
                          " margin-top: 2%;"
                          " margin-bottom: 2%;\">"))
  (next-line)
  (replace-regexp "$" "<br>")
  (end-of-buffer)
  (previous-line 2)
  (kill-line 2))

(defun kid-htmlize-buffer ()
  (interactive)
  (let ((old-output-type htmlize-output-type))
    (setq htmlize-output-type 'font)
    (switch-to-buffer (htmlize-buffer))
    (kid-htmlize-post-process)
    (setq htmlize-output-type old-output-type)))
(defun kid-htmlize-region (begin end)
  (interactive "r")
  (let ((old-output-type htmlize-output-type))
    (setq htmlize-output-type 'font)
    (switch-to-buffer (htmlize-region begin end))
    (kid-htmlize-post-process)
    (setq htmlize-output-type old-output-type)))

本来 htmlize.el 还支持一次处理很多文件之类的操作，但是那些对于这个目前还是不太实用的。 :)