Navigator for 2ch

>>637
GNU emacs21 では fontset を手動で作ってやる必要があると思われ。
Linux ではこれで動いている。以下長くてスマソ。

;;
;; mona fontset を作る
;;
(if window-system
(progn
;; ↓次行末尾の -mona14 が fontset の名前になる
(new-fontset "-*-fixed-medium-r-normal--14-*-*-*-*-*-fontset-mona14"
'((ascii
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-iso8859-1")
(latin-iso8859-1
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-iso8859-1")
(katakana-jisx0201
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-jisx0201.1976-0")
(latin-jisx0201
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-jisx0201.1976-0")
(japanese-jisx0208-1978
. "-mona-gothic-medium-r-normal--14-110-75-75-p-120-jisx0208.1990-0")
(japanese-jisx0208
. "-mona-gothic-medium-r-normal--14-110-75-75-p-120-jisx0208.1990-0")
(japanese-jisx0212
. "-mona-gothic-medium-r-normal--14-110-75-75-p-60-jisx0201.1976-0")
))))

;;
;; navi2ch with monafont
;;

;; 上の fontset 名と末尾を合わせる
(setq navi2ch-mona-font "-*-*-*-*-normal--14-*-*-*-*-*-fontset-mona14")

(add-hook 'navi2ch-article-arrange-message-hook
'navi2ch-mona-arrange-message)
(setq navi2ch-mona-enable t)
(require 'navi2ch-mona)
(require 'navi2ch)