| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[260:(not 1) (2001/01/08(月) 19:39)]
・>>251, >>257, >>258 に対応。
・http://cocoa.2ch.net/test/read.cgi?bbs=unix&key=976032951
みたいなのは navi2ch で開くように。
・article buffer の modeline に (レス数/総レス数) を表示するように。
・ M-u (navi2ch-article-uudecode-message) が動かなくなってたのを修正。
です。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010108.tar.gz
>>259
> >>255
> お世話になっております。
> そしていつも楽しく読ませていただいております。
いえいえ。
> ということでしたらごめんなさい。
> 作者の方さえよろしければ、
俺は全然構わないです。どんどん作っちゃって下さい。
[261:253 (2001/01/08(月) 19:53)]
>260
vine1.1はmule(19.34)でした。emacs入れたらできました。
>259
RPM初めてつくろうと思いましたが、
Specファイルの%filesセクションに追加するファイルはどこでわかるのですか？
普通は実行ファイルと２，３のドキュメントファイルを追加でいいのですが
スクリプトなどのファイルが多数あった場合を知らないんです。
Makefileでも覗くのでしょうか？
[262:259 (2001/01/08(月) 20:32)]
>>260
ありがとうございます。
rpmを作るのが初めてでして、到らぬ点が多々あるとは
思いますが、お許しください。
>>261
make DESTDIR=/home/hoge/tmp/ install
でいかがでしょうか。指定ディレクトリを/とみなして
インストールしてくれます。
そのあと、findで ~/tmp/以下のファイル一覧を出し、
specファイルに貼り付け＆適宜編集という感じで
やっております。
私は、自分で自分が何をやっているのかわかっていない
人間でして(自爆)、手段としてベストではないかも
しれませんが…御参考になれば。
[263:259 (2001/01/08(月) 21:58)]
というわけで。
http://nanashi_san_at_emacs.tripod.co.jp/
[264:010108.tar.gz on xemacs (2001/01/09(火) 11:07)]
Signaling: (wrong-type-argument stringp nil)
string-match(" <br> " nil nil)
#<compiled-function (x) "...(202)" [x navi2ch-article-inside-range-p range list split-string "\\(,\\|<> *\\)" nil list2 strs name mail date 2 data 3 str case-fold-search start string-match " <br> " replace-match "\n" navi2ch-article-parse-field-list elt --dolist-temp--20500 navi2ch-replace-html-tag] 6>((281 . ""))
mapcar(#<compiled-function (x) "...(202)" [x navi2ch-article-inside-range-p range list split-stri
navi2ch-board-select-article(nil)
call-interactively(navi2ch-board-select-article)
[265:elc消してみた (2001/01/09(火) 15:21)]
一部省略
Signaling: (wrong-type-argument stringp nil)
string-match(" <br> " nil nil)
(setq start (string-match " <br> " str start))
)
(while (setq start (string-match " <br> " str start)) (setq str (replace-match "\n" nil nil str)))
)
(let (start) (while (setq start ...) (setq str ...)))
)
(let ((case-fold-search nil) str) (setq str (cdr ...)) (let (start) (while ... ...)) (setcdr (assq ... list2) str) (dolist (elt navi2ch-article-parse-field-list) (setq str ...) (setq str ...) (setcdr ... str)))
)
(let ((strs ...) list2) (setq list2 (list ... ... ... ...)) (let (... str) (setq str ...) (let ... ...) (setcdr ... str) (dolist ... ... ... ...)) (cons (car x) list2))
)
(if (and (stringp ...) (navi2ch-article-inside-range-p ... range ...)) (let (... list2) (setq list2 ...) (let ... ... ... ... ...) (cons ... list2)) x)
)
(lambda (x) (if (and ... ...) (let ... ... ... ...) x))((265 . ""))
(setq message-list (mapcar (lambda ... ...) list))
)
(let ((first ...) (last ...) message-list) (message "parsing current messages...") (setq message-list (mapcar ... list)) (message "parsing current messages...done") message-list)
)
navi2ch-article-parse-message(((1 . "名無しさん＠お腹いっぱい。,,2000/12/06(水) 01:15,WindowsとかMac OSとかには2ch用専用アプリがあるけど <br>
(setq list (navi2ch-article-parse-message list range) navi2ch-article-message-list list)
)
(let ((buffer-read-only nil)) (erase-buffer) (setq list (navi2ch-article-parse-message list range) navi2ch-article-message-list list) (navi2ch-article-insert-messages list range))
)
(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 ...) updated) (unless navi2ch-offline (setq updated ...)) (cond (first ...) (updated ... ...)) (let (...) (erase-buffer) (setq list ... navi2ch-article-message-list list) (navi2ch-article-insert-messages list range)) (navi2ch-article-open-number) (setq mode-line-buffer-identification (concat ... " (" ... "/" ... ")")) (force-mode-line-update t) list)
)
navi2ch-article-sync(nil t)
(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-sync force t))
)
(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-sync force t)))
)
navi2ch-article-view-article(((name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) ((subject . "Navigator for 2ch") (response . "257") (artid . "976032951")) nil)
(setq state (navi2ch-article-view-article navi2ch-board-current-board article force))
)
(save-excursion (setq state (navi2ch-article-view-article navi2ch-board-current-board article force)))
)
(let (state) (save-excursion (setq state ...)) (let (...) (when state ...)))
)
(progn (dolist (x ...) (delete-windows-on x)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (save-excursion ...) (let ... ...)))
)
(if article (progn (dolist ... ...) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let ... ... ...)) (message ("can't select this line!")))
)
(let ((article ...)) (if article (progn ... ... ... ...) (message ...)))
)
navi2ch-board-select-article(nil)
call-interactively(navi2ch-board-select-article)
[266:(not 1) (2001/01/09(火) 20:30)]
・>>265 の修正
・位置と名前を覚えるように。
・folder mode で q (navi2ch-exit) で buffer を全部消して終了。
z (navi2ch-suspend)で buffer を全部 burry-buffer して中断。
・Emacs の終了時に 状態の保存 (navi2ch-save-status)。
です。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010109.tar.gz
今までは、q で buffer が消えるなんてことはなかったんで注意です。
;; Q で navi2ch-exit で q で navi2ch-suspend の方がよかったかなぁ。
>>262
> rpmを作るのが初めてでして、到らぬ点が多々あるとは
いえいえ。俺なんか作ったことすらないですし。
んで、配布場所から一応リンク張っときました。
>>264,265
ただエラーを出なくしただけなんで、全然ダメかもです。
;; もしかしたらエラーも出るかもしんないし。
;; というより何で str が nil になんのか良く分かってない・・・(汗)。
[267:名無しさん＠お腹いっぱい。 (2001/01/10(水) 02:37)]
すみません、遅れました。
http://nanashi_san_at_emacs.tripod.co.jp/navi2ch-010109-1.i386.rpm
http://nanashi_san_at_emacs.tripod.co.jp/navi2ch-010109-1.src.rpm
>>266
お世話になっております。
こちらからもリンクを貼らせていただきますm(_ _)m
[268:267 (2001/01/10(水) 05:54)]
未熟なspecファイルを識者の方に直していただき、
それをかなりパクり、rpmを作り直しました。
今度はマシになったと思います。
http://nanashi_san_at_emacs.tripod.co.jp/
[269:265 (2001/01/10(水) 07:55)]
なんか、一番最後で出ているようですが(010109.tar.gz)
以下のように出ています。
>>261
make DESTDIR=/home/hoge/tmp/ install
でいかがでしょうか。指定ディレクトリを/とみなして
インストールしてくれます。
そのあと、findで ~/tmp/以下のファイル一覧を出し、
specファイルに貼り付け＆適宜編集という感じで
やっております。
私は、自分で自分が何をやっているのかわかっていない
人間でして(自爆)、手段としてベストではないかも
しれませんが…御参考になれば。
From: [263] 259 <sage>
Date: 2001/01/08(月) 21:58
というわけで。
http://nanashi_san_at_emacs.tripod.co.jp/From: [264] 010108.tar.gz on xemacs
Date: 2001/01/09(火) 11:07
Signaling: (wrong-type-argument stringp nil)
string-match(" <br> " nil nil)
#<compiled-function (x) "...(202)" [x navi2ch-article-inside-range-p range list split-string "\\(,\\|<> *\\)" nil list2 strs name mail date 2 data 3 str case-fold-search start string-match " <br> " replace-match "\n" navi2ch-article-parse-field-list elt --dolist-temp--20500 navi2ch-replace-html-tag] 6>((281 . ""))
mapcar(#<compiled-function (x) "...(202)" [x navi2ch-article-inside-range-p range list split-stri
navi2ch-board-select-article(nil)
call-interactively(navi2ch-board-select-article)From: [265] <>
Date:
read.cgi ver5.26+ (01/10/21-)