■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50

レス数が950を超えています。1000を超えると表示できなくなるよ。

Navigator for 2ch

1 ：名無しさん＠お腹いっぱい。 ：2000/12/06(水) 01:15
WindowsとかMac OSとかには2ch用専用アプリがあるけど
UNIXにはない。ということで作ってます。
http://zurubon.virtualave.net/source/113.jpg

GTK--,wgetが必須なのでインストールしといてください。
http://gtkmm.sourceforge.net/


593 ：名無しさん＠Ｅｍａｃｓ ：2001/05/06(日) 07:56
突然、スレが読めなくなった。
でも ~/.navi2ch/history.txt を消したら直った。
どうもファイルが壊れていたらしい。気付くまでウン時間。鬱だ。

あ、010501 版です。


594 ：ロッソ＠ＸＥｍａｃｓ ：2001/05/06(日) 10:37
>>593
> でも ~/.navi2ch/history.txt を消したら直った。

　〃
（中」中）ノ　僕なんか、 rm -rf .navi2ch しちゃいました。こんど同様の症状になったら、history.txt だけ消して試してみます。


595 ：(not 1) ：2001/05/07(月) 00:53
・>>577 の patch を当てた。
・expire を list-mode からもできるようにした。
・ユーザ変数を defcustom 化した。
・いくつかバグ潰し

です

http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010504.tar.gz

ユーザ変数は navi2ch-var.el で全部定義するようにしてみました。
興味のある人は覗いてみて下さい。
M-x set-variable や、M-x customoize-group でも設定できるようになったので結
構ユーザにやさしくなった・・・はずです。

expire を list-mode とboard-mode で 'e' にバインドしました。
それと、navi2ch 起動時に毎回 expire するなら
(add-hook 'navi2ch-list-after-sync-hook 'navi2ch-list-expire-all)
でやれると思います(未確認) >>567 さん。

>>578-582
なんか微妙に荒れてるし。
でもこれで 2ch らしい立派なスレッドになった気もする :-)

>>583-588
rpm は良く判らないですが、解決したみたいでよかったです。

>>591
> 引用の部分に色が付かないのは私だけでしょうか?
俺も付かないです。
付けようと思ったんですけど mona-font とどう共存させればいいのか判んなかった
んで今んとこは保留です。

>>592
> ブックマークに登録するときは、何かメッセージを返して欲しい。
やっときました。

>>593
> 突然、スレが読めなくなった。
> でも ~/.navi2ch/history.txt を消したら直った。
多分直ったと思います。

596 ：431 ：2001/05/07(月) 05:06
ども、navi2ch-mona.el のもとになったモノを書いた者です。

> 付けようと思ったんですけど mona-font とどう共存させ
> ればいいのか判んなかったんで今んとこは保留です。

こんな風にしてみましたけど、如何でしょ。
# uuencodeがウザがられるかもしれんので、一応sageます。

begin 644 diff.gz
M'XL(`/F=]3H"`^U6W6_;-A!_MO^%OC"N.DN.F>C#3F(%+8INR)!T*5#TI4"W
M%K1,R5PD2J6HQ-G#_O8=2=FR_!%G&`;L80(,R'='WMWO[G>Z&8MCA".!.+EG
M?C3'KN>.W=%)+EARNI01(5F4TA.:;ICML.@.!H-G7M:YS3FZ)8\(G2/7#;UQ
MZ%\@WW6]+L;XL*?6\2`<^V%P9HX/VH\.R?='0]^?("U0]VM!X")XQUT$CYU2
MB6R[0':1,RX=Q]%B4#!>4@&Z:":03<KR.^K/B"2(I*P$.]3[E?=6QAN!XI)*
MG#)^APN1%W#-(VH\=(]WGRDJB2,F*8Y)1-?M]_@@0A">4)S1LB3)^@GG>:F9
M#';A%GBC8>"MX19XXV$0>`UNK:>?Y559Q]V?LV2>PD_NL*M$"H#F/"+@?2YE
M$9Z>]I"=$0EYE5(PGB#/J1]]'L"R9S2N.'H:+GM*$T3YS*!KE^2>8KJ(*E&R
MG"\1UU)!E:-(-G*-K1#Y`Y8YJ!/0H-9UVB3)01O-B:CQQ!GCSIK^8<Y2B$.H
MXA,!@<:Y>"!BMA4X!$V4=^6*+A!G*9+JGHZM4I)T(9NNJ:&!:!CG"AU76W8Z
MRJ/1093KTKZIPEZG2FW@/5;@`LA[\+UG]&'Y!^#-52K+OS_DA;J,I`B2!'>\
MRJ94F(KU7ECO7DU>I9:X.+;NCEZ^L-\9(Y!;/Y^=OG6NKJUODS^M;Z#IK7?J
MM(HQ)QG=;O4$Z`3:F`ICT(I&Y3)[SD3+(.(GQEFM/CC+:KO.)VCB6V@'?P1C
M)73/0Y@KAP;9\FQ[BOE!Z`7[I]C8'9Z-#!=5$P,6JHA-D_37;]>Z;>II^L4Y
MEZAM#!)5MNX1NKQ$O\#$4F5R;P+7$E`>M+I15^^]-;'N0+S=--I.M:\A8SV`
M-ECX-)%JK6Z%PEEEL.05ST%.\VGA.&O9*32^J\G'%6U*8$C:`*.<P(!<SC_(
M\6\]?37`-3V7<9*%ZK7F&KOB*0Q?2(EN$=?X-)<XK7KLHGEM;7L8%4[W4&!M
MBJ]JU$:F@;DP?%=M:5JIGN+_9BNM>F9X]:/U_O+S3[];8RNUKBS+NK&L:WDS
M_+_!3!W_:8/IRO\G&NQ90_B>B/*)(5RK#P[AVFYSFSR'C?#@$-YU-@A'YR%L
M//M7R5$P]$<7:ZND$HQ'S4H4RL<"4(.N-<N%EB4BKXJMS['FB=ELHJJ4>79@
M2=!;1N_KES=`DJ,9$.2W+U]7[RZ>P.M+%UZQ>IDH_<F@9PZI<?['[4?-N`]O
MQ^/A]>N+U_K+>]S$;%8O(]D7L=X5+H':RWT38&1D"OU9LW4CD]H,PV9HOMJ&
:LBQ&=DR)K`0%+PN:D:ATNG\!-.K(VY(,```3
`
end


597 ：567 ：2001/05/07(月) 07:30
>>595
> expire を list-mode とboard-mode で 'e' にバインドしました。

どうもありがとうございます。m(__)m

ただ、list mode で 'e' とすると「そんなファイルやディレクトリは
ありません: /home/xxxx/.navi2ch/hoge.2ch.net/hogehoge/」と
怒られますです。
たぶん、~/.navi2ch/ にすべての板（ディレクトリ）が存在すると
仮定していて、行ったことがない板のディレクトリまで自動的に見に
行ってるんじゃないかと思いますです。


598 ：570-1 ：2001/05/07(月) 10:34
# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
navi2ch-mona-arrange-message()
run-hooks(navi2ch-mona-arrange-message)
# (unwind-protect ...)
(save-restriction (narrow-to-region beg end) (let (...) (when ... ... ...)) (run-hooks (quote navi2ch-article-arrange-message-hook)))
)
# (unwind-protect ...)
(save-excursion (save-restriction (narrow-to-region beg end) (let ... ...) (run-hooks ...)))
)
# bind (end beg)
navi2ch-article-arrange-message(47 103)
# bind (p)
(let ((p ...)) (insert (cdr ...) "\n") (navi2ch-article-set-link-property p (point)) (navi2ch-article-arrange-message p (point)))
)
# bind (alist num)
navi2ch-article-insert-message(1 ((subject . "*BSDニュース＠２ｃｈ") (data . "皆さんが見かけたBSDにまつわるニュース、記事、話題など、お気軽にお寄せください。\nリリース速報などもどうぞ。") (date . "2000/06/24(土) 22:37") (mail . "") (name . "名無しさん")))
(progn (when (stringp alist) (setq alist ...)) (setcdr x (navi2ch-put-alist ... ... alist)) (navi2ch-article-insert-message num alist))
)
(if (cond (navi2ch-article-hide-mode ...) (navi2ch-article-important-mode ...) (t ...)) (progn (when ... ...) (setcdr x ...) (navi2ch-article-insert-message num alist)))
)
(when (cond (navi2ch-article-hide-mode ...) (navi2ch-article-important-mode ...) (t ...)) (when (stringp alist) (setq alist ...)) (setcdr x (navi2ch-put-alist ... ... alist)) (navi2ch-article-insert-message num alist))
)
# bind (alist num)
(let ((num ...) (alist ...)) (when (cond ... ... ...) (when ... ...) (setcdr x ...) (navi2ch-article-insert-message num alist)))
)
(while --dolist-temp--100928 (setq x (car --dolist-temp--100928)) (let (... ...) (when ... ... ... ...)) (setq --dolist-temp--100928 (cdr --dolist-temp--100928)))
)
# bind (x --dolist-temp--100928)
(let ((--dolist-temp--100928 list) x) (while --dolist-temp--100928 (setq x ...) (let ... ...) (setq --dolist-temp--100928 ...)) nil)
)
# (catch --cl-block-nil-- ...)
(catch (quote --cl-block-nil--) (let (... x) (while --dolist-temp--100928 ... ... ...) nil))
)
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
)
(block nil (let (... x) (while --dolist-temp--100928 ... ... ...) nil))
)
(dolist (x list) (let (... ...) (when ... ... ... ...)))
)
# bind (imp hide len)
(let ((len ...) (hide ...) (imp ...)) (dolist (x list) (let ... ...)) (message "inserting current messages...done"))
)
# bind (range list)
navi2ch-article-insert-messages(((1

599 ：570-2 ：2001/05/07(月) 10:35
# bind (buffer-read-only)
(let ((buffer-read-only nil)) (erase-buffer) (navi2ch-article-insert-messages list range))
)
(progn (setq list (if ... ... ...)) (unless first (navi2ch-article-save-number)) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let (...) (erase-buffer) (navi2ch-article-insert-messages list range)) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list)
)
(if (or (and first ...) state) (progn (setq list ...) (unless first ...) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let ... ... ...) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list))
)
(when (or (and first ...) state) (setq list (if ... ... ...)) (unless first (navi2ch-article-save-number)) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let (...) (erase-buffer) (navi2ch-article-insert-messages list range)) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list)
)
# bind (state old-size file url navi2ch-net-force-update board article range list)
(let* ((list navi2ch-article-message-list) (range navi2ch-article-view-range) (article navi2ch-article-current-article) (board navi2ch-article-current-board) (navi2ch-net-force-update ...) (url ...) (file ...) (old-size ...) state) (when first (setq article ...)) (let (...) (setq article ... navi2ch-article-current-article article state ...)) (when (or ... state) (setq list ...) (unless first ...) (setq navi2ch-article-hide-mode nil navi2ch-article-important-mode nil) (let ... ... ...) (setq navi2ch-article-message-list list) (navi2ch-article-load-number) (navi2ch-article-save-info) (navi2ch-article-set-mode-line) list))
)
(progn (let* (... ... ... ... ... ... ... ... state) (when first ...) (let ... ...) (when ... ... ... ... ... ... ... ... ... list)))
)
(if (not navi2ch-article-from-file-p) (progn (let* ... ... ... ...)))
)
(when (not navi2ch-article-from-file-p) (let* (... ... ... ... ... ... ... ... state) (when first ...) (let ... ...) (when ... ... ... ... ... ... ... ... ... list)))
)
# bind (first force)
navi2ch-article-sync(nil first)
(let ((state ...)) (if state (progn ... t) nil))

600 ：570-3 ：2001/05/07(月) 10:36
(if (get-buffer buf-name) (progn (switch-to-buffer buf-name) (navi2ch-article-sync force)) (switch-to-buffer (get-buffer-create buf-name)) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article navi2ch-article-from-file-p nil) (when navi2ch-article-auto-range (if ... ... ...)) (let (...) (if state ... nil)))
)
# bind (buf-name)
(let ((buf-name ...)) (if (get-buffer buf-name) (progn ... ...) (switch-to-buffer ...) (navi2ch-article-mode) (setq navi2ch-article-current-board board navi2ch-article-current-article article navi2ch-article-from-file-p nil) (when navi2ch-article-auto-range ...) (let ... ...)))
)
# bind (number force article board)
navi2ch-article-view-article(((time . "Mon, 07 May 2001 01:20:20 GMT") (nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((subject . "ブラウザなんとかしろ。") (response . "126") (artid . "969539141")) nil)
(setq state (navi2ch-article-view-article board article force))
)
# bind (state)
(let (state) (setq state (navi2ch-article-view-article board article force)) (save-excursion (set-buffer buf) (let ... ...)))
)
(progn (navi2ch-history-add board article) (dolist (x ...) (when x ...)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (setq state ...) (save-excursion ... ...)))
)
(if article (progn (navi2ch-history-add board article) (dolist ... ...) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let ... ... ...)) (message "can't select this line!"))
)
# bind (buf board article item)
(let* ((item ...) (article ...) (board ...) (buf ...)) (if article (progn ... ... ... ... ...) (message "can't select this line!")))
)
# bind (force)
navi2ch-bm-select-article(nil)
(if (and (navi2ch-article-current-buffer) (string= ... ...) (get-buffer-window ...)) (let (...) (select-window ...) (condition-case nil ... ...) (select-window win)) (navi2ch-bm-select-article force))
)
# bind (article)
(let ((article ...)) (if (and ... ... ...) (let ... ... ... ...) (navi2ch-bm-select-article force)))
)
# bind (force way)
navi2ch-bm-select-article-or-scroll(up nil)
# bind (force)
navi2ch-bm-select-article-or-scroll-up(nil)
# bind (command-debug-status)
call-interactively(navi2ch-bm-select-article-or-scroll-up)
# (condition-case ... . error)
# (catch top-level ...)

601 ：毎度、rpmであります。 ：2001/05/07(月) 12:26
http://navi2ch.tripod.co.jp/navi2ch-010504-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010504-1.nosrc.rpm

602 ：名無しさん＠お腹いっぱい。 ：2001/05/07(月) 14:26
>>601
毎度！

603 ：名無しさん＠お腹いっぱい。 ：2001/05/08(火) 00:39
っていうか、すごいね…
２chでこんな建設的なことをしているなんて…

604 ：431 ：2001/05/08(火) 01:35
>>570

それってもしかして、>>443を使ってない？
もう取り込まれてるからこれでいい筈。

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


605 ：564 ：2001/05/08(火) 07:26
>>564 だけど、「ブラウザ変ですよん」の件は、
プロキシでRefererを通すようにしたら解決。
w3mでも同じプロキシ使ってたのでダメだったのだ。

navi2chとは全然関係ないとこで失敗してた。
おさわがせしてすんまそん。


606 ：(not 1) ：2001/05/08(火) 22:49
・引用に色が付くようにした
・list-mode でちゃんと expire できるように
・article-mode で微妙に速く(引用の色付けで逆に遅く)なった・・・かも

です。

http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010508.tar.gz

>>596 さん毎度どうもです。
patch 当ててから少し変更加えときました。
この引用の色付けですごい遅くなってしまった人とかっていますか？
あれだったら hook に引っかけるようにしますけど。
それと、navi2ch-article-enable-fill に何か板を登録してる人っているんでしょ
うか？
いなければ、その辺のコードを取り除いちゃおうと思うんですが。

>>597
> 仮定していて、行ったことがない板のディレクトリまで自動的に見に
> 行ってるんじゃないかと思いますです。
はい、その通りです(汗)。
直しました。

>>598-600
>>604(431) さんの書いたように設定を変えてみて下さい。
;; >>604 さんどうもです。
っていうか、俺がちゃんと >>570 を見とけばよかったですね。
;; backtrace 見てもあんま意味が分からんかった(汗)。



607 ：名無しさん＠お腹いっぱい。 ：2001/05/09(水) 01:54
ax ;


608 ：名無しさん＠お腹いっぱい。 ：2001/05/09(水) 01:55
sage

609 ：名無しさん＠お腹いっぱい。 ：2001/05/09(水) 02:01
aa

610 ：名無しさん＠お腹いっぱい。 ：2001/05/09(水) 02:02
なんの試験

611 ：遅れました。 ：2001/05/09(水) 15:33
http://navi2ch.tripod.co.jp/navi2ch-010508-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010508-1.nosrc.rpm

612 ：名無しさん＠Ｅｍａｃｓ ：2001/05/09(水) 15:58
どうもです

613 ：611＠Ｅｍａｃｓ ：2001/05/09(水) 17:19
>>612
早っ(藁

614 ：こんなんどう？ ：2001/05/10(木) 00:23
M-x set-face-foreground を使って色の変更できたんだけど
.emacs での設定の仕方がわからなかったのでそのままはります、御免。

;;; navi2ch-face.el --- face definitions for navi2ch

; ....略

(defface navi2ch-list-category-face
'((((class color) (background light)) (:foreground "forestgreen" :bold t)))
"カテゴリの face"
:group 'navi2ch-face)

(defface navi2ch-list-board-name-face
'((((class color) (background light)) (:foreground "purple3")))
"板名の face"
:group 'navi2ch-face)

(defface navi2ch-bm-unread-face
'((((class color) (background light)) (:foreground "black")))
"読んでないスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-view-face
'((((class color) (background light)) (:foreground "tomato2")))
"表示しているスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-cache-face
'((((class color) (background light)) (:foreground "tomato3")))
"読んだ事があるスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-update-face
'((((class color) (background light)) (:foreground "red2")))
"更新したスレの face"
:group 'navi2ch-face)

(defface navi2ch-bm-mark-face
'((((class color) (background light)) (:foreground "red3")))
"マークしたスレの face"
:group 'navi2ch-face)

(defface navi2ch-article-header-face
'((((class color) (background light)) (:foreground "purple4" :bold t)))
"ヘッダの From とかの部分の face"
:group 'navi2ch-face)

(defface navi2ch-article-header-contents-face
'((((class color) (background light)) (:foreground "MediumSeaGreen")))
"ヘッダの内容の方の face"
:group 'navi2ch-face)

(defface navi2ch-article-link-face
'((((class color) (background light)) (:foreground "blue3" :bold t)))
"同じスレ中へのリンクの face"
:group 'navi2ch-face)

(defface navi2ch-article-url-face
'((((class color) (background light)) (:foreground "blue3" :bold t)))
"url の face"
:group 'navi2ch-face)

(defface navi2ch-article-citation-face
'((((class color) (background light)) (:foreground "magenta3")))
"引用の face"
:group 'navi2ch-face)

; .... 略

615 ：名無しさん＠お腹いっぱい。 ：2001/05/10(木) 00:32
>>614
??
customize-face じゃ駄目なの??

616 ：570 ：2001/05/10(木) 16:31
>>603
サンクス

ところで、
(add-hook 'navi2ch-article-arrange-message-functions 'smiley-region)
が、効いてない？？



617 ：名無しさん＠お腹いっぱい。 ：2001/05/13(日) 14:51
荒らしが増えたからあぼーん機能を使う機会ができたよ（笑）
これは便利だ。

618 ： ：2001/05/15(火) 02:54


619 ：z ：2001/05/15(火) 02:55
z

620 ：名無しさん＠お腹いっぱい。 ：2001/05/16(水) 20:01
navi2ch bordで何故か^M（改行コード？）がタイトルに入ってるスレがあって
それを読もうとするとemacsごと落ちる
他にはいません？

621 ：名無しさん＠お腹いっぱい。 ：2001/05/17(木) 08:58
それはあり得るね
ブラウザ側で痴漢するしかないでしょ

622 ：名無しさん＠お腹いっぱい。 ：2001/05/17(木) 10:08
なぜかラーメン板でスレッドを見ようとすると

wrong argument; stringp nil

と言われて怒られてしまいます。(setq debug-on-error t) すると、

Signaling: (wrong-type-argument stringp nil)
string-to-number(nil)
navi2ch-article-update-file(((time . "Wed, 16 May 2001 12:07:01 GMT") (nil) (name . "\xd2e9\xd0bc\xd2e1\xd2f3") (uri . "http://mentai.2ch.net/ramen/") (id . "ramen")) ((subject . "\xdcf1\xe33b\xd1b4\xdce6\xe07e\xd8e8\xd224\xd24e\xd2e9\xd0bc\xd2e1\xd2f3") (response . "1") (artid . "990014819")) nil)
navi2ch-article-sync(nil first)
navi2ch-article-view-article(((time . "Wed, 16 May 2001 12:07:01 GMT") (nil) (name . "\xd2e9\xd0bc\xd2e1\xd2f3") (uri . "http://mentai.2ch.net/ramen/") (id . "ramen")) ((subject . "\xdcf1\xe33b\xd1b4\xdce6\xe07e\xd8e8\xd224\xd24e\xd2e9\xd0bc\xd2e1\xd2f3") (response . "1") (artid . "990014819")) nil)
navi2ch-bm-select-article(nil)
call-interactively(navi2ch-bm-select-article)

こーんな感じになります。


623 ：名無しさん＠お腹いっぱい。 ：2001/05/17(木) 12:41
>>622
> なぜかラーメン板でスレッドを見ようとすると
>
> wrong argument; stringp nil
>
> と言われて怒られてしまいます。(setq debug-on-error t) すると、

おなじことが、不倫板でもおこりました。


624 ：あぼーん ：2001/05/17(木) 19:39
あぼーん

625 ：名無しさん＠お腹いっぱい。 ：2001/05/19(土) 09:57
FreeBSD の ports 記念 age

626 ：名無しさん＠ＸＥｍａｃｓ ：2001/05/19(土) 13:11
ports を cvsup かけて驚き. ありがとうフジシマサン.


627 ：名無しさん＠お腹いっぱい。 ：2001/05/19(土) 14:19
$(B$F$9$H(B

628 ：名無しさん＠お腹いっぱい。 ：2001/05/19(土) 15:06
age

629 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 02:20
>>595
> > ブックマークに登録するときは、何かメッセージを返して欲しい。
> やっときました。

board のブックマークへの登録時にもメッセージを返すようにしてちょ。

630 ：名無しさん＠Ｅｍａｃｓ ：2001/05/20(日) 02:22
スレを選んでRETすると、article 1-100と、最新の
articleが表示されますけど、全部読むには
どうしたらいいんでしょうか。
C-h b RET して Binding見たんですけど良くわかりませんでした。


631 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 02:34
article-modeで r 押してその後 0 でOK

632 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 02:42
> article-modeで r 押してその後 0
おお、出来ました。すばらしい。
navi2ch最高です。



633 ：名無しさん＠Ｅｍａｃｓ ：2001/05/20(日) 11:44
>>632
README 読め。いろいろと発見があって楽しい。


634 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 21:44
>>632
で、慣れてきたら navi2ch-vars.el 読んでカスタマイズだ。


635 ：名無しさん＠お腹いっぱい。 ：2001/05/20(日) 23:01
　　 　 　 　 　 　 　 　 ／￣￣￣￣￣
　　 　 　 　 　 　 　 　 |　はやくこの板が
　　 　 　 　 　 　 　 　 |　　あらし厨房だらけになって
　　 　　,＿＿　　　　　| 　　　逝ってくれますように
　 　 ／　　.／＼ 　　　＼＿＿＿＿＿
　 ／　　.／( ・ ).＼ 　　　　　　o〇　 　 　　 ヾ!;;;::iii|//"
／_____／ .（´ｰ｀）　,＼　　 ∧∧　　　　　　 　 |;;;;::iii|/ﾞ
￣|| || || ||. |っ￠..||￣　　 （,,　　）　ﾅﾑﾅﾑ　　 |;;;;::iii|
　 || || || ||./,,,　|ゝ iii~ 　　⊂　　ヾｗｗｗｊｊｒｊｗw!;;;;::iii|ｊｗｊｊｒｊｗw〃
　 |￣￣￣|~~凸（￣）凸　.（　　,,）～　ｗｊｗｊｊｒｊ从ｊｗｗｊｗｊｊｒｊ从ｊｒ



636 ：名無しさん＠お腹いっぱい。 ：2001/05/23(水) 14:35
xxxxx.datを取り込んで、加工する前にhookが欲しいかな。
自作filterを咬ましたいんで、

で、その、plugin スペックもあるといいかも。

ageとこ

637 ：名無しさん＠お腹いっぱい。 ：2001/05/23(水) 15:15
GNU emacs21 でもモナーフォント使えないかなぁ。
XEmacs21 のコードではダメっぽかった。

自力で対処できるスキルがないので sage


638 ：636 ：2001/05/23(水) 19:56
例えば、自作自演filterとかね。(checkしてないので、間違ってると、ちょっと鬱)

$no = 0;
foreach (<STDIN>)
{
$data = $_;
@elm = split (/<>/,$data);
$elm[2] =~ m#.*ID:(.*)#;
$id = $1;
$no++;
next if ($id =~ m#\?\?\?#);
@t = ($no,\@elm);
push (@{$info{$id}},\@t);
}
foreach $id (by_freq (\%info))
{
......
}

sub by_freq
{
my $i = shift;
my $t;
foreach (keys (%$i))
{
$t{$_} = $#{$$i{$_}};
}
sort
{
$t{$b} <=> $t{$a};
} (keys (%t));
}


639 ：名無しさん＠お腹いっぱい。 ：2001/05/23(水) 20:43
時々、レス番号 1 以外表示されなくなるスレッドがあるんだけど、どうすりゃいいの
かな。一旦終了して xxx.dat と info/xxx を消せばなおるんだけど、面倒臭いから
「指定したスレッドの dat、info、関連バッファ及び変数をすべて消去」
するコマンドが欲しい。

640 ：431 ：2001/05/23(水) 23:53
>>637
> GNU emacs21 でもモナーフォント使えないかなぁ。
> XEmacs21 のコードではダメっぽかった。
>
> 自力で対処できるスキルがないので sage

がんばれー。

おれもlisp全然駄目だったけど、
Infoやnavi2chのソースやら他のelisp読みまくって
作者様に取り込んでもらえるようになったんだぞー。
# その節はどうも>(not 1)さん

要はやる気次第だぞ。
例え数行のコードでも自分の書いたモノが
他人の役に立つのは嬉しいもんだろ。

# つーか、そもそもこんなん、大してスキルなんて必要ないし。
# 自分では手許にEmacs21無くて手出せないんで、sage。

641 ：名無しさん＠お腹いっぱい。 ：2001/05/24(木) 08:54
>>639
C-u S
or
C-u s
で駄目か？

642 ：名無しさん＠お腹いっぱい。 ：2001/05/24(木) 19:43
xemacs とか emacs21 のツールバーで操作できるようになるとうれしい。

643 ：名無しさん＠XEmacs ：2001/05/24(木) 20:57
初めてちゃんと使ってみたよ。
かなり快適だ。
動作報告。
XEmacs 21.4 (patch 3) "Academic Rigor" [Lucid] (sparc-sun-solaris2.8, Mule)

多謝。 > 作者

644 ：637 ：2001/05/25(金) 06:44
>>640
ううむ、やっぱ自力でがんばらないとダメっすか。
ぼちぼち info を読みながら、できるところまでがんばってみることにします。

>>642
そうそう、ツールバーがあるとカコイイですよね。
他に、個人的にあると良さそうだなという機能として...

* scoreing 機能
* Namazu による index 作成/検索

なんてのを妄想してます。この辺もゆっくり考えてみよう。


645 ：名無しさん＠Ｅｍａｃｓ ：2001/05/25(金) 15:19
navi2ch-*.el をポチポチと読んでみてる。
いろいろと発見があって楽しい。

646 ：名無しさん＠Xemacs ：2001/05/25(金) 17:30
書き込みテストをかねて感謝。
XEmacs21.1.14 "Cuyahoga Valley"で動作中。


647 ：emacs21.0.102 ：2001/05/25(金) 17:31

動いてまっせー。

648 ：emacs21.0.103 ：2001/05/26(土) 13:16
マンセー

649 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 13:29
ちゃんとマニュアル通にインストールして、
設定ファイルに書いたのに
M-x navi2ch でnomach

650 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 13:42
>>649
パスが通っていないのでは？

651 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 13:51
>>650
どう通すの？
とりあえずマニュアル通りの事はちゃんとやったけど。

652 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 14:19
>>651
(setq load-path
(append
(list "/usr/local/share/emacs/site-lisp")
load-path))
…みたいな感じで。っていうか、マニュアルを読んでないので、
見当ちがいかも。

653 ：649=651 ：2001/05/26(土) 14:35
>>652
Vine Linux2.1.5なんですが、>>253を参考にして解決。
emacsがインストールされているディレクトリが
/usr/share/emacsなのに、そのままmake installすると
/usr/local/share/emacs/site-lispに展開されてました。

mv /usr/local/share/emacs/site-lisp/navi2ch* /usr/share/emacs/site-lisp

とやったら、とりあえず動きました。
~/.emacs.elに(require 'navi2ch)ってだけしか書いてないけど
>>652みたいにしたほうがいいんですか？
ちなみに、これ、navi2chで書いてまふ。

654 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 14:49
>>653
> >>652みたいにしたほうがいいんですか？
いいえ。もうしないで大丈夫です。

655 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 15:00
>>653
せっかく >>611 があるのに‥‥。

656 ：名無３ ：2001/05/26(土) 16:14
monafontをnavi2chで使う方法を教えてくらさい

657 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 16:43
>>656
過去レス読め。

658 ：名無３ ：2001/05/26(土) 16:53
>>657
> >>656
> 過去レス読め。
めんどうです。

まぁ、、これでスレが立てられればもう
VM割れから完全移行出来るんだけどな。。。

659 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 18:05
レスが500くらいのスレ見たとして、
1から100まで見て、次のレスがいきなり500だったりするんだけど、
これはバグじゃないよね？表示させる方法があるの？
過去ログもざっと見てみたが、、見落としてたらスマソ


660 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 18:14
>>659
>>630-631 を参照。

661 ：名無しさん＠お腹いっぱい。 ：2001/05/26(土) 18:18
>>660
うあ、読んだのに見すごしてた。ありがとう。

662 ：(not 1) ：2001/05/27(日) 01:19
ども。

>>636
> xxxxx.datを取り込んで、加工する前にhookが欲しいかな。
面白いかも。やってみますね。

>>637
> GNU emacs21 でもモナーフォント使えないかなぁ。
これに関して、emacs21 の人にちょっと質問。
こんなんで monafont が使えるようになったりしますか？
あと、XEmacs の人もこれで使えるんならこれでいこうかと。

--- navi2ch-mona.el.orig Sun May 27 01:05:46 2001
+++ navi2ch-mona.el Sun May 27 01:06:54 2001
@@ -47,8 +47,7 @@

;; mona 用の face を作成。
(make-face 'navi2ch-mona-face)
-(set-face-property 'navi2ch-mona-face
- 'font navi2ch-mona-font)
+(set-face-font 'navi2ch-mona-face navi2ch-mona-font)

;; face が特に指定されていない部分を mona-face にする
(defun navi2ch-mona-put-face ()

>>640
> Infoやnavi2chのソースやら他のelisp読みまくって
俺も Info や 他の elisp のソース読みまくりだったりして・・・(汗)。
でも、これ作ってるうちに結構 elisp 書けるようになったかなとは思うけど。

>>642
やってみます。
でもツールバーが出るような環境持ってないんでできるか判んないですが。

663 ：名無しさん＠お腹いっぱい。 ：2001/05/27(日) 01:54
9xは不安定だったけれど、Windows NT4.0/2000は安定しているよ。
別に安定性だけじゃOS選ばないだろうけれどさ、みんなは何でLinux使っているの？



664 ：名無しさん＠お腹いっぱい。 ：2001/05/27(日) 02:25
>>663
じゃあ、あなたはなぜWin2000を使っているの？

665 ：名無しさん＠お腹いっぱい。 ：2001/05/27(日) 04:27
Windosユーザーの厨房ぶり爆発スレッドだな。
Linuxユーザーには荒す理由ないもんな(ﾌﾟ
自らで自らの厨房ぶりを記録してるようなもんだな。

666 ：名無しさん＠お腹いっぱい。 ：2001/05/27(日) 14:21
665みたいのが d で簡単に消去できて便利だね

667 ：名無しさん＠お腹いっぱい。 ：2001/05/27(日) 14:48
>>664
Linux板からのコピペだよ。無視すべし。

668 ：名無しさん＠Ｅｍａｃｓ ：2001/05/27(日) 20:15
Emacs 20.7.1 (sparc-sun-solaris2.5.1, X toolkit) / Mule 4.1 (AOI)
で
navi2ch-010508.tar.gz
を使用して
[-]受験・学校
大学受験
847 筑波はほんとのところ6 ( 2)
をみようとしたら、次のようなエラーがでました。
Signaling: (wrong-type-argument stringp nil)
string-to-number(nil)
navi2ch-article-update-file(((time . "Sun, 27 May 2001 11:06:41 GMT") (nil) (name . "\xe167\xd9d8\xde75\xdc33") (uri . "http://saki.2ch.net/kouri/") (id . "kouri")) ((subject . "\xe1de\xe3c8\xd24f\xd25b\xd273\xd248\xd24e\xd248\xd233\xd26d\ 6") (response . "2") (artid . "989985203")) nil)
navi2ch-article-sync(nil first)
navi2ch-article-view-article(((time . "Sun, 27 May 2001 11:06:41 GMT") (nil) (name . "\xe167\xd9d8\xde75\xdc33") (uri . "http://saki.2ch.net/kouri/") (id . "kouri")) ((subject . "\xe1de\xe3c8\xd24f\xd25b\xd273\xd248\xd24e\xd248\xd233\xd26d\ 6") (response . "2") (artid . "989985203")) nil)
navi2ch-bm-select-article(nil)
navi2ch-bm-select-article-or-scroll(up nil)
navi2ch-bm-select-article-or-scroll-up(nil)
call-interactively(navi2ch-bm-select-article-or-scroll-up)
recursive-edit()
byte-code("ﾆ!杏ﾈ 伊ﾇ!�pﾊﾋﾌ �+eb囲 �`ﾎﾏ!威y�`|尉 �
@ﾒ>ク*ﾓc�
@ﾔ=Ν*ﾕﾖﾊ\"為ﾐ!畏c異y�き*
@ﾚ=ピ*ﾛc�
A@%ﾜ%p\"胃c為ﾐ!萎c異y�き*
@ﾟ=リ*瀋緯
A@p\"胃c�き*
@ﾊ=��*當�き*ﾜ
@ﾇ=Ζ*
Aぇ*
p\"胃c遺�!位ﾇﾊ&粤!�贋 �,ﾇ" [debugger-buffer buffer-read-only print-length print-escape-newlines standard-output debugger-args pop-to-buffer nil erase-buffer set-buffer-multibyte t 50 backtrace debugger-mode search-forward "\n debug(" 1 debugger-reenable (lambda debug) "Entering:\n" debug backtrace-debug 3 delete-char 42 0 exit "Return value: " prin1 10 32 error "Signaling: " "Beginning evaluation of function call form:\n" message "" recursive-edit debugger-value inhibit-trace] 3)
debug(error (wrong-type-argument stringp nil))
string-to-number(nil)
navi2ch-article-update-file(((time . "Sun, 27 May 2001 11:01:17 GMT") (nil) (name . "Linux") (uri . "http://cocoa.2ch.net/linux/") (id . "linux")) ((subject . "bind\xd22c\xd23f\xd25e\xd24b\xdddf\xd25e\xd243\xd246\xd26b\xddf6\xd22c\xd222\xd273\xd240\xd231\xd249\xd0a6\xd0a6\xd0a6") (response . "75") (artid . "986874936")) nil)
navi2ch-article-sync(nil first)
navi2ch-article-view-article(((time . "Sun, 27 May 2001 11:01:17 GMT") (nil) (name . "Linux") (uri . "http://cocoa.2ch.net/linux/") (id . "linux")) ((subject . "bind\xd22c\xd23f\xd25e\xd24b\xdddf\xd25e\xd243\xd246\xd26b\xddf6\xd22c\xd222\xd273\xd240\xd231\xd249\xd0a6\xd0a6\xd0a6") (response . "75") (artid . "986874936")) nil)
navi2ch-bm-select-article(nil)
navi2ch-bm-select-article-or-scroll(up nil)
navi2ch-bm-select-article-or-scroll-up(nil)
call-interactively(navi2ch-bm-select-article-or-scroll-up)


669 ：名無しさん＠お腹いっぱい。 ：2001/05/28(月) 03:43
(add-hook 'navi2ch-message-mode-hook
(function
(lambda ()
(skk-auto-fill-mode)
)))
…みたいな感じで、message-modeはskkにしました。間違っているかも。一応、
希望の動作をしているけれども。
他にカスタマイズについて教えてもらえればと思います。

670 ：637 ：2001/05/28(月) 10:07
やってみました。
確かにフォントは変わるのですが、無理矢理固定幅にされてしまって
ずれてしまいます@emacs21.0.103
XEmacs21 は問題なさそうです。

emacs21 のフォント回りを調べねば...


671 ：名無しさん＠お腹いっぱい。 ：2001/05/29(火) 04:24
クンクンフィルタ
１の～ですシリーズフィルタ
荒らしAAフィルタ
なんかがあるとすごく快適になるだろうね。

672 ：名無しさん＠お腹いっぱい。 ：2001/05/29(火) 21:00
最近使い始めたんですが、めっちゃ重宝しています。
普通のブラウザには戻れません。作者様に感謝。

ところで、実況版とかは対応できるんでしょうか。

673 ：名無しさん＠お腹いっぱい。 ：2001/05/29(火) 23:11
　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　　 　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　　 　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　
　　　？？？？？？？？？？？？？？？？？？？？？？　　　　
　？？？？？？？？？？？？？？？？？？？？？？　　

674 ：名無しさん＠お腹いっぱい。 ：2001/05/30(水) 20:24
~/.navi2ch/init.el
読んで欲しいな。
customize-* 以外で .emacs が肥大化しちゃうのがちょっと。
え、.emacs から自分で load しろって？
まあそんな固いこと言わずに…

675 ：(not 1) ：2001/05/31(木) 01:38
・メニューを付けた。
・フィルタが使えるようにした。
・初期化ファイルを使えるようにした。

です。

http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010531.tar.gz

メニューは付けてみたけど結構適当です。
俺自信は全然メニュー使わない人なんで、欲しいメニューがあったら言ってください。
追加します。

あと、ツールバーなんですが、xpm を書けるツールを持ってないことが発覚したので作
ってないです。誰かが xpm 画像を作ってくれたら作るかもしれません :-)

>>636,671
フィルタを使えるようにしてみました。
フィルタは navi2ch-article-filter-list という変数に登録して下さい。
elisp で作った フィルタならその関数名を、perl とかで作ったなら list で登録です。
perl script とかを登録する list は 先頭がプログラム名で、後ろが引数になってます。
例えばこんな感じで。
(setq navi2ch-article-filter-list
'(my-navi2ch-filter
("perl" "2ch.pl")))
フィルターを作る人へ：
フィルタで、行の削除をしたいときとかがあると思いますが、そのときは空行を作るよ
うにして下さい。でないと、番号の対応がくずれちゃうので。
あと、板によってセパレータが"<>"だったり","だったりするので気を付けて下さい。

>>674
> ~/.navi2ch/init.el
やっときました。
navi2ch-init-file という変数で指定してます。

676 ：(not 1) ：2001/05/31(木) 01:43
フィルタのサンプル。
2000 年のメッセージを非表示にします。

(defun navi2ch-not-2000-filter ()
(goto-char (point-min))
(while (re-search-forward "2000" nil t)
(kill-region (progn (beginning-of-line) (point))
(progn (end-of-line) (point)))))

(setq navi2ch-article-filter-list
'(navi2ch-not-2000-filter))



677 ：(not 1) ：2001/05/31(木) 01:43
フィルタのサンプル。
2000 年のメッセージを非表示にします。

(defun navi2ch-not-2000-filter ()
(goto-char (point-min))
(while (re-search-forward "2000" nil t)
(kill-region (progn (beginning-of-line) (point))
(progn (end-of-line) (point)))))

(setq navi2ch-article-filter-list
'(navi2ch-not-2000-filter))



678 ：(not 1) ：2001/05/31(木) 01:45
すんません。やっちまいました。

679 ：emacs-20.7 ：2001/05/31(木) 09:52
フィルタにチャレンジしようと思って
(setq navi2ch-article-filter-list
'(my-navi2ch-filter
("perl" "/path/hogehoge.pl")))
これを .emacs に書いたら、スレの内容読む時に
Symbol's function definition is void: my-navi2ch-filter
ってエラーが出て見れなくなりました。もしかして他に何か
設定しないといけませんか？(汗)

それとフィルタのスクリプトは普通に stdin から読みこんで
print すればいいのでしょうか？

680 ：名無しさん＠Ｅｍａｃｓ ：2001/05/31(木) 17:11

RPMでございます。
http://navi2ch.tripod.co.jp/navi2ch-010531-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010531-1.nosrc.rpm


681 ：名無しさん＠Ｅｍａｃｓ ：2001/05/31(木) 17:11

RPMでございます。
http://navi2ch.tripod.co.jp/navi2ch-010531-1.i386.rpm
http://navi2ch.tripod.co.jp/navi2ch-010531-1.nosrc.rpm


682 ：681 ：2001/05/31(木) 17:12
やってしまいました…
鬱死。

ｲﾃｰｷﾏｰｽ

683 ：名無しさん＠お腹いっぱい。 ：2001/05/31(木) 19:09
>>678
>>682
仲良きことは美しき哉。

684 ：名無しさん＠お腹いっぱい。 ：2001/06/01(金) 01:44
Navi2ch むっちゃ快適っす。ありがとうございます！

ところで、.emacs に Navi2ch を設定すると、なぜか w3m-el がおかしくなる
のですが何ででしょ。例えば、http://www.geocities.co.jp/index.html をア
クセスしようとすると、Unknown URL なんて言われてしまいます。なんかがバッ
ティングしてるんでしょうか？

Debian 2.2 + Emacs20.7.2 + navi2ch-010508.tar.gz です。

.emacs:
;; w3m
(setq browse-url-browser-function 'w3m-browse-url)
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
(global-set-key "\C-xm" 'browse-url-at-point)

;; navi2ch
(require 'navi2ch)
;(setq navi2ch-net-http-proxy "http://localhost:8080/")
(setq navi2ch-message-user-name "名無しさん＠お腹いっぱい。")
(setq navi2ch-message-mail-address "sage")
(setq navi2ch-message-wait-time 1)

685 ：名無しさん＠お腹いっぱい。 ：2001/06/01(金) 02:36
15ch とか他のサイトも見れるんですか?
どのように設定すればいいですか? 教えてくんでごめんなさい。

686 ：名無しさん＠お腹いっぱい。 ：2001/06/01(金) 09:45
>>684
こっちではw3m-el使えてます。
potato に sid の w3m 0.2.0-1 と w3m-el 0.2.125 を potato で build して
使ってます。

w3m-el は自身と w3m の version とをきちんと要求するものに合わせないと
思ったように動かないので要注意。


687 ：名無しさん＠お腹いっぱい。 ：2001/06/01(金) 16:08
>>684
うちは vine 2.1 だが
emacs 20.7.2, navi2ch-010531, w3m-0.2.1, w3m-el-1.0 で問題ないよ。


688 ：名無しさん＠お腹いっぱい。 ：2001/06/02(土) 00:29
野球板で書き込み(レス)に失敗するんですが、他の人はどうでしょうか?

689 ：名無しさん＠お腹いっぱい。 ：2001/06/02(土) 00:30
>>688
名前書かないとだめみたいだよ。

690 ：名無しさん＠お腹いっぱい。 ：2001/06/02(土) 01:24
>>686
>>687
サンクス。
> w3m-el は自身と w3m の version とをきちんと要求するものに合わせないと
> 思ったように動かないので要注意。

w3m-el-1.0 + w3m-ssl_0.1.10+0.1.11pre+kokb23 で動かしてました。
version 合わせてみます。

691 ：688 ：2001/06/02(土) 04:17
>>689
どうもです。

692 ：名無しさん＠お腹いっぱい。 ：2001/06/02(土) 14:00
expire が始まってんだか終わってんだかよくわかんないです。
"expiring...done" とか出せません?

続きを読む
掲示板に戻る 全部 前100 次100 最新50
名前： E-mail (省略可) :

read.cgi ver5.26+ (01/10/21-)