2ch専用ブラウザ「Navi2ch」

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

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

2ch専用ブラウザ「Navi2ch」

1 ：名無しさん＠お腹いっぱい。 ：01/08/30 19:15 ID:sM1bIKlc: Emacsen上で動く2ch専用ブラウザ、navi2chのスレッドです。

作者の(not 1)さんのページ
* http://www.geocities.co.jp/SiliconValley-Oakland/7673/
rpm置き場
* http://members.tripod.co.jp/~navi2ch/
モナーフォント
* http://members.tripod.co.jp/s42335/mona/

過去ログ
part1: http://cocoa.2ch.net/unix/dat/996244120.dat
(html化されていない)
part2: http://cocoa.2ch.net/test/read.cgi?bbs=unix&key=996244120
(スレタイトルが分かりにくいのでこっちに早々に移動)

>>2 インストールと起動方法
>>3-8 基本的な操作方法(READMEより)
>>9-10 ちょっとした情報
>>11-13 FAQ(前スレのまとめ)
333 ：(not 1) ：01/09/30 13:47: >>329
replace-match で出ますか。
navi2ch の elc ファイルを全部消した後もういちど backtrace を取ってみて下さい。
それと、以下のコードを評価(一番後ろで C-x e)した結果がどうなるか教えて頂けませんか？
(let ((str "hogehagemage"))
(string-match "hage" str)
(setq str (replace-match "" nil nil str))
str)
334 ：329 ：01/09/30 21:31: >>333
C-x eですか?C-xC-eですか?
前者なら以下の結果が、
Signaling: (error "No kbd macro has been defined")
call-last-kbd-macro(1)
call-interactively(call-last-kbd-macro)

後者なら"hogemage"と出ます。

*.elcファイルをrmしてbacktraceしてみました。

Signaling: (wrong-type-argument char-or-string-p nil)
replace-match("" nil nil "+OK 1848/512K\n<割愛>\n")
(setq cont (replace-match "" nil nil cont))
)
(progn (setq state (match-string 1 cont)) (setq data (match-string 2
cont)) (setq cont (replace-match "" nil nil cont)))
)
(if (string-match "^\$.+\$ \$.+\$\n" cont) (progn (setq state
...) (setq data ...) (setq cont ...)))
)
(when (string-match "^\$.+\$ \$.+\$\n" cont) (setq state
(match-string 1 cont)) (setq data (match-string 2 cont)) (setq cont
(replace-match "" nil nil cont)))
)
(let (state data cont-size) (when (string-match "^\$.+\$
\$.+\$\n" cont) (setq state ...) (setq data ...) (setq cont ...))
(when (and ... ...) (setq cont-size ...)) (setq cont
(navi2ch-string-as-unibyte cont)) (cond (... ... ...) (... ...)
(... ... nil)))
)
(let ((coding-system-for-write ...) (coding-system-for-read ...))
(message "%s getting file with read.cgi..." (current-message)) (setq
header (navi2ch-net-get-header proc)) (setq cont
(navi2ch-net-get-content proc)) (message "%sdone" (current-message))
(let (state data cont-size) (when ... ... ... ...) (when ... ...)
(setq cont ...) (cond ... ... ...)))
)
(progn (let (... ...) (message "%s getting file with read.cgi..."
...) (setq header ...) (setq cont ...) (message "%sdone" ...) (let
... ... ... ... ...)))
)
(if proc (progn (let ... ... ... ... ... ...)))
)
(when proc (let (... ...) (message "%s getting file with
read.cgi..." ...) (setq header ...) (setq cont ...) (message "%sdone"
...) (let ... ... ... ... ...)))
)
(let* ((file ...) (dir ...) proc header cont) (unless (file-exists-p
dir) (make-directory dir t)) (setq proc (navi2ch-net-download-file
... time)) (when proc (let ... ... ... ... ... ...)))
)
335 ：329 ：01/09/30 21:32: <続き>

navi2ch-net-update-file-with-readcgi(((time . "Sun, 30 Sep 2001
11:46:10 GMT") (nil) (name . "UNIX") (uri
. "http://cocoa.2ch.net/unix/") (id . "unix") (seen)) ((subject . "★雑
談スレッドだよもん！★") (response . "12") (artid . "1001726720"))
nil)
(cond ((if navi2ch-enable-readcgi ... ...)
(navi2ch-net-update-file-with-readcgi board article time)) ((and
... navi2ch-article-enable-diff) (navi2ch-net-update-file-diff url
file ...)) (t (let ... ...)))
)
(setq state (cond (... ...) (... ...) (t ...)))
)
(let ((file ...) (url ...) (time ...) full-size) (setq state (cond ... ... ...)) (when state (setq article ...)))
)
(if navi2ch-offline nil (let (... ... ... full-size) (setq state ...) (when state ...)))
)
(unless navi2ch-offline (let (... ... ... full-size) (setq state ...) (when state ...)))
)
(let (state) (unless navi2ch-offline (let ... ... ...)) (list article state))
336 ：329 ：01/09/30 21:34: <続き>

navi2ch-article-update-file(((time . "Sun, 30 Sep 2001 11:46:10
GMT") (nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id
. "unix") (seen)) ((subject . "★雑談スレッドだよもん！★") (response
. "12") (artid . "1001726720")) nil)
(let ((ret ...)) (setq article (nth 0 ret)
navi2ch-article-current-article article state (nth 1 ret)))
)
(let* ((list navi2ch-article-message-list) (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 ...)) (prog1 (when
... ... ... ... ... ... ... ... ... ... ... list) (when
... ... ... ...) (navi2ch-article-set-seen)))
)
(progn (let* (... ... ... ... ... ... ... state) (when first ...)
(let ... ...) (prog1 ... ... ...)))
)
(if (not navi2ch-article-from-file-p) (progn (let* ... ... ... ...)))
)
(when (not navi2ch-article-from-file-p) (let* (... ... ... ... ... ... ... state) (when first ...) (let ... ...) (prog1 ... ... ...)))
)
navi2ch-article-sync(nil first nil)
(if (get-buffer buf-name) (progn (switch-to-buffer buf-name)
(navi2ch-article-sync force nil number)) (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 ... ... ...)) (navi2ch-article-sync
force (quote first) number))
)
(let ((buf-name ...) (navi2ch-article-max-line ...)) (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 ...) (navi2ch-article-sync force
... number)))
)
337 ：329 ：01/09/30 21:35: <続き>

navi2ch-article-view-article(((time . "Sun, 30 Sep 2001 11:46:10
GMT") (nil) (name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id
. "unix") (seen)) ((subject . "★雑談スレッドだよもん！★") (response
. "12") (artid . "1001726720")) nil nil nil)
(setq state (navi2ch-article-view-article board article nil nil max-line))
)
(let (state) (setq state (navi2ch-article-view-article board article
nil nil max-line)) (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!"))
)
(let* ((item ...) (article ...) (board ...) (buf ...)) (if article
(progn ... ... ... ... ...) (message "can't select this line!")))
)
navi2ch-bm-select-article(nil)
338 ：329 ：01/09/30 21:35: どこを切って良いものか分からなかったのでとりあえず全部掲載しました。
ごめんなさい。
339 ：名無しさん＠Ｅｍａｃｓ ：01/09/30 23:20: とりあえず、

>>335 の
navi2ch-net-update-file-with-readcgi の引数がおかしいですね。

で、その下に、
> (navi2ch-net-update-file-with-readcgi board article time)

ってあるけど、うちの navi2ch-010930 だと、
(defun navi2ch-net-update-file-with-readcgi (url file &optional time diff)
だし、Backtraceで見ても、この通りの引数をとってますね。

navi2ch-010929で同じエラーってことは、
たぶんロードされてるのは、navi2ch-010929 のほう？
load-path を確認して見て。
340 ：名無しさん＠お腹いっぱい。 ：01/09/30 23:23: 実はbyte-compileし直してないだけだったりして。
341 ：名無しさん＠Ｅｍａｃｓ ：01/10/01 01:25: navi2ch-010930 ですが、
navi2ch-board-update-file() で、
navi2ch-net-update-file() と navi2ch-board-get-url() の引数が
おかしいかったので、とりあえず以下のようにしました。
etc.txt に書いた板を見るのに必要でした。

--- navi2ch-board.el.orig Sun Sep 30 02:43:06 2001
+++ navi2ch-board.el Mon Oct 1 01:19:36 2001
@@ -284,7 +284,7 @@
(car (navi2ch-net-update-file-with-readcgi
(navi2ch-board-get-readcgi-raw-url board)
file time))
- (navi2ch-net-update-file (navi2ch-board-get-url board file time)))))
+ (navi2ch-net-update-file (navi2ch-board-get-url board) file))))

(defun navi2ch-board-sync (&optional force first)
(interactive "P")
342 ：280 ：01/10/01 04:56: > 作者殿 >>296
> これって Meadow だとうまく出るけど Unix な...
なんだかすごくややこしいことになりますか？
l で戻れる機能はすごく便利です。二つのレスを比べ
ながら見てた時にふとあったらいいなと思いました。
でも (例として) >> 20 のレスに >> 3 みたいのが
あったら popup してもどの道自分で見に行かないと
いけないな....

> speedbar に対応させてみるとか :-)
(実験で使って以来起動していないのですが)
あんな感じで表示されたらすごくいいと思います。

> 了解です。
ありがとうございます。これで各板の逝ってしまってる
方々をあぼーんしやすくなります。

>>332
ここかな？
http://www.geocities.co.jp/SiliconValley-Oakland/4550/

>>338
Web板のゴメンナサイ倶楽部見た後だったので笑っちまい
ました。ごめ(略)
http://natto.2ch.net/test/read.cgi/hp/990521499/
343 ：名無しさん＠お腹いっぱい。 ：01/10/01 06:04: >>327
>> Symbol's function definition is void: navi2ch-article-aadisplay-program
>変数の設定間違ってたので直しました。これで大丈夫なはず。

起動できるようになりましたが化けてしまいます。文字コードが EUC じゃないと
駄目な気がします。それはそうと、簡単に殺せんのがうざったい >aadisplay

>>332
http://www.geocities.co.jp/SiliconValley-Oakland/4550/

あとバージョンが古くないだろうなと navi2ch-version を調べたら "1.0"
と出たので思わず苦笑。もうちょっとマシにした方がいいのでは >作者様
ついでに変数だけでなく関数も作ってちょ。
344 ：名無しさん＠お腹いっぱい。 ：01/10/01 08:54: どうも SETTING.TXT は gzip されずに送られてくるみたいです。
navi2ch-board-view-logo が動作しないんで、とりあえずこの
パッチでしのいでます。

--- navi2ch-net.el.orig Mon Oct 1 08:39:00 2001
+++ navi2ch-net.el Mon Oct 1 08:39:09 2001
@@ -419,11 +419,12 @@
(delete-process proc) nil))))

(defun navi2ch-net-download-logo (board)
- (let ((content (navi2ch-net-get-content
- (navi2ch-net-download-file
- (navi2ch-board-get-url board
- navi2ch-net-setting-file-name))))
- src)
+ (let* ((navi2ch-net-accept-gzip nil)
+ (content (navi2ch-net-get-content
+ (navi2ch-net-download-file
+ (navi2ch-board-get-url board
+ navi2ch-net-setting-file-name))))
+ src)
(when (string-match "BBS_TITLE_PICTURE=\$.+\$" content)
(setq src (match-string 1 content)))
(let (url file)
345 ：名無しさん＠お腹いっぱい。 ：01/10/01 10:36: デフォルトのロゴの位置が
http://cocoa.2ch.net/2ch.gif
みたいな場所に移ったみたいなので、
もうひとつパッチ。

--- navi2ch-net.el.orig Mon Oct 1 10:22:49 2001
+++ navi2ch-net.el Mon Oct 1 10:24:32 2001
@@ -430,7 +430,9 @@
(let (url file)
(setq url (if (string-match "http://" src)
src
- (navi2ch-board-get-url board src)))
+ (setq url (navi2ch-board-get-url board))
+ (string-match "\$http://[^/]+\$" url)
+ (concat (match-string 1 url) src)))
(string-match "/\$[^/]+\$$" url)
(setq file (match-string 1 url))
(when file
346 ：名無しさん＠ＸＥｍａｃｓ ：01/10/01 11:49: このスレのおかげで、なんとかXEmacsでnavi2chが起動して板一覧も表示できるようになりました。

しかし、フォントが明朝になっていて変更できないのと、マウスのスクロールをカーソルキーの上下に割り当てたいのですが
そのやり方が分からず鬱です。

こんな厨房にどこをどういう風に書き換えたらよいか教えてください。
347 ：名無しさん＠お腹いっぱい。 ：01/10/01 12:41: >>346
それは、Emacs板にいってきいたほうがいいと思われ。
348 ：名無しさん＠Ｅｍａｃｓ ：01/10/01 22:04: 履歴をブックマーク代わりにして m-a-m-i していると
navi2ch-history-{delete|cut|yank} の必要性を感じたのでパッチです。

begin 644 navi2ch-010930-historyedit.diff.gz
M'XL("+]GN#L``VYA=FDR8V@M,#$P.3,P+6AI<W1O<GEE9&ET+F1I9F8`S58]
M;]LP$)VEOY#E:A@(!86I_)74#@($Z9QT*="E"RU1#FN95$3)C8K^^/)(R79M
MRW6!#O40,^3Q\=Z[=Z03D:9`*Y!L+8;Q"XT&T7047:M"+-ZW<R]"EZJHKWFV
M%W8DPJ>4G@GF?>$)/+$:1A$,1[/1S2P:PS"*!GX8AG\^R7M2$C[%)<``AH/9
M9#2+;MWVAP>@H_'5#83F[P=X>/`!@&A>OL(>#%VIA-,5RS'"?4BL\IHN>6UF
M-^'SU28R"##V[@Y(PE,A.89VPD+OM0>7^ZO\392!'\*9$%\_TN41E+CZ2Y#Z
M"$C-Y-(2.@\E.0*1\(R7W,GB6YPU*SHPN*RHSGEL2S2)L$23X=5M4Z)+0B1;
M<;B&WD7_\>G'<W%!'GN!JPTIZQR7&L!V5B08CI.]P.00=IUOU**Z9/$2I,C,
M9M^4\&ZGOA"S+)N;=>TX5/(`PAB(YH7*>5'60.9\(21PF8`H^2JPC`:3`5(:
M3,97XZDEY366DAK(/M["X*'<)#;YO@7XG>#`9.>9?6^!'6WW98HE5,A4'626
MBLP4`.D[`8XD[ZH$Q%H&Y>W?]Y^GG_LH<:LIX'38%S-U_[,_[2]1?>LP(4M>
ML+@4:^XLI]F:&QO'5:&%DC@%C2)2R`55*<V,F8)FP9P,A*!,QT78BIHK<Y1C
MTG2C2*V^?NAM@'(F"B!,:Q7;M0.N+#,#Q/`\,J_2E!>TX$8[);/:EC^P<-;T
MV2M8O.,8.W%&/8.R,'3;-/=E`)*JXCLK$D=^RZ9%V;E-"M,)JSDO[")9<:W9
M@D/O(Y.7)6ASFKG72I,+(-0[M/;)ZAIW-Z7];VIE`A>R99Y7^N6,DG5W[8&&
M![?/OY`1;\-.'7?-EZO\1*ZM)"@(QF-N6SEPEG`USUM.[FV*3>^3C.FRVXIM
M-/YO@;?6<LG9!2,#.JN5^[PJ(GJ+?R(!S^OHM4,N+A?[F-KAIB=WPE@3YK@$
MNTU^NF_WLQ!2&SI45_-O6/+(W:F_P78T7Y/-QCKNC3".X:N\K*UC\+'`^JU%
2P@^>OV#[R\'_!62;VI!,"0``
`
end
349 ：348 ：01/10/01 22:10: ・オフラインモードでまだ fetch してないスレをブックマーク
したとき (900 を超えたときの次スレとか)、subject が nil
になってエラーになる時の対策
・次にそのスレをオンラインで fetch した時に subject を更新する

parse-message の使い方がよくわからなかったので
subject の検索はべた書きしちゃいました。

begin 644 navi2ch-010930-nilbookmark.diff.gz
M'XL("-QGN#L``VYA=FDR8V@M,#$P.3,P+6YI;&)O;VMM87)K+F1I9F8`E591
M<]HX$'Z&O]"7C2LW3AVU&),FD,Z5Z]TPE\Y<VYG<O75NJMAR4&TDQY9#^?>W
MDK"A0#K4#V!I=S])NY^^=2JR#&@#DCV*83*G@V@PC@>O5"7N7[=S=XI5*5V(
M.GG%BQW/PTY]2NGQD+W;1L(M+R$>P"">#"\G\0B&@T'4#\/PJ/5Z?RL)GQ(-
M$,$PFES$DSAR"-,IT.C-\/P-A.;O$J;3/O0@J#73'`*10=`A+FC&=3+G*665
M%DG!:0EV&5B/SS"T!_B<-F6*\6[8`;11")'D-&$&:@<`GWYH$()&%KRNH6[N
MOG'<>%!S_="-/"D*#UW!N@I9\PI=,E4M&!K].`6_]FO[X]=?I.<<=Q_9+.YX
MU>XY2-(*`E;7#^!VG\+6R==3=,&JG+)"U!J73X\BA\I-T$^IT;D<08S.MW>+
MA_W0%#"\@BB>C"XFT=41M-C$[Y%B=+4A13PRG,!?1PE85V`7ARY4RC$K):8Q
M2%2YHCE?X7`[=ZV+*]CU-00ISX3DQO5I0/`>/#C=,_/O0EN.'`DB#H%8'M,-
M:X]&2P^AI;S@^I=@OOQ!\T-(2:-_$69U"&;%9'[FJCAP91Q<G,<7MI`&&N5D
M+Z90+*5"9@J"LY^4VS#?E+HU;,+VDRSLA>Z'_?"I17^H`P0O5*F%DJR`!?N.
M2TE,:HA\V56@+N(9>4\^/@O>P[)B9<DK._$7N22SV6M"3SPTM9)A+.?&%:7#
M#CX0@4.+CT/_7__$)WY.0CL-VV'554C^)!&9C<?O+LF8Y"?/;:25'LTKEFCQ
MR,'[[#EB(AM>0A`(S1=;ZMF>^9YK6E8*=ZM7$)0*(3K5<WKF)/%PI+,9Z!]C
MNAP>C&JM>W%6YEO)=1+KA/_)E'>5V1%JIYRG;=ZZN[5>RR0%<R+Y<NW1#WO;
M!D.6_4YA]FXL5+(%WVT5B&`@@I*KPH[:7"SG7()%-&I1ZQK[E"7CUL';!ZN/
MPN[*;.J.+[^/;O3LAOQ')B?>[-SR*\+I\3]D2B(T?"4?R2=R0UX@%0KR&<WO
M[%:"I=!SBADNZ5V39=A9UAML3^7ZE#M0HI`Y4M?MQISGO=(*VR.KUL3`_BTW
M!^4RI2IK[X6;LS4S&>BHM+&PRA20)?G2Y,U[^YO7&;%5FDFWUO#,YL'<@M"/
M?>7G/B%S/%=PC7.G/KY==Y'N:!2K6.M*R/MV77!E<!V\YVJPJ3;8\KC=[E&U
M;+1KJ1OZ;$5NUQL.\)NEJ=E-Y9;8UYBDJ2K,]&9"//G1X6X#RA_*)%[11Y'R
0?74U'SG]_P%2UYB.%PH``-E-
`
end
350 ：名無しさん＠お腹いっぱい。 ：01/10/01 22:12: filterってどう書けばいいんですか?

gikonekoっていう文字列が入っているやつを消したいときは、

#/usr/bin/perl
while(<>) {
next if /gikoneko/;
print;
}
とかでいいのかしら?
351 ：名無しさん＠お腹いっぱい。 ：01/10/02 00:09: >>342
> 二つのレスを比べながら見てた時にふとあったらいいなと思いました。でも
> (例として) >> 20 のレスに >> 3 みたいのがあったら popup してもどの道自
> 分で見に行かないといけないな....

・\C-x 2して、[Return]←→l、
・気が済んだら\C-oして\C-x 1

の方が使い易く内科医？
352 ：名無しさん＠Ｅｍａｃｓ ：01/10/02 00:12: CUVといったマークの意味を教えて下さい。
READMEにも記載がないんですけが、どこをみたらいいんでしょう？
353 ：名無しさん＠お腹いっぱい。 ：01/10/02 00:42: >352 前スレ。
354 ：352 ：01/10/02 01:49: 前々スレの833でした。

write from (not1)様
> C: ローカルにキャッシュがあるスレ
> V: 現在 navi2ch で buffer を持っている(表示されている)スレ
> U: "i" を押して更新された(buffer は無いかもしれない)スレ
> な感じになってます。
> U マークの付いたスレが一番未読スレに近いかな。
355 ：名無しさん＠お腹いっぱい。 ：01/10/02 04:38: スレを text に落とすのがちゃんと動くようになりました。
html に落とせるようになれば尚便利だと思うんですが。
356 ：名無しさん＠お腹いっぱい。 ：01/10/02 16:55: (add-hook 'navi2ch-list-mode-hook (lambda ()
(local-set-key "q" 'bury-buffer)
(local-set-key "Q" 'navi2ch-exit)))
357 ：mami ：01/10/02 17:05: >329
これって fix されてる?
うちも Xemacs じゃ見れないんで、
GNU Emacs20 入れちまったい。
(setq navi2ch-article-use-readcgi-hosts nil) しても
read.cgi 経由で読むようになったのね。
358 ：名無しさん＠お腹いっぱい。 ：01/10/02 20:32: fixも何もソースから入れればそんな問題は起こらない。
*.elc使いまわしてないか？
359 ：名無しさん＠お腹いっぱい。 ：01/10/02 22:47: >>358
Debianはインストールするとき必ずコンパイルするけど
やっぱりxemacsは使えない。
360 ：名無しさん＠お腹いっぱい。 ：01/10/02 23:26: >359 XEmacsが古いという説はどうかね。
361 ：mami ：01/10/02 23:30: >360
emacs-version は
"21.1 (patch 10) \"Capitol Reef\" XEmacs Lucid"
ですが何か?
362 ：名無しさん＠Ｅｍａｃｓ ：01/10/03 00:13: なんか，特定の板を開くと，"file is not updated" とか出て，
いつも同じタイトルが並んでて，更新する気配がなくなっちゃうんですけど．
理由わかります?
363 ：mami ：01/10/03 00:19: >362
特定の板って、どこよ。
閉鎖された板なんじゃネーノ？
364 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:20: >>361
板が移転した時の状況と思われ。そういう時は、
etc.txt で一時しのぎ
365 ：名無しさん＠Ｅｍａｃｓ ：01/10/03 00:20: 漫画坂です．
過去レスみたら，質問は出てるけど，答えは出てないみたい
366 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:27: >361
XEmacs 21.1 (patch 14) "Cuyahoga Valley" [Lucid]
だが何か? 君のはこれより新しいのかい?

>365 (setq navi2ch-list-bbstable-url "http://www.2ch.net/newbbsmenu.html")
367 ：mami ：01/10/03 00:28: navi2ch の U で見た URL と
ブラウザで見た URL が違うな。
~/.navi2ch/etc.txt に下の3行書いとけや。

漫画
http://choco.2ch.net/comic/
comic
368 ：mami ：01/10/03 00:30: >366
うちの方が古いな。
Xemacs のバージョン上げれば解決するのか?
369 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:32: >368 少なくともうちでは動いているから、バージョンが古いせいでないことはわかるね。
370 ：362 ：01/10/03 00:49: etc.txtに書いてもだめだった．
残念無念．
371 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:56: >370
366の式の行末でevalしてnavi2chを再起動させてみれば？
372 ：名無しさん＠お腹いっぱい。 ：01/10/03 00:58: 再起動しなくても list-mode で s でよろしいよ。
373 ：名無しさん＠お腹いっぱい。 ：01/10/03 01:19: >>350
そんな感じで OK
でも、>>n がズレてくると思うので
セパレータだけ出力した方がいいかも
374 ：mami ：01/10/03 01:37: Xemacs 問題、追っかけてみた。

>333
str に "K" があるとマズいっぽい。
これを評価すると Wrong type argument: char-or-string-p, nil が出る。
(let ((str "K"))
(string-match "K" str)
(setq str (replace-match "" nil nil str))
str)

バックトレース。
Signaling: (wrong-type-argument char-or-string-p nil)
replace-match("" nil nil "K")
(setq str (replace-match "" nil nil str))
)
(let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str)
)
eval((let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str))
eval-interactive((let ((str "K")) (string-match "K" str) (setq str (replace-match "" nil nil str)) str))
eval-last-sexp(t)
#<compiled-function nil "...(20)" [standard-output terpri eval-last-sexp t] 2 907969 nil>()
call-interactively(eval-print-last-sexp)

ごめん、これでいっぱいいっぱい。
375 ：mami ：01/10/03 01:39: 「str に」じゃなくて「match させる regexp に」か。
376 ：mami ：01/10/03 01:52: "K" じゃなくても "A" とかでも同様だった。
やっぱり Xemacs のバグ?

こんなパッチあてじゃダメすか?
これでうまくいくっぽいんだけど。

*** navi2ch-net.el.orig Wed Oct 3 01:48:52 2001
--- navi2ch-net.el Wed Oct 3 01:49:00 2001
***************
*** 316,322 ****
(when (string-match "^\$.+\$ \$.+\$\n" cont)
(setq state (match-string 1 cont))
(setq data (match-string 2 cont))
! (setq cont (replace-match "" nil nil cont)))
(when (and (string-match "\$OK\\|INCR\$" state)
(string-match "\$.+\$/\$.+\$K" data))
(setq cont-size (string-to-number (match-string 1 data))))
--- 316,322 ----
(when (string-match "^\$.+\$ \$.+\$\n" cont)
(setq state (match-string 1 cont))
(setq data (match-string 2 cont))
! (setq cont (replace-match "" t nil cont)))
(when (and (string-match "\$OK\\|INCR\$" state)
(string-match "\$.+\$/\$.+\$K" data))
(setq cont-size (string-to-number (match-string 1 data))))
377 ：mami ：01/10/03 02:07: >370
板一覧の「その他」のとこに「漫画」ってのが出るから、
そっちを見るべし。
つーか、>366 で解決か?
378 ：253 ：01/10/03 02:27: XEmacs20.4でも、同じエラーが出ましたね。
(ふだんは、21.1.14でエラーなし)

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "b" nil nil cont)))
=> "B"

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "" nil nil cont)))
=> (wrong-type-argument char-or-string-p nil)

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "" t nil cont)))
=> ""

(let ((cont "A"))
(if (string-match "a" cont)
(replace-match "" nil t cont)))

=> ""

というように、引数が ("" nil nil cont) の時だけ変！
とりあえず、(replace-match "" t nil cont) でいいんじゃない？
あるいは、(substring cont (match-end 0)) とか
＞ navi2ch-net.el

# ちなみにXEmacs20.4だと、書式の違いで menubar が使えない。
379 ：378 ：01/10/03 02:29: 253ってのはまちがいっす。

>>376
おもいっきりかぶってしもた。

欝～
380 ：名無しさん＠お腹いっぱい。 ：01/10/03 02:31: XEmcas21.4.4で上から"B","","",""だった。
バージョンに依存するのかな。うまくビルド出来てないとか。
381 ：(not 1) ：01/10/03 02:53: ・でてきた patch を大体当てた
・aadisplay の呼び出しで coding-system を指定するようにした
・巡回中 gunzip できなかったときに止まらないようにした

です。

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

>>330
変えときます。

>>341
どうもです。patch をちょっと変えて変更しときました。

>>343
> 起動できるようになりましたが化けてしまいます。文字コードが EUC じゃないと
文字コードを指定するようにしてみました。どうでしょう？

> あとバージョンが古くないだろうなと navi2ch-version を調べたら "1.0"
> と出たので思わず苦笑。もうちょっとマシにした方がいいのでは >作者様
> ついでに変数だけでなく関数も作ってちょ。
了解です(^^;;

>>344
> navi2ch-board-view-logo が動作しないんで、とりあえずこの
navi2ch-net-download-logo で coding-system を指定してないのがいけなかったみた
いですね。直してときました。

>>345
navi2ch-boarg-get-url の方を直しちゃいました。
344 の方もそうなんですが、patch を頂いたのにすいません。

>>348,349
すばらしいです。当てときました。
>>349 の subject が nil の時の表示は navi2ch-bm-empty-subject を表示するように
変えました。
あと、普通に RET とかで開いたときにも同じ動作をするようにするのと、bookmark に
入り直さなくても subject が書き変るようなコードも書いてみませんか？:-)
382 ：(not 1) ：01/10/03 02:54: 続き

>>350
> filterってどう書けばいいんですか?
大体そんなんです。>>373 さんも書いてますけど、改行だけは残すようにしないと >>n
がずれちゃいます。
例えば、
mona
gikoneko
zonu
ってあったら
mona

zonu
と表示するようにしてください。
;; 俺も半分忘れかけてました。

>>355
> html に落とせるようになれば尚便利だと思うんですが。
html でも今のテキストでもあんまし変らなくないですか？
>>n を辿れるようにしたいって事でしょうか？

>>357
> (setq navi2ch-article-use-readcgi-hosts nil) しても
今は navi2ch-enable-readcgi を使うようになってます。
>>293 を参照。

>>374-376
>>376 の通りにしてみました。これで >>329 さんも大丈夫でしょうか？
でもうちの XEmacs (21.4 (patch 3) "Academic Rigor" [Lucid]) だとこの変更をしな
くても大丈夫なんですよね。
XEmacs 21.1 のバグなんでしょうかねぇ。
;; 但しうちの XEmacs は i586-pc-win32 なのでどっか違うのかもしれないですが
383 ：(not 1) ：01/10/03 03:00: 書き忘れ。
うちの Meadow だとたまーに gzip の展開に失敗するんですが、他の方はどうなんでしょ
うか？Windows 環境固有の問題なのかな。

あと、問題と言えば俺の文章を書くスピードの遅さですね。
上の二つのレスを書くのに30分以上かけてたりします・・・。
384 ：mami ：01/10/03 03:10: >382
どもです。
>329 はうちと同じ現象なんで、たぶんおっけーでしょう。
385 ：名無しさん＠Ｅｍａｃｓ ：01/10/03 04:36: >383
Meadow 1.15 pre1 ですけどまったくエラーなしでつかえてます。
386 ：名無しさん ：01/10/03 08:53: 誰か新機能を説明してくれませんか?
lispが読めない私には謎の言葉が飛び交っているようにしか見えません(泣
387 ：名無しさん＠お腹いっぱい。 ：01/10/03 14:21: >>376,>>382
こんなパッチがあたってました。< 'replace-match のエラー
ttp://list-archive.xemacs.org/xemacs-patches/200010/msg00009.html

このあと、2001:01:07にXEmacs21.1.13がリリースされてます。
#みなさん、なるべく最新の安定版を使いましょう。
388 ：名無しさん＠お腹いっぱい。 ：01/10/03 15:01: >From: [381] (not 1) <>
>Date: 01/10/03 02:53

> # $FreeBSD: ports/japanese/navi2ch-emacs20/Makefile,v 1.23 2001/10/02 18:13:33 sf Exp $

20分後にcommitされてる。。。
389 ：348 ：01/10/03 18:41: >381 (not 1)さん
いつもありがとうございます。俺のへたれコード直してもらえてうれしいです。
bookmark-fetch を "m i" に割り当てるのを忘れていたのでパッチです。

history 編集の方で、すでに閲覧しているスレに関して動作がおかしい
ことに気が付いたので、後日修正したいと思います。

--- navi2ch-bookmark.el.~1~ Tue Oct 2 01:17:38 2001
+++ navi2ch-bookmark.el Wed Oct 3 18:25:41 2001
@@ -35,6 +35,7 @@
(copy-keymap navi2ch-bm-mode-map))
;; (define-key navi2ch-bookmark-mode-map "q" 'navi2ch-bookmark-exit)
(define-key navi2ch-bookmark-mode-map "i" 'navi2ch-bookmark-fetch-article)
+ (define-key navi2ch-bookmark-mode-map "mi" 'navi2ch-bookmark-fetch-mark-article)
(define-key navi2ch-bookmark-mode-map "d" 'navi2ch-bookmark-delete)
(define-key navi2ch-bookmark-mode-map "\C-k" 'navi2ch-bookmark-cut)
(define-key navi2ch-bookmark-mode-map "\C-y" 'navi2ch-bookmark-yank)
@@ -335,6 +336,10 @@
(navi2ch-bookmark-add-subr
navi2ch-bookmark-current-bookmark-id board article))))
state))
+
+(defun navi2ch-bookmark-fetch-mark-article ()
+ (interactive)
+ (navi2ch-bm-exec-subr 'navi2ch-bookmark-fetch-article))

(provide 'navi2ch-bookmark)
390 ：一ユーザ ：01/10/03 19:24: こんにちは，いきなりしつもんなのですが，
navi2ch で，JBBSを見ることってできます?
見れるとすれば，どのように設定したらよいのですか?
識者の方教えてくださいまし．
391 ：mami ：01/10/03 19:40: >390
おれも知りたい。
.dat 直読みができないから前はだめだったけど、
今は read.cgi に対応してるから可能性あり?
392 ：遅れた…鬱だ… ：01/10/03 21:12: 乗り遅れました(-＿-)
http://navi2ch.tripod.co.jp/navi2ch-011003-1.noarch.rpm
http://navi2ch.tripod.co.jp/navi2ch-011003-1.src.rpm
393 ：(not 1) ：01/10/03 22:17: >>384
> >329 はうちと同じ現象なんで、たぶんおっけーでしょう。
了解。

>>385
> Meadow 1.15 pre1 ですけどまったくエラーなしでつかえてます。
んー、じゃあうちだけなんですかねぇ。
ただ、起きないときは全然起きないのが悩ましいところです。

>>386
> 誰か新機能を説明してくれませんか?
新機能といえるのは、 history でも bookmark みたいに C-k C-y で編集できるように
なった事くらいです。

>>389
> bookmark-fetch を "m i" に割り当てるのを忘れていたのでパッチです。
あてときます。

> history 編集の方で、すでに閲覧しているスレに関して動作がおかしい
> ことに気が付いたので、後日修正したいと思います。
ん、実はその辺の動作を全然見ていないのでした。
よろしくお願いしますです。

>>390,391
まちBBSも raw mode でスレを取ってこれるんですか？
だったら結構簡単に対応できちゃうと思います。
後でちょっと試してみますね。
394 ：(not 1) ：01/10/03 22:30: >>393
> まちBBSも raw mode でスレを取ってこれるんですか？
勘違い。JBBS ですね(^^;
395 ：名無しさん＠お腹いっぱい。 ：01/10/03 22:54: >>376
> ! (setq cont (replace-match "" t nil cont)))

Debian stableな(emacs-version)→
"21.1 (patch 10) \"Capitol Reef\" XEmacs Lucid"
だが、上のpatchで直った。よって報告。さげさげ。
396 ：名無しさん＠お腹いっぱい。 ：01/10/03 23:03: >>394
offlaw.cgiを使うのでは？
例: http://green.jbbs.net/computer/bbs/offlaw.cgi?BBS=479&KEY=1000348745
397 ：名無しさん＠お腹いっぱい。 ：01/10/03 23:30: >>328
> >>324
> これもうちだと大丈夫だったりします。
> light だと下線は付くんですよね？

すんません、色は着いていたようです。SkyBlue と LightSkyBlue
との違いに気付かなかっただけです(w でも、これは light な
設定に較べて色の違いが微妙すぎる気がします。デフォルトの値
としてはどんなもんでしょうか… 俺は customize-face で Pink
にしちゃいましたが(w

ここのところニュース速報版に書き込むことができないんですが、
他の人はどうでしょうか?
398 ：(not 1) ：01/10/03 23:42: >>396
offlaw.cgi って何行目からとかって指定できますか？
さっき試したら、終りの行数は指定できたんですけどで始まりの行数は指定できませんでした。
navi2ch 的には始まりの行数が指定できないとちょっとつらいです。
;; hotzonu とかのソースを見ればのってるのかな。
399 ：一ユーザ ：01/10/04 00:26: Cなら書けるんだけどなー．
Lispはすぐ忘れる．
JBBS対応きぼん．．．
400 ：396 ：01/10/04 02:50: >>398
＞offlaw.cgi って何行目からとかって指定できますか？
できるかどうかわかりません。
差分は read.cgi の html 出力を dat 形式に変換するしかないかも。

ホットゾヌでは JBBS の場合 read.cgi 経由みたいです。
401 ：329 ：01/10/04 03:37: >>393
私だけできなかったらどうしようと最新版をインストール。
で、できました・・・(感涙)。

10月3日版をインストールすると何の問題もなく表示されました。

ありがとうございました。

心配してくださったみなさんにもありがとうございました。

ちなみにうちのバージョンはXEmacs21.1.8です。
402 ：名無しさん＠お腹いっぱい。 ：01/10/04 10:20: 些細な事だが、

>>395
> だが、上のpatchで直った。よって報告。さげさげ。

「直った」は失礼か。「回避できた」に訂正。さげもげ。
403 ：名無しさん＠お腹いっぱい。 ：01/10/04 21:36: Emacs21 で動かしてみました。ひとつ気付いたのは、
レスの区切りのアンダーラインが一つになっている
ことです。しばらくすれば読み慣れはしますが。
404 ：名無しさん＠お腹いっぱい。 ：01/10/05 17:14: >>403
俺もだ。慣れたけど。
405 ：名無しさん＠お腹いっぱい。 ：01/10/05 21:15: 看板を表示する機能とかあります？
406 ：名無しさん＠お腹いっぱい。 ：01/10/05 22:09: >405
l runs `navi2ch-board-view-logo'

`navi2ch-board-view-logo' is an interactive compiled Lisp function
-- loaded from "navi2ch-board"
(navi2ch-board-view-logo)

Documentation:
その板のロゴを見る
407 ：名無しさん＠お腹いっぱい。 ：01/10/06 07:06: ブラクラだの広告だののfilterとして、

#/usr/bin/perl
while(<>) {
$_ = "\n" if /gikoneko/;
$_ = "\n" if (m!oss.jodi.org!);
$_ = "\n" if (m!cttpopnet.syo-ten.com!);
$_ = "\n" if (m!bbx.kidd.jp!);
$_ = "\n" if (m!www.url.co.jp!);
(略)
print;
}

ってなスクリプトを書いて

(setq navi2ch-article-filter-list
'(("perl" "/home/nanasi/bin/navi2ch-filter.pl")))

して、うっとうしいのをどんどん消しているつもりなんですが、
この書き方でずらずら書いてるのは面倒。
もっと簡単に書けると思うんですが、どうしたらいいっすか?
ファイルの一部にその文字列だけ書けばOKってな感じにしたいです。
こりゃnavi2chの質問じゃなくてperlですね。
408 ：名無しさん＠お腹いっぱい。 ：01/10/06 08:24: navi2ch+emacs-w3mつかっててなかなかいい感じなんだけど、
.jpgへのリンクはbrowse-urlにまかせずに
とってきてxliあたりで表示するようになんないかな。
409 ：すんでのところで ：01/10/06 10:56: >>408
こんなんでどう?

begin 644 browse-image.patch.gz
M'XL("$9?OCL``V)R;W=S92UI;6%G92YP871C:`#%55&/FT80?K9_Q11%-3B'
M96.?<_$]5">UJ5I5:=4DN@?'4M8PP+:PBW:7<^_?=W8!F_B..E(B%2$$R^S,
M?#/??C.=3D&P!Q[%>?C`E)YA,9.*9Z-WS,#OL0%8PV*^62PVRP5$\_EB'(;A
M^8YSXYO-\KHQGGY^V6]8KE]=+5]%X!:L-[=P$P&]AV.@:V,>*X3)7LH"F6B6
M,B7K"B9=9*8,CPL,Z.?X)?@)IG&MC2R/J>V5/&@,:U6$O&09AI62F6)DP`O:
M`>!-W^=(YB6"3,'0>[-%06=9:TQ@_PB?AGQ.9IYSU>;KQ[GD,8(VBHL,_%@*
M;>@GR\![*P5Z-G80-%N&\+S\4CQ,9;H'Y@X*3M$(2A->`_G@PB8B*\,I%4BE
M&L;2U><<D\(*J;M^"ZI!<Z>RND1AO"]``W![>PLE:DU1@!C#V;Y`3>O/H&S-
M0BJ]"FUO7/-]GH*?4AHU90.3?[!DL0X<F;J-M>'%`'?GUYO%ZZ?<;7><<_=Z
MLUH,<S=:SZ^B]>N&NS!PC=N'Q5>+9SH(/CV"\7<6VFG5?</QQ=(G`=_?RUHD
MA+K7,(&'\,!%(@]A%<#0#W(SNK@_+5@VY,+]HVL,31<A5=0J5F'Q%%Q5FY`Y
M!OK<8$E]+FH$MQ*XLKO*W=R<#OE75ZZM#Z/GQ4-_"^Y;-Z5M+Y_.0\OKL&0F
MSL'[.-O^^M=N^T>UV_Z$NQ^V/V>[%QZT,4?PC#E9;'_AN^V;])*E=?I6['H^
M@Z#+QQ]"T-BU9K[I\X5`29(MU0=U9`]\.PI]$PXY#'0/=K:%:_L+WS>*Q0HX
M>6IJ0"0\+0'/A%28N#_>G?[;J?C]_?U1R9T$MB(^*'A@)!22)?#AS]]FY.M'
M3%E=&+ML_=$J,&4+`,27/9**(E22"S,#N*,S@3J'6%:/[1@A#UUXKDF,20LI
M`U)'+H#9[.U\B4GGX,!-3IZTYB2(P)*$MZA9*Z^VLT_SML(_H=CO<_)/-ZO(
M846R:M!)?!N=_.<\SLE%(L7$3H:44F+6I+2I*BPE[2"*&"4+4GUWJ`@6*A8;
M_H!]KH6]=9L`>%26#7@M-9U`"VDN'L0CDU$I2I7&XI->^9='5'",2]B+1YBX
M*H==72WM8W8Y&7>VW`CMJ<*E37U;&Q[_2W[<C/:=+#;G_>NU]+FIM(J65ZMH
MW4VET9FFG/Q--**PB$\I2Z:2,*Z5(KXU7R[)D?^YA6;4>"Y2&70HZ"Q321YX
M@J>Y;V=J,/X(U%8B>D']!.J#+1$1+N4%NE&P6D57J]5U-PK^[W3_!89I(/$#
#"P``
`
end

URLを引数にとらないviewerはこんなwrapping script用意して。
#! /bin/sh
if [ $# -ne 1 ]; then echo Usage: $0 URL 2>&1; exit 1; fi
tmpfile=/tmp/tt$$
wget url -O $tmpfile
xv $tmpfile
rm $tmpfile
410 ：名無しさん＠お腹いっぱい。 ：01/10/06 11:44: >>407 こんなのどう？

#!/usr/bin/perl

$listfile = "$ENV{'HOME'}/.navi2ch_killlist";

$listfile = shift(@ARGV) if( -f $ARGV[0]);

open(LIST, "<$listfile") || die("1<><>01/01/01 00:00<>can not open kill list.<>\n");
while(<LIST>){
chomp;
($category, $uri) = split(/\s/, $_);
next if($category eq '' || $uri eq '');
$list{$uri} = $category;
}
close(LIST);

while(<>){
foreach $uri (keys(%list)) {
last if(s/$uri/DELETED($list{$uri}: $uri)/);
}
print;
}

インデント崩れるかな。
で、~/.navi2ch_killlist って file に、

SPAM http://www1.freehost.ne.jp/~gikoneko/onnanoko.html
グロ http://duffus.ops.uunet.co.za/~nic/gallery/splat.jpg
グロ http://vagina.rotten.com/motorcycle/motorcycle.jpg

とか、書いておく。

板違いにてsage。
411 ：410 ：01/10/06 11:49: >>410 下から三行目、

s/$uri/DELETED($list{$uri}: $uri)/g;

とかでないと複数書かれた時に対処できなかった。
板違いの上に間違えた。鬱だ。逝ってくる。
412 ：すんでのところで ：01/10/06 13:05: >>409
あ、書き忘れた。
navi2ch-browse-url-image-program
navi2ch-browse-url-image-args
を設定してちょ。

navi2ch-article-*じゃないけど、navi2ch-article :groupに入れちゃった…
413 ：遅レス ：01/10/06 21:16: >>406
thanks.
414 ：348 ：01/10/07 03:05: >389 history 編集の動作がおかしい

delq の使い方を間違っていました。おはずかしい。

--- navi2ch-history.el.~1~ Sun Oct 7 03:01:37 2001
+++ navi2ch-history.el Sun Oct 7 03:01:36 2001
@@ -164,7 +164,7 @@
(if item
(let ((pair (assoc item navi2ch-history-alist))
(buffer-read-only nil))
- (delq pair navi2ch-history-alist)
+ (setq navi2ch-history-alist (delq pair navi2ch-history-alist))
(delete-region (point) (save-excursion (forward-line) (point)))
(navi2ch-bm-renumber))
(message "Can't select this line!")))))
415 ：名無しさん＠お腹いっぱい。 ：01/10/07 10:24: 現在 navi2ch は geocities で公開されてますが、
geocities に置かれたコンテンツは実質的に Yahoo! のものになってしまう
みたいです。どこかよそに移した方がいいのかも?

ここにもうちょっと詳しい話があります。
http://slashdot.jp/article.pl?sid=01/10/06/2048212&mode=thread&threshold=
416 ：名無しさん＠お腹いっぱい。 ：01/10/07 13:41: >>409
ごっつさんきゅ。すげーいい。

とりあえずImageMagikで

(setq navi2ch-browse-url-image-program "display")

しておいたけど、displayは"q"一発じゃ終了してくれないのが
ちょっとアレだ。他にURLを直接読めるイメージビューワーないかな。

>>410
これもサンクス。

このふたつ組みあわせると画像リンクもたのしめる。
417 ：名無しさん＠ＸＥｍａｃｓ ：01/10/07 17:56: >416
^Q なんだよね… > display
なんか最近 navi2ch なキーバインドに慣れすぎて、 Mew とかで混乱
しちゃうよ(w
418 ：名無しさん＠お腹いっぱい。 ：01/10/07 18:54: >>417
さんく。知らなかったよ。世界には知らんことがたくさんある。
419 ：名無しさん＠お腹いっぱい。 ：01/10/07 19:00: >>407 のように、ただ消すだけじゃなくて
マークする方がエレガントだってのにも気づいたよ。
さんきゅ。
420 ：名無しさん＠お腹いっぱい。 ：01/10/07 20:48: eeがq一発で終了じゃなかったっけ？
>417
wlのキーバインドをnavi2ch風に改造してます。
1で全画面。jkで上下スクロールとか。
421 ：名無しさん＠お腹いっぱい。 ：01/10/07 23:13: navi2ch の色んな mode で j、k に自分で
上下移動関係のコマンドに割当てている。
オリジナルのちょっと甘いからね。
422 ：ななし ：01/10/08 07:20: Solaris8(x86) + xemacs21.1.14 で、10./3 の Navi2ch を
gmake したのですが、エラーが出て作れません。
エラーは、「timezone の load に失敗しました」というものです。
（今、Windows からなので、きちんとしたエラーが書けません、スマソ）

setenv TZ JST-9 を設定したのですが、変わりませんでした。
FreeBSD の時は、こんなこと無かったと思うのですが、なんででしょうか・・・

何かアドバイス、よろしくお願いします。
423 ：名無しさん＠お腹いっぱい。 ：01/10/08 10:13: >>422
メッセージそのままだと思いますが… navi2ch-{net,util}.el
で (require 'timezone) としてますので、そこでエラーが
出ているのでしょう。XEmacs は、ちゃんとインストールされて
ますか? timezone.{el,elc} は、
.../xemacs-packages/lisp/xemacs-base/ 以下にあるはずです。
424 ：名無しさん＠お腹いっぱい。 ：01/10/08 19:30: >421
それ見せてよ。
できればパッチの形で。
425 ：名無しさん＠お腹いっぱい。 ：01/10/08 19:39: 本体を直接書換えてる人は少ないと思うが
426 ：名無しさん＠お腹いっぱい。 ：01/10/09 00:27: >>424
425 が言うように、直接書き換えるのではなくキーの再割当て
をしているだけですよ。
427 ：名無しさん＠お腹いっぱい。 ：01/10/09 07:56: >426
いや、わかってるけど、
パッチならnavi2ch本体に取り込みやすいじゃん。
つーか、どう割り当ててるか教えてよ。
428 ：名無しさん＠お腹いっぱい。 ：01/10/09 19:14: >>427
単に泥臭くやってるだけなんだけど。

(define-key navi2ch-list-mode-map "j" 'next-line)
(define-key navi2ch-list-mode-map "k" 'previous-line)
(define-key navi2ch-board-mode-map "j" 'next-line)
(define-key navi2ch-board-mode-map "k" 'previous-line)
(define-key navi2ch-article-mode-map "j" 'navi2ch-article-next-message)
(define-key navi2ch-article-mode-map "k" 'navi2ch-article-previous-message)
(define-key navi2ch-bookmark-mode-map "j" 'next-line)
(define-key navi2ch-bookmark-mode-map "k" 'previous-line)
(define-key navi2ch-history-mode-map "j" 'next-line)
(define-key navi2ch-history-mode-map "k" 'previous-line)
(define-key navi2ch-search-mode-map "j" 'next-line)
(define-key navi2ch-search-mode-map "k" 'previous-line)

navi2ch-article-mode-map では、オリジナルは navi2ch-article-few-scroll-{up,down}
に割当ているけど、自分の好みに合わせている。というか、オリジナルで
j、k に何にも割当てられていない時からこうしている。

以前過去スレで作者が書いたコードを流用すれば、もっとすっきりする。
こっちの方がいいかもしれない。

(defun navi2ch-bm-define-key (key func)
(dolist (map '(navi2ch-board-mode-map
navi2ch-history-mode-map
navi2ch-bookmark-mode-map
navi2ch-search-mode-map))
(define-key (symbol-value map) key func)))
(navi2ch-bm-define-key "j" 'navi2ch-bm-next-line)
(navi2ch-bm-define-key "k" 'navi2ch-bm-previous-line)
(define-key navi2ch-list-mode-map "j" 'next-line)
(define-key navi2ch-list-mode-map "k" 'previous-line)

何にせよ、趣味の問題だからオリジナルで割当てる必要はないと思う。
429 ：名無しさん＠お腹いっぱい。 ：01/10/09 20:47: 今だ！429番ゲットォォォォォ
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;
　　　　　　ズザーーーーーッ

このようなAAをうまいこと保存したり貼り付けたりするような
機能って出来ませんか？
430 ：　：01/10/09 21:02: ギコペ
431 ：名無しさん＠お腹いっぱい。 ：01/10/09 21:47: C-x r s でレジスタに保持。
432 ：すんでのところで ：01/10/10 01:34: >>429
> このようなAAをうまいこと保存したり貼り付けたりするような
> 機能って出来ませんか？

Interface考えてくれや。AAのコピベはやらんから、どんな形態が便利か分からん。
そのままcodingすると約束は出来ないが。

掲示板に戻る全部前100 次100 最新50

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