1;;; url-dired.el --- URL Dired minor mode 2 3;; Copyright (C) 1996, 1997, 1998, 1999, 2004, 4;; 2005, 2006, 2007 Free Software Foundation, Inc. 5 6;; Keywords: comm, files 7 8;; This file is part of GNU Emacs. 9 10;; GNU Emacs is free software; you can redistribute it and/or modify 11;; it under the terms of the GNU General Public License as published by 12;; the Free Software Foundation; either version 2, or (at your option) 13;; any later version. 14 15;; GNU Emacs is distributed in the hope that it will be useful, 16;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18;; GNU General Public License for more details. 19 20;; You should have received a copy of the GNU General Public License 21;; along with GNU Emacs; see the file COPYING. If not, write to the 22;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 23;; Boston, MA 02110-1301, USA. 24 25;;; Code: 26 27(autoload 'w3-fetch "w3") 28(autoload 'w3-open-local "w3") 29(autoload 'dired-get-filename "dired") 30 31(defvar url-dired-minor-mode-map 32 (let ((map (make-sparse-keymap))) 33 (define-key map "\C-m" 'url-dired-find-file) 34 (define-key map [mouse-2] 'url-dired-find-file-mouse) 35 map) 36 "Keymap used when browsing directories.") 37 38(defvar url-dired-minor-mode nil 39 "Whether we are in url-dired-minor-mode") 40 41(make-variable-buffer-local 'url-dired-minor-mode) 42 43(defun url-dired-find-file () 44 "In dired, visit the file or directory named on this line, using Emacs-W3." 45 (interactive) 46 (let ((filename (dired-get-filename))) 47 (cond ((string-match "/\\(.*@.*\\):\\(/.*\\)" filename) 48 (w3-fetch (concat "file://" (match-string 1 filename) (match-string 2 filename)))) 49 (t 50 (w3-open-local filename))))) 51 52(defun url-dired-find-file-mouse (event) 53 "In dired, visit the file or directory name you click on, using Emacs-W3." 54 (interactive "@e") 55 (mouse-set-point event) 56 (url-dired-find-file)) 57 58(defun url-dired-minor-mode (&optional arg) 59 "Minor mode for directory browsing with Emacs-W3." 60 (interactive "P") 61 (cond 62 ((null arg) 63 (setq url-dired-minor-mode (not url-dired-minor-mode))) 64 ((equal 0 arg) 65 (setq url-dired-minor-mode nil)) 66 (t 67 (setq url-dired-minor-mode t)))) 68 69(if (not (fboundp 'add-minor-mode)) 70 (defun add-minor-mode (toggle name &optional keymap after toggle-fun) 71 "Add a minor mode to `minor-mode-alist' and `minor-mode-map-alist'. 72TOGGLE is a symbol which is used as the variable which toggle the minor mode, 73NAME is the name that should appear in the modeline (it should be a string 74beginning with a space), KEYMAP is a keymap to make active when the minor 75mode is active, and AFTER is the toggling symbol used for another minor 76mode. If AFTER is non-nil, then it is used to position the new mode in the 77minor-mode alists. TOGGLE-FUN specifies an interactive function that 78is called to toggle the mode on and off; this affects what appens when 79button2 is pressed on the mode, and when button3 is pressed somewhere 80in the list of modes. If TOGGLE-FUN is nil and TOGGLE names an 81interactive function, TOGGLE is used as the toggle function. 82 83Example: (add-minor-mode 'view-minor-mode \" View\" view-mode-map)" 84 (if (not (assq toggle minor-mode-alist)) 85 (setq minor-mode-alist (cons (list toggle name) minor-mode-alist))) 86 (if (and keymap (not (assq toggle minor-mode-map-alist))) 87 (setq minor-mode-map-alist (cons (cons toggle keymap) 88 minor-mode-map-alist))))) 89 90(add-minor-mode 'url-dired-minor-mode " URL" url-dired-minor-mode-map) 91 92(defun url-find-file-dired (dir) 93 "\"Edit\" directory DIR, but with additional URL-friendly bindings." 94 (interactive "DURL Dired (directory): ") 95 (find-file dir) 96 (url-dired-minor-mode t)) 97 98(provide 'url-dired) 99 100;;; arch-tag: 2694f21a-43e1-4391-b3cb-cf6e5349f15f 101;;; url-dired.el ends here 102