| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[541:名無しさん＠お腹いっぱい。 (2001/04/19(木) 05:57)]
XEmacs だと expire がエラーになるっす。
Wrong type argument: stringp, nil
になるっす。
[542:(not 1) (2001/04/19(木) 07:55)]
>>541
> XEmacs だと expire がエラーになるっす。
> Wrong type argument: stringp, nil
うちでも global bookmark とかだとそうなりますね。
普通の板(unix 板とか)でもそうなりますか？
なるのであれば backtrace をお願いします。
;; Wrong type argument になるのはエラー処理をサボってるから :-)
[543:名無しさん＠お腹いっぱい。 (2001/04/19(木) 10:18)]
>>542
.xemacs.el に
(add-hook 'navi2ch-board-mode-hook 'navi2ch-board-expire)
を入れて UNIX 板に入ったときのばっくとれーすれす。
Signaling: (wrong-type-argument stringp nil)
string-match("[^/]$" nil)
(if (string-match "[^/]$" uri) (progn (setq uri ...)))
)
(when (string-match "[^/]$" uri) (setq uri (concat uri "/")))
)
(let ((uri ...)) (when (string-match "[^/]$" uri) (setq uri ...)) (concat uri (cdr ...)))
)
navi2ch-board-get-uri(nil)
(let ((uri ...)) (string-match "http://\\(.+\\)" uri) (setq uri (match-string 1 uri)) (when (string-match ".+kako/" uri) (setq uri ...)) (concat uri (or file-name "subject.txt")))
)
(navi2ch-expand-file-name (let (...) (string-match "http://\\(.+\\)" uri) (setq uri ...) (when ... ...) (concat uri ...)))
)
navi2ch-board-get-file-name(nil "")
(let* ((dir ...) (list ...) (key-datevec ...)) (dolist (file list) (when ... ... ... ...)))
)
navi2ch-board-expire()
run-hooks(navi2ch-board-expire)
navi2ch-board-mode()
navi2ch-board-select-board(((name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) nil)
(cond ((eq type ...) (navi2ch-bookmark)) ((eq type ...) (navi2ch-articles)) ((eq type ...) (navi2ch-search)) (t (navi2ch-board-select-board board force)))
)
(let ((type ...)) (cond (... ...) (... ...) (... ...) (t ...)))
)
navi2ch-bm-select-board(((name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) nil)
(let ((flag ...)) (when (and ... flag) (delete-windows-on navi2ch-board-buffer-name)) (dolist (x ...) (when x ...)) (when (and flag navi2ch-list-stay-list-window) (split-window-horizontally navi2ch-list-window-width) (other-window 1)) (navi2ch-bm-select-board board force))
)
navi2ch-list-select-board(((name . "UNIX") (uri . "http://cocoa.2ch.net/unix/") (id . "unix")) nil)
(cond ((setq prop ...) (navi2ch-list-select-board prop force)) ((get-text-property ... ...) (navi2ch-list-toggle-open)) (t (message "can't select this line!")))
)
(let (prop) (cond (... ...) (... ...) (t ...)))
)
navi2ch-list-select-current-board(nil)
call-interactively(navi2ch-list-select-current-board)
[544:月光仮面おじさん登場!!! (2001/04/19(木) 18:27)]
ホームページを作ったものの、まったくアクセスが上がらな
くて悩んでいる人のためにお役に立ちましょう。
効率よく宣伝できる共有宣伝掲示板を18個設置しました。
全部宣伝して回ればなんと1,000以上の掲示板にカキコしたこ
とになり即、効果が期待できます。
しかも共有しているサイトの多い順に並べてますので
上から順に10個ほどの掲示板に宣伝しただけでも
結構な宣伝になりますよ。
さあ、今すぐここからアタック!!
http://home9.highway.ne.jp/cym10262/
[545:名無しさん＠お腹いっぱい。 (2001/04/20(金) 11:12)]
> >>521
> > 板を追加するには navi2ch-list-board-name-list に .emacs から追加しちゃっていいの？
> navi2ch-list-etc-category-alist
> に登録して下さい。>>455 参照。
これ、~/.navi2ch/board.txt.default があれば、board.txt を取得する前にこちら
を読んでもらうようにはしてもらえませんか。
なんでも elisp の alist で書くのはどうも変更する時面倒なので…
[546:(not 1) (2001/04/20(金) 22:09)]
反応ないとか言っときながら結構反応してます(笑)
>>541
> XEmacs だと expire がエラーになるっす。
すんません。俺の方が間違ってました。
とりあえず、
--- navi2ch-board.el 2001/04/20 12:54:53 1.43
+++ navi2ch-board.el 2001/04/20 12:58:50
@@ -178,6 +178,7 @@
(if (eq navi2ch-board-current-board board)
(navi2ch-board-sync force)
(setq navi2ch-board-current-board board)
+ (run-hooks 'navi2ch-board-select-board-hook)
(navi2ch-board-sync force 'first))))
(defun navi2ch-board-mode ()
な patch を当てて、
(add-hook 'navi2ch-board-mode-hook 'navi2ch-board-expire) を、
(add-hook 'navi2ch-board-select-board-hook 'navi2ch-expire)
に変えておいて下さい。
>>545
> > navi2ch-list-etc-category-alist
> これ、~/.navi2ch/board.txt.default があれば、board.txt を取得する前にこちら
> を読んでもらうようにはしてもらえませんか。
> なんでも elisp の alist で書くのはどうも変更する時面倒なので…
やっぱりそうですか？そのうちやっときます。
[547:名無しさん＠お腹いっぱい。 (2001/04/21(土) 03:54)]
投稿ごとに文字数をカウントして、
それをもとに自動でスクロールなんて
ことは可能でしょうか？
[548:名無しさん＠お腹いっぱい。 (2001/04/22(日) 00:11)]
リクエスト:
navi2ch-article-default-header-format-function で使うヘッダの face は
defvar して外から define できるようにしてくれると嬉しい。下線はどうも
嫌いだ。
[549:(not 1) (2001/04/22(日) 01:39)]
shimbun backend の sb-2ch.el なんてものを作ってみました。
;; ほとんど sb-tcup.el からの流用ですが。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/sb-2ch.el.gz
から持ってきて下さい。
これで wl とか gnus とかで 2ch が見れちゃったりします :-)
shimbun API を全然判ってないで書いたんで毎回読みにいっちゃうとか、何故か番
号が逆順に付くとかいろいろ不具合はありますが、まぁ半分遊びということで許し
て下さい。
設定は shimbun を入れた後 .emacs にこんな感じで書けば OK です。
(setq shimbun-2ch-group-alist
'(("navi2ch"
"http://cocoa.2ch.net/test/read.cgi?bbs=unix&key=976032951&ls=10")
("Emacs"
"http://cocoa.2ch.net/test/read.cgi?bbs=unix&key=967450973&ls=10")))
>>547
> 投稿ごとに文字数をカウントして、
> それをもとに自動でスクロールなんて
ん？どういう事でしょ。もうちょっと詳しく説明してもらえますか？
>>548
> navi2ch-article-default-header-format-function で使うヘッダの face は
> defvar して外から define できるようにしてくれると嬉しい。下線はどうも
> 嫌いだ。
ん〜、そうですね。やっときます。
でもそういう時は navi2ch-article-header-format-function に自分用の関数を登
録して自分好みにするのが一番いいかもしんないです。
それにしても sb-tcup とかをサクっと作っちゃう寺西さんはやっぱすごいや。
[550:る (2001/04/22(日) 01:49)]
このスレ、２ｃｈに特化したNetscape Navigatorを作るスレだと思って
一時 すごく感心してしまった。
いや、Lispが嫌いなわけではないんだけどね
read.cgi ver5.26+ (01/10/21-)