Re: Up directory(page?)

[Hideyuki SHIRAI ( 白井秀行 ) <shirai@xxxxxxxxxxxxxxxxxxx>]

こんにちは、白井です。

From: "Masatake YAMATO" <masata-y@is.aist-nara.ac.jp> さん曰く
Subject: [emacs-w3m:00166] Up directory(page?)
Message-ID: <200103120422.NAA59432@iso220.aist-nara.ac.jp>
Date: Mon, 12 Mar 2001 13:22:23 +0900

大和> 実装した機能(w3m-view-parent-page; "^"キーにバインドしました．)は，
大和> 現在提示しているページよりも一つ「上」のページを表示する機能です．

素晴らしいです。

だけど、こんな感じで、オシマイに "/" をつけておかないとうまく行
かないときがありました。

(defun w3m-view-parent-page ()
  (interactive)
  (if (null w3m-current-url)
      (error "w3m-current-url is not set"))
  (let (parent-url)
    ;; Check whether http://foo/bar/ or http://foo/bar
    (if (string-match "/$" w3m-current-url)
	(if (string-match "\\(.*\\)/[^/]+/$" w3m-current-url)
	    ;; http://foo/bar/ -> http://foo/
	    (setq parent-url (concat (match-string 1 w3m-current-url) "/")))
      (if (string-match "\\(.*\\)/.+$" w3m-current-url)
	  ;; http://foo/bar -> http://foo/
	  (setq parent-url (concat (match-string 1 w3m-current-url) "/"))))
    ;; Ignore "http:/"
    (if (and parent-url
	     (string-match "^[a-z]+:/+$" parent-url))
	(setq parent-url nil))
    (if parent-url
	(w3m parent-url)
      (error "No parent page for: %s" w3m-current-url))))

-- 
白井秀行 (mailto:shirai@rdmg.mgcs.mei.co.jp)