(defun native2ascii (&optional start end)
  (interactive 
   (list 
    (if (and transient-mark-mode mark-active)
 (region-beginning))
    (if (and transient-mark-mode mark-active)
 (region-end))))
  (shell-command-on-region start end "native2ascii.exe" nil t))

(defun ascii2native (&optional start end)
(interactive
(list
(if (and transient-mark-mode mark-active)
(region-beginning))
(if (and transient-mark-mode mark-active)
(region-end))))
(shell-command-on-region start end "native2ascii.exe -reverse" nil t))

(if (not (member '("-*-courier new-normal-r-*-*-16-*-*-*-c-*-fontset-chinese"
. "fontset-chinese") fontset-alias-alist))
(progn
(create-fontset-from-fontset-spec
"-*-courier new-normal-r-*-*-14-*-*-*-c-*-fontset-chinese,
chinese-gb2312:-*-新宋体-normal-r-*-*-16-*-*-*-c-*-gb2312*-*,
chinese-big5-1:-*-MingLiU-normal-r-*-*-16-*-*-*-c-*-big5*-*,
chinese-big5-2:-*-MingLiU-normal-r-*-*-16-*-*-*-c-*-big5*-*" t)
(setq default-frame-alist
(append
'((font . "fontset-chinese"))
default-frame-alist))
)
)

(add-to-list 'auto-mode-alist '("\\.pdf\\'" . no-pdf))
(defun no-pdf ()
"Run pdftotext on the entire buffer."
(interactive)
(let ((modified (buffer-modified-p)))
(erase-buffer)
(shell-command
(concat "pdftotext " (buffer-file-name) " -")
(current-buffer)
t)
(set-buffer-modified-p modified)))

汉化pivot并不很困难, 只要在langs下面加入pvl_chs.php即可, 就是修改中文的搜索比较麻烦一点, 我改了一个作到了简单的搜索, 不需要数据库的支持,并且trimtext也有点问题需要修改一下, 去掉entity和unentity的部分

分词相关网站 http://www.wespoke.com/

还发现要把php中的short_open_tag 关掉, 不然对有<?XML的生成的页面就无法正常显示

Emacs 的中文字体设定

这就是我的 emacs 中文设置。以后有时间再解释。

~/.Xdefaults 里：

Emacs.Font: fontset-song
Emacs.FontsetList: song kai hei lucida
Emacs.Fontset-0:-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-song,\
chinese-gb2312:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,\
mule-unicode-0100-24ff:-misc-fixed-medium-r-normal--16-*-*-*-*-*-iso10646-1,\
korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*,
chinese-cns11643-5:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,\
chinese-cns11643-6:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,\
chinese-cns11643-7:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0

Emacs.Fontset-1:-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-kai,\
chinese-gb2312:-*-simkai-medium-r-*--16-*-*-*-*-*-gbk-0,\
mule-unicode-0100-24ff:-misc-fixed-medium-r-normal--16-*-*-*-*-*-iso10646-1

Emacs.Fontset-2:-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-hei,\
chinese-gb2312:-*-simhei-medium-r-*--16-*-*-*-*-*-gbk-0,\
mule-unicode-0100-24ff:-misc-fixed-medium-r-normal--16-*-*-*-*-*-iso10646-1

Emacs.Fontset-3:-adobe-courier-medium-r-*-*-14-*-*-*-*-*-fontset-lucida,\
ascii:-b&h-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-iso8859-1,\
chinese-gb2312:-*-simsun-medium-r-*--16-*-*-*-*-*-gbk-0,\
mule-unicode-0100-24ff:-misc-fixed-medium-r-normal--16-*-*-*-*-*-iso10646-1

~/.emacs 里:

(set-keyboard-coding-system 'chinese-iso-8bit)