| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[871:名無しさん＠Ｅｍａｃｓ (2001/07/09(月) 16:23)]
> あと、ネスケ使ってるんで、browse-url の引数に browse-url-new-window-p
> を渡してもらえると嬉しかったりするんですが、これは browse-url のインター
> フェイスがヘタれなような…
elispの&optionalにはdefaultの値設定できないから、
browse-url-netscapeは仕様自体おかしいわな。
browse-url-netscape書き換えたよ。
mail-lib/browse-url.el:
<(defcustom browse-url-no-raise-p nil
< "なんだーかんだー"
< :type 'boolean
< :group 'browse-url)
> (if new-window '("-noraise"))
< (if browse-url-no-raise-p '("-noraise"))
> (if new-window ",new-window")
< (if browse-url-new-window-p ",new-window")
(setq browse-url-no-raise-p t)
(setq browse-url-new-window-p t)だ。
どうするのが良いかな〜。
[872:名無しさん＠お腹いっぱい。 (2001/07/09(月) 19:46)]
>>871
マジかよ…つーか、開発チームは今まで誰も気付いていなかったのだろうか…
[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っす。
read.cgi ver5.26+ (01/10/21-)