| レス数が950を超えています。1000を超えると表示できなくなるよ。 |
Navigator for 2ch
[462:431 (2001/03/23(金) 09:38)]
> mona font のコードを使わせてもらいました。どうもです。
おおぉ、まさか取り込んでもらえるとは!
こちらこそどうもです。すげ〜感動ッス。
> mona font の辺りは全然テストできてないんで(一応違う
> face 使ってやってみだけど)動かない可能性大です。
一応、直してみました。
--- navi2ch-mona.el.orig Thu Mar 22 04:50:54 2001
+++ navi2ch-mona.el Fri Mar 23 08:59:29 2001
@@ -25,7 +25,7 @@
;;; Commentary:
;; (require 'navi2ch-mona)
-;; (add-hook 'navi2ch-article-arrange-message-functions
+;; (add-hook 'navi2ch-article-arrange-message-hook
;; 'navi2ch-mona-arrange-message)
;; すればおっけ。 @@ -43,7 +43,7 @@
;; mona 用の face を作成。
(make-face 'navi2ch-mona-face)
-(set-face-property 'mona-face
+(set-face-property 'navi2ch-mona-face
'font "-mona-gothic-medium-r-*--16-*-p-*")
;; Link 以外を mona-face にする
@@ -73,8 +73,10 @@
(when (or (member id navi2ch-mona-enable-board-list)
(and (not (member id navi2ch-mona-disable-board-list))
navi2ch-mona-enable))
- (navi2ch-put-mona-face beg end))
+ (navi2ch-mona-put-face))
(when navi2ch-mona-pack-space-p
(navi2ch-mona-pack-space))))
+
+(provide 'navi2ch-mona)
;;; navi2ch-mona.el ends here
[463:ロッソ＠Ｅｍａｃｓ (2001/03/23(金) 11:50)]
〃
（中」中）ノ バイク板が見えないです…
[464:名無しさん＠お腹いっぱい。 (2001/03/23(金) 12:36)]
見えてるよ。
[465:ロッソ＠Ｅｍａｃｓ (2001/03/23(金) 12:44)]
〃
（中」中）ノ 本当だ… でも、 Emacs だと見えてるのに、XEmacs だと見えませんね…
[466:ロッソ＠Ｅｍａｃｓ (2001/03/23(金) 15:47)]
〃
（中」中）ノ 失礼しました… XEmacs 用は ./configure --with-xemacs で make しないとだめなんですね。安易に同じファイルを共用しようとしてました。
[467:名無しさん＠Ｅｍａｃｓ (2001/03/24(土) 08:40)]
ううむ‥‥
Symbol's function definition is void: set-face-property
mona font 入ってんですけど‥‥。
Emacs-Lisp じぇんじぇんわかりません‥‥。
[468:(not 1) (2001/03/24(土) 15:36)]
・board 系で S でソートできるように
・board 系で g でその位置の板をデフォルトに
・global bookmark の id を 'bmark' に
・mona を直した
・article で v で aa を見る
・article で Q で その板に戻る
・article で L で l したのを戻す
です。
http://www.geocities.co.jp/SiliconValley-Oakland/7673/navi2ch-010324.tar.gz
ソートは番号、状態(CVU)、タイトル、その他(レス数か板名)でできます。
C-uS で逆順にソートです。
bookmark の id(g したときのあれ) を 'bmark' にしたのはただ俺が打つのが面倒臭かったから。勝手に変えちゃってごめんなさい。
aa を見るのは Windows だとデフォルトで dialog で見る。
Unix だとデフォルトで >>134 さんの aadisplay を起動です。
aadisplay は
http://www.geocities.co.jp/SiliconValley-Oakland/4550/
からどうぞ。
article での L はブラウザの進むみたいな感じです。
l で戻りすぎたときとかに使うと便利かも。
>>462
> こちらこそどうもです。すげ〜感動ッス。
そんな感動されても・・・(^^;;
> 一応、直してみました。
やっぱダメダメでしたね。テストしてなさすぎ。
>>466
はい、elc ファイルは共用はできないです。
同じ Emacs でもバージョンが違ったりしてもだめだったかな。
ってかロッソってコテハンなの？
それともモナーみたいなキャラクターなんかな。
>>467
> ううむ‥‥
> Symbol's function definition is void: set-face-property
あ、mona font 使うのは Xemacs 以外じゃ動かないはずです。
Emacs21 でもフォントの指定のしかたが分かれば動くかも。
情報募集中です。
Emacs20 な人は代りに v とか押してみて下さい。
あとは検索と過去ログくらいかなぁ。
[469:467 (2001/03/25(日) 08:09)]
>>468
> あ、mona font 使うのは Xemacs 以外じゃ動かないはずです。
あ、そうでしたか。どうもすみません。
というわけで、XEmacs で ~/.xemacs.el に
(require 'navi2ch-mona)
(add-hook 'navi2ch-article-arrange-message-hook
'navi2ch-mona-arrange-message)
(setq navi2ch-mona-enable-board-list '("mona"))
でモナー板で mona font が使えるようになりました、
と動作報告しておきます。
# rpm はもうアップデートされないのかな‥‥。
[470:名無しさん＠ＸＥｍａｃｓ (2001/03/25(日) 12:31)]
navi2ch で初書き込み。なかなかいい感じです。
感謝あげ。
README の
>使い方:
> load-path の通ったところにファイルを全部置く
は、ちょっとアレかなと。慣れてる人は
%./configure; make
#make install
すればいいとすぐに分かるけどね。
[471:450=451 (2001/03/25(日) 12:34)]
>>455 (not 1)さん
報告遅れてすまんです。010324 版でも >>451 と同様のエラーが発
生しました。.emacs の内容を navi2ch 最小限にしても駄目です。
*.elc を作らずに起動して backtrace を取りました。
split-window(nil 10)
# bind (old-w old-point size window-full-p new-w bottom moved arg)
split-window-vertically(10)
(progn (dolist (x ...) (when x ...)) (split-window-vertically navi2ch-board-window-height) (other-window 1) (let (state) (setq state ...) (save-excursion ... ...)))
)
(if article (progn (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)
# bind (command-debug-status)
call-interactively(navi2ch-bm-select-article)
# (condition-case ... . error)
# (catch top-level ...)
以下はその時の .emacs
(setq load-path (append '("~/xelisp") load-path))
(require 'navi2ch)
(cond
((string-match "XEmacs" emacs-version)
(require 'navi2ch-mona)
(setq navi2ch-mona-enable-board-list '("mona")
navi2ch-mona-pack-space-p t)
(add-hook 'navi2ch-article-arrange-message-hook
'navi2ch-mona-arrange-message)))
read.cgi ver5.26+ (01/10/21-)