| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[434:(not 1) (2001/03/16(金) 15:58)]
書き忘れ
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010316.tar.gz
[435:名無しさん＠ＸＥｍａｃｓ (2001/03/16(金) 18:19)]
>>434
> 書き忘れ
> http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010316.tar.gz
これ、駄目。
.emacsのなかで、wrong-type-argumentがでます。
[436:431 (2001/03/17(土) 01:00)]
>>432
> その通りに書いたら、非常に見映が悪くなったぞ。
ごめん、どっち？
.Xdefaultsに書く方？
それともlispで設定する方？
前者なら、ある意味当然。
XEmacs上の全部のフォントがmonaになるのだから。
それが嫌なので、articleモードのレス部分のみフォントを変えよう、
というのが後者。
どちらにしてもAAはずれずに表示されるよ。
前述のとおり、見られないスレッドはあるにせよ。
コレさえどうにかなればなあ。
[437:431 (2001/03/17(土) 01:33)]
ごめん、多分解るだろうと思うけど、念のため追記。
> 前者なら、ある意味当然。
> XEmacs上の全部のフォントがmonaになるのだから。
> それが嫌なので、articleモードのレス部分のみフォントを変えよう、
> というのが後者。
だから、後者の設定を書くときには、リソース
Emacs.default.attributeFontをmonaにしちゃ*ダメ*なの
です。
もしこの辺りのところが上手く伝わっていなかったのなら、
これでもう一度試してみてください。フォントを変える部
分は最小限に抑えているので、そんなに変になることはな
いと思うのだけれど。
[438:名無しさん＠お腹いっぱい。 (2001/03/17(土) 02:42)]
はじめて
「あぼ〜ん!」にあたった。
うーん、なかなかアレだな。
[439:432 (2001/03/17(土) 08:40)]
もちろん、elispニダ
例えば、モナフォント使わなければ、http://hoge は、強調されて
表示されるんだが、使うと、なんか、丸文字の線の薄いような感じで表示
されてしまいます。
>>438
ハングル板いってみそ。毎日だ(藁
人権板、ちくり板でもぼちぼちかな？
ところで、proxy制限されているところって、Cookie必要なんですが、
nav2chは対応してるんでせうか？
[440:(not 1) (2001/03/17(土) 16:50)]
・>>435 のバグを修正
・navi2ch-net-check-margin だけよんだらすぐにチェックするように
です。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010317.tar.gz
>>439
proxy 制限の Cookie って
Cookie: NAME=hoge; MAIL=fuga
(hoge と fuga はその時入れた名前とメール)
ってやってんですけどこれでいいんですよね。一応確認。
global bookmark の日本語が文字化けた。何故？
しかもその後 Meadow が coding-system 音痴になるし・・・。
あとで調べとくか。
[441:あげ (2001/03/18(日) 08:47)]
>>440
> global bookmark の日本語が文字化けた。何故？
> しかもその後 Meadow が coding-system 音痴になるし・・・。
> あとで調べとくか。
あぼーんも化け化け
[442:名無しさん＠お腹いっぱい。 (2001/03/18(日) 23:13)]
ttp://〜
って書きかたのやつも認識するようなのを
発見して感動した :-)
[443:431 (2001/03/18(日) 23:26)]
>>431 なおった。
;; 記事に face をつける
(defun set-mona-face (beg end)
(put-text-property beg (point-max)
'face 'mona-face))
>>432
なるほど。
じゃあ、こんなんでどう？
(defvar my-navi2ch-mona-enable t
"mona フォントを使用するかどうか")
(defvar my-navi2ch-mona-enable-board-list nil
"mona フォントを使用する板のリスト.")
(defvar my-navi2ch-mona-disable-board-list '("unix" "linux")
"mona フォントを使用しない板のリスト")
;; Link 以外を mona-face にする
(defun my-navi2ch-put-mona-face (beg end)
(let (p)
(save-excursion
(goto-char beg)
(while (not (eq (point) (point-max)))
(setq p (next-single-property-change (point) 'link
(current-buffer) (point-max)))
(unless (get-text-property (point) 'link)
(put-text-property (point) (1- p)
'face 'my-navi2ch-mona-face))
(goto-char p)))))
(defun my-navi2ch-article-arrange-message (beg end)
(let ((id (cdr (assq 'id navi2ch-article-current-board))))
(when (or (member id my-navi2ch-mona-enable-board-list)
(and (not (member id my-navi2ch-mona-disable-board-list))
my-navi2ch-mona-enable))
(my-navi2ch-put-mona-face beg end))))
(add-hook 'navi2ch-article-arrange-message-functions
'my-navi2ch-article-arrange-message)
read.cgi ver5.26+ (01/10/21-)