[心得]用lisp生成网页导航、索引

[b]1 缘起[/b]

用org-mode有日子了，写了些笔记，零星生成了网页，最近学习elisp，用学到的知识，做 了网页的自动生成索引，为代码显示加上漂亮的图片框，自己挺满意，总结一下:)，请看生的index界面。

首先，在~/org/journal/中写笔记，输出目录为~/org_html，在.emacs中加上：

1: (setq org-publish-project-alist
2: '(("myorg"
3: :base-directory "~/org/journal/"
4: :publishing-directory "~/org_html/"
5: :section-numbers nil
6: :table-of-contents nil
7: :style "8: href=\"css/core.css\"
9: type=\"text/css\">")))

[b]2 添加导航

2.1 要求[/b]

用org-export生成的html中没有导航，要给�案鑫募�添加导航是一件无聊的事，我想 让emacs自动扫描目录，找到html文件，自动加上导航

[b]2.2 实现方法[/b]

用org-export生成的html文件都有如下部分：

.. 省略 ...

Re: [心得]用lisp生成网页导航、索引

[b]3 给代码添图片框

3.1 要求[/b]

曾经在 张驰原 的网页看到code周围，有像emacs环境图片，见http://lifegoo.pluskid.org/wiki/EmacsSmartCompile.html，很喜欢，也想弄一下。

因此实现方式由以下步骤组成：

* 分解code的底图，分成6个独立的小图片
* 定义6个图片的css
* 在html文件中找到"

找到

 5:      (sgml-skip-tag-backward 1)

 6:      (beginning-of-line)

 7:      (backward-char 1)

 8:      (beginning-of-line)

 9:      (setq text (buffer-substring-no-properties (1+ (point)) (+ (point) 4)))

10:      (if (not (string= "div" text))

11:          (progn

12:            (insert (concat "
\n"

13:                            "
\n"

14:                            "
\n"

15:                            "
\n"

16:                            "
\n"

17:                            "
\n"

18:                            "
"))

19:            (search-forward "

Re: [心得]用lisp生成网页导航、索引

[b]4 根据图片大小，�c改图片html[/b]

[b]4.1 要求[/b]

org-export生成的img是这样的：




没有定义图片的��度，我需要根据图片大小添加width，同时去除图片外的。

* 如图片��度是430，那么�c改成的img




如图片太��，大于800，如图片��度1600，那么�c改成的img




[b]4.2 实现方法[/b]

* 找到html代码中的img，取出图片文件名
* 用identify -format "%w" filename，得到图片��度
* ��度大子800，用replace-match，�c改width＝"800"
* ��度小于800，用replace-match，�c改width＝"实际��度"

[b]4.3 �c改图片html[/b]

1: ;; image width
2: (goto-char (point-min))
3: (while (re-search-forward "" nil t)
4: (setq name (match-string-no-properties 1))
5: (setq string
6: (shell-command-to-string
7: (concat "identify -format \"%w\" " org_html_path name)))
8: (setq width (string-to-number string))
9: (if (> width 800)
10: (replace-match "")
11: (replace-match ""))
12: (setq changedItems
13: (cons (concat "tranlate " (buffer-file-name) "'s image at " (number-to-string (line-number-at-pos)))
14: changedItems)))

* shell-command-to-string，在elisp中调用shell命令
* (setq changedItems (cons (concat …，添加�c改记录

待续...

--

※ 来源:・水木社区 http://newsmth.net・