cvs -d:pserver:[email protected]:/cvsroot/w3 login (password は空で良い) cvs -z3 -d:pserver:[email protected]:/cvsroot/w3 co w3 cvs -z3 -d:pserver:[email protected]:/cvsroot/url co urlconfigure;make
cd url ./configure --with-lispdir=/usr/pkg/share/emacs/site-lisp/url-20020214 gmake make install cd ../w3 ./configure --with-lispdir=/usr/pkg/share/emacs/site-lisp/w3-20020214 gmake make install.emacs への設定
makoto@u 8:04:58/020214(~...w3-d/w3)> make dotemacs Added Emacs/W3 setup to /home/makoto/.emacsこれで次の行が加えられる
;;; Emacs/W3 Configuration (setq load-path (cons "/usr/pkg/share/emacs/site-lisp/w3-20020214" load-path)) (condition-case () (require 'w3-auto "w3-auto") (error nil))site-lisp の確認
makoto@u 7:59:47/020214(...emacs/site-lisp)> pwd /usr/pkg/share/emacs/site-lisp makoto@u 7:59:58/020214(...emacs/site-lisp)> ls -lagd w3* u* drwxr-xr-x 2 root wheel 2048 Feb 14 07:57 url-20020214 drwxr-xr-x 2 root wheel 2048 Feb 14 07:59 w3-200202142002/02/14
require: Cannot open load file: w3-fast-parseということなので、w3-fast-parse を http://savannah.gnu.org/cgi-bin/viewcvs/w3/w3/lisp/w3-fast-parse.el からもらって来て、
emacs -batch -f batch-byte-compile w3-fast-parse.el
してから site-lisp の方に写しておく
error in process filter: w3-draw-tree:
Symbol's value as variable is void: font-running-xemacs
と言われるので、とりあえず、
(setq font-running-xemacs nil)
と書いておく。
つまり、
;;; Emacs/W3 Configuration ;; (setq load-path (cons "/usr/pkg/share/emacs/site-lisp/w3-20020214" load-path)) (condition-case () (require 'w3-auto "w3-auto") (error nil)) (setq font-running-xemacs nil)( load-path の設定は不要なので、無効にしてある) とだけ書いた ~/.emacs-w3 というものを用意して、
emacs -q -l ~/.emacs-w3としてから M-x w3 とすると、次のような字は出るが、右側のような画面が開くはず。
error in process filter: widget-before-change: Text is read-only: "Attempt to change text outside editable field" error in process filter: Text is read-only: "Attempt to change text outside editable field"鍵割当
良く使う
v: URL を見る
C-o: URL を指定して開く
F: w3-history-forward (効かない気がする)
B: w3-history-backward (同上)
C-c C-b: w3-show-history-list
初期画面の設定:
(setq w3-default-homepage "http://www.ki.nu/")現在の設定の全て。 url-mime-language-string "ja,en" は効いていない気もする (勘違い。効いている)。
;; 2002-02-14 ;;; Emacs/W3 Configuration ;; (setq load-path (cons "/usr/pkg/share/emacs/site-lisp/w3-20020214" load-path)) (condition-case () (require 'w3-auto "w3-auto") (error nil)) (setq font-running-xemacs nil) (setq w3-default-homepage "http://www.ki.nu/") (setq url-mime-language-string "ja,en") (setq browse-url-browser-function 'browse-url-w3)しかし、例えば http://www.jp.netbsd.org/ja/gallery/products.html などというのは文字が化けていて読めない。 Content-Type: を正しく送って来ていないのだと思う。
そこで 以前に作った修正 をして見たが、 Charset -> iso-2022-jp を選ぶと、 Drawing ... で止ってしまう。C-g すると
Debugger entered--Lisp error: (error "Interrupted!")
signal(error ("Interrupted!"))
error("Interrupted!")
url-debug(retrieval "Spinning in url-retrieve-synchronously: %S
(%S)" nil #)
url-retrieve-synchronously(["http" nil nil "www.jp.netbsd.org" 80
"/images/NetBSD-flag.gif" nil nil t])
url-http-head(["http" nil nil "www.jp.netbsd.org" 80
"/images/NetBSD-flag.gif" nil nil t])
url-http-head-file-attributes(["http" nil nil "www.jp.netbsd.org" 80
"/images/NetBSD-flag.gif" nil nil t])
url-http-file-attributes(["http" nil nil "www.jp.netbsd.org" 80
"/images/NetBSD-flag.gif" nil nil t])
url-file-attributes("http://www.jp.netbsd.org/images/NetBSD-flag.gif")
w3-image-loadable-p("http://www.jp.netbsd.org/images/NetBSD-flag.gif" nil)
w3-maybe-start-image-download((image :args nil alt "[NetBSD-flag]"
ismap nil usemap nil :href nil :target nil :button-face
(w3-style-face-00000 w3-style-face-00000 w3-style-face-00000
w3-style-face-00000) row 1 column 1 align nil :src
"http://www.jp.netbsd.org/images/NetBSD-flag.gif" where # :children ((item :args nil :value
usemap :format "%[%t%]" :tag "[NetBSD-flag]" :button-face
... :tab-order -1 :delete widget-default-delete :action
widget-default-action :notify widget-image-callback :parent #0
:help-echo widget-image-summarize :button-overlay # :from # :to #)) buffer #))
w3-resurrect-images()
w3-draw-tree(((*document nil (...))))
w3-prepare-buffer()
w3-fetch-callback("http://www.jp.netbsd.org/ja/gallery/products.html")
apply(w3-fetch-callback "http://www.jp.netbsd.org/ja/gallery/products.html")
url-http-activate-callback()
url-http-content-length-after-change-function(11574 12481 907)
url-http-generic-filter(# " width="
(以下略)
C-g で止めると、次のようになる気がする。
Parsed 100% of 8134...done Drawing... done error in process filter: url-debug: Interrupted! error in process filter: Interrupted! byte-code: QuitWanderlust で読む メールが HTML 形式になっているときに、
byte-code: Symbol's function definition is void: url-register-protocolが出ている。 2001/08/17 の日記 に、 以前の定義 をいただいて来て教えたら解決したと書いてあるので、 今回もそうして見る。
どうも呼び先違いということかな。
http://slashdot.jp/article.pl?sid=02/02/14/0528250&mode=thread を開けようとしたら、
error in process filter: url-expand-file-name: url-expand-file-name confused - no default?2002/02/15 には:
byte-code: Symbol's value as variable is void: url-registered-protocolsこれは ~/.emacs 等に
(setq url-registered-protocols nil)と書いておくと、一応避けられる
history はまだ実装されていないような気がする。
C-c C-b
Debugger entered--Lisp error: (error "Unkown URL scheme: www")
signal(error ("Unkown URL scheme: www"))
error("Unkown URL scheme: %s" "www")
url-scheme-default-loader(["www" nil nil "auto" 0 "/history" nil nil t])
url-retrieve("www://auto/history" w3-fetch-callback ("www://auto/history"))
w3-fetch("www://auto/history")
w3-show-history-list()
call-interactively(w3-show-history-list)
