| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[873:名無しさん＠Ｅｍａｃｓ (2001/07/09(月) 21:15)]
browse-url-*は、みんな(lambda (url &optinal new-window) ...)みたいなので、
(defun navi2ch-article-show-url ()
"url を表示して、その url を見るか kill ring にコピーする"
(interactive)
(let ((url (navi2ch-article-to-url navi2ch-article-current-board
navi2ch-article-current-article)))
(message "c)opy v)iew? URL: %s" url)
(let ((char (read-char)))
(cond ((eq char ?c) (funcall 'kill-new (navi2ch-article-show-url-subr)))
((eq char ?v) (funcall 'browse-url (navi2ch-article-show-url-subr)
browse-url-new-window-p))))))
でもいいけど、
;;; でも、browse-url.el内で閉じてないのでこれは美しくない。
"-noraise"は>>871のように書き換えないと無理だな。
elispが&optionalが渡されなかった時、unboundにするか、default設定できたら、
browse-url-*の仕様実現も可能なのだが…
[874:名無しさん＠お腹いっぱい。 (2001/07/09(月) 22:00)]
>>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)
[875:名無しさん＠お腹いっぱい。 (2001/07/09(月) 22:52)]
list に表示されない板を見るにはどうすればいいの？
具体的には MLB実況板 http://green.jbbs.net/study/222/michidare.html
を見たいんです。
[876:875 (2001/07/10(火) 07:19)]
875です。過去ログ読んできた。
JBBS は .dat が直接開けないから、Navi2ch は利用できないてこと？
[877:名無しさん＠お腹いっぱい。 (2001/07/14(土) 14:21)]
あげ
[878:名無しさん＠お腹いっぱい。 (2001/07/14(土) 14:41)]
emacs-21 でモナーフォントを使っていると、なぜか
半角文字 (-mona-*-iso8859-1) だけ 1ピクセル上にずれない?
これがときどき気になるんだけど、なぜだろう。
それから、navi2ch を閉じるときなどに「セーブしたいけど
コード体系どれにする」と必ず聞かれるが、これをやめさせる
方法はないでしょうか。
[879:名無しさん＠お腹いっぱい。 (2001/07/16(月) 17:44)]
>>878
monafonts は何 pt のを使っていますか?
[880:名無しさん＠お腹いっぱい。 (2001/07/16(月) 19:54)]
16ptっす。
[881:879 (2001/07/16(月) 22:31)]
>>878
あいにく 14pt を使っているので 16pt のずれに関してはわかりません。
セーブ時の文字コードは navi2ch.el の navi2ch-save-info に
1行追加で回避可能です:
(defun navi2ch-save-info (file info)
(let ((dir (file-name-directory file)))
(unless (file-exists-p dir)
(make-directory dir t)))
(with-temp-file file
(let ((standard-output (current-buffer)))
+ (setq buffer-file-coding-system 'shift_jis-unix)
(prin1 info))))
coding system の名前は emacs の version によってかなり違うので、
このままでは本家に取り込んでもらえないかもです。
[882:879 (2001/07/16(月) 22:44)]
つづけてですみません。coding system 名は、せっかく定義されてるので
+ (setq buffer-file-coding-system navi2ch-net-coding-system)
の方がいいですね。
read.cgi ver5.26+ (01/10/21-)