| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[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:
[270:269 (2001/01/10(水) 08:10)]
Process navi2ch connection exited abnormally with code 256
なる文字が(~/navi2ch/unix/976032951.dat に)
因みにproxy通してます
[271:名無しさん＠Ｅｍａｃｓ (2001/01/11(木) 20:30)]
r (navi2ch-article-redraw-range) が動かなくなってます。
Signaling: (void-function navi2ch-article-add-number)
navi2ch-article-add-number()
navi2ch-article-redraw()
navi2ch-article-redraw-range()
call-interactively(navi2ch-article-redraw-range)
[272:名無しさん＠お腹いっぱい。 (2001/01/13(土) 10:15)]
~~~~~~
XEmacs 21.2 (beta39) "Millennium" [Lucid] (i386-unknown-freebsd4.2, Mule)
~ make ~~~~~~~~~~~~~~~~~~~
%uname -rs
FreeBSD 4.2-STABLE
%./configure
creating cache ./config.cache
checking for a BSD compatible install... /usr/bin/install -c
checking whether build environment is sane... yes
checking whether make sets ${MAKE}... yes
checking for working aclocal... found
checking for working autoconf... found
checking for working automake... found
checking for working autoheader... found
checking for working makeinfo... found
checking for emacs... no
checking for xemacs... /usr/local/bin/xemacs
checking where .elc files should go... $(prefix)/lib/xemacs/site-lisp
updating cache ./config.cache
creating ./config.status
creating Makefile
%make
WARNING: Warnings can be ignored. :-)
if test /usr/local/bin/xemacs != no; then EMACS=/usr/local/bin/xemacs /bin/sh ./elisp-comp navi2ch-article.el; fi
Compiling /tmp/navi2ch-010109/navi2ch-article.el...
While compiling navi2ch-article-parse-message in file /tmp/navi2ch-010109/navi2ch-article.el:
** variable first bound but not referenced
** variable last bound but not referenced
While compiling navi2ch-article-insert-messages:
** variable begin bound but not referenced
While compiling navi2ch-article-exit:
** reference to free variable navi2ch-board-buffer-name
While compiling navi2ch-article-sync:
** reference to free variable navi2ch-net-force-update
** reference to free variable navi2ch-offline
** variable navi2ch-net-force-update bound but not referenced
While compiling navi2ch-article-select-view-range:
** read-char called with 1 argument, but accepts only 0
While compiling navi2ch-article-write-message:
** reference to free variable navi2ch-board-current-board
While compiling the end of the data:
** The following functions are not known to be defined:
navi2ch-expand-file-name, navi2ch-replace-html-tag,
navi2ch-insert-file-contents, navi2ch-put-alist,
navi2ch-net-update-file, navi2ch-article-add-number,
navi2ch-article-open-number, navi2ch-save-info, navi2ch-load-info,
navi2ch-2ch-url-p, navi2ch-url-to-board, navi2ch-url-to-article,
navi2ch-replace-string, navi2ch-uudecode-region
Wrote /tmp/navi2ch-010109/navi2ch-article.elc
Done
WARNING: Warnings can be ignored. :-)
if test /usr/local/bin/xemacs != no; then EMACS=/usr/local/bin/xemacs /bin/sh ./elisp-comp navi2ch-board.el; fi
Compiling /tmp/navi2ch-010109/navi2ch-board.el...
While compiling navi2ch-board-goto-board in file /tmp/navi2ch-010109/navi2ch-board.el:
** reference to free variable navi2ch-list-board-name-list
While compiling navi2ch-board-select-article:
** "can't select this line!" is a malformed function
!! error (("Compiler bug: depth conflict at tag 1"))
>>Error occurred processing navi2ch-board.el:
Compiler bug: depth conflict at tag 1
Done
*** Error code 1
Stop in /tmp/navi2ch-010109.
[273:(not 1) (2001/01/13(土) 13:30)]
>>269,271,272 のエラーを修正(多分)。
・1、 2で2、3ペインに。
・board mode で bookmark が効かなくなってたのを修正
・cache の置き場所を .navi2ch/host/id に変更。
です。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010113.tar.gz
cache の置き場所を変えたんで、
(require 'navi2ch) したあとに、M-x navi2ch-convert ってやって下さい。
やっぱ、XEmacs と FSF Emacs で動作って少し違うんですねぇ。
まぁ、問題が起こったのは俺の書き方が悪かった所ばかりなんですが(汗)。
read.cgi ver5.26+ (01/10/21-)