Pyon's Diary

browse-url で w3m を使ふ？。

browse-url で w3m が使へ無いかと調べた。(下へ) 取敢へず M-x apropos browse-url で調べる。browse-url-generic-program と云ふ變數が在つたので、其れに gnome-terminal -e w3m を設定してみて M-x browse-url してみたけど起動しない。 て云ふか gnome-terminal で

$ gnome-terminal -e w3m http://www.google.com/

を實行するとエラーに成つて仕舞つた。xterm と違つて -x を使ふらしい。

$ gnome-terminal -x w3m http://www.google.com/

だと w3m が起動した。が〜ん。まあ判つたから良いので再度變數 browse-url-generic-program に設定してみるが駄目。仕方が無いので browse-url.el を讀む。lynx を起動する所を眞似て w3m を起動する樣に追加した。

Tags: Software | | | | | | Permalink

イノセンス。

(Get Gone 經由) 押井守の新作映畫。「攻殻」のバトー君が主人公らしい。

でも「攻殻」では無くて多分「押井守の映畫」に成るのだらうな。

Tags: Anime | | | | | | Permalink

Xfce (軽量ウィンドウ・マネージャ)

最近流行つてゐるらしいので、入れてみる。慥かに起動は早い。良いかも。端末も gnome-terminal を止めて Eterm を入れる。やぱし背景が透けないと。

只、普通に startxfce4 を實行すると ATOKX が使へ無かつたので /etc/xfce4/xinitrc を $HOME/.xfce4/xinitrc に複寫して以下の樣に設定した。

/etc/xfce4/xinitrc 2003-11-08 21:51:02.000000000 +0900

+++ /home/pyon/.xfce4/xinitrc	2003-11-09 01:29:08.000000000 +0900
@@ -1,5 +1,16 @@
 #!/bin/sh

+# For X
+xrdb -merge $HOME/.Xresources
+
+# For ATOK X
+export LANG=ja_JP.eucJP
+export LC_ALL=ja_JP.eucJP
+export XMODIFIERS="@im=htt"
+
+#
+export GDK_USE_XFT=1
+
 xsetroot -solid black -cursor_name watch

 # fix broken $UID on some system...
@@ -37,6 +48,9 @@
 xfce-mcs-manager
 xfwm4 --daemon

+# ATOKX
+/usr/lib/im/locale/ja/atokserver/atokx_client &
+
 # Start-up stuff from ~/Desktop/Autostart directory, if it exists
 # (as it seems to be the new standard)
 if test -d "$HOME/Desktop/Autostart"; then

所で、結局上で惱んだ事は止めて、browse-url.el を下の樣に變更する。

/usr/share/emacs/21.3/lisp/net/browse-url.el.org 2003-11-01 21:05:14.000000000 +0900

+++ /usr/share/emacs/21.3/lisp/net/browse-url.el	2003-11-09 00:30:05.000000000 +0900
@@ -44,6 +44,7 @@
 ;; browse-url-w3-gnudoit              w3 remotely
 ;; browse-url-iximosaic               IXI Mosaic  ?
 ;; browse-url-lynx-*	              Lynx	     0
+;; browse-url-w3m-xterm	              w3m	     0
 ;; browse-url-grail                   Grail       0.3b1
 ;; browse-url-mmm                     MMM         ?
 ;; browse-url-generic                 arbitrary
@@ -260,6 +261,8 @@
 			 :value browse-url-lynx-xterm)
 	  (function-item :tag "Lynx in an Emacs window"
 			 :value browse-url-lynx-emacs)
+	  (function-item :tag "w3m in an xterm window"
+			 :value browse-url-w3m-xterm)
 	  (function-item :tag "Grail" :value  browse-url-grail)
 	  (function-item :tag "MMM" :value  browse-url-mmm)
 	  (function-item :tag "KDE" :value browse-url-kde)
@@ -960,6 +963,20 @@
              ,@browse-url-xterm-args "-e" "lynx"
 	     ,url)))

+;; --- w3m in an xterm ---
+
+;;;###autoload
+(defun browse-url-w3m-xterm (url &optional new-window)
+  ;; new-window ignored
+  "Ask the w3m WWW browser to load URL.
+Default to the URL around or before point.  A new w3m process is run
+in an Xterm window using the Xterm program named by `browse-url-xterm-program'
+with possible additional arguments `browse-url-xterm-args'."
+  (interactive (browse-url-interactive-arg "w3m URL: "))
+  (apply #'start-process `(,(concat "w3m" url) nil ,browse-url-xterm-program
+             ,@browse-url-xterm-args "-e" "w3m"
+	     ,url)))
+
 ;; --- Lynx in an Emacs "term" window ---

 ;;;###autoload

其れから $HOME/.emacs.el に以下の設定を追加した。

(setq browse-url-xterm-program "Eterm")
(setq browse-url-browser-function 'browse-url-w3m-xterm)

Tags: Software | | | | | | Permalink