[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-dired.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-dired.el [emacs-unicode-2] |
Date: |
Thu, 14 Oct 2004 05:18:32 -0400 |
Index: emacs/lisp/url/url-dired.el
diff -c /dev/null emacs/lisp/url/url-dired.el:1.3.4.1
*** /dev/null Thu Oct 14 08:50:56 2004
--- emacs/lisp/url/url-dired.el Thu Oct 14 08:49:52 2004
***************
*** 0 ****
--- 1,100 ----
+ ;;; url-dired.el --- URL Dired minor mode
+ ;; Keywords: comm, files
+
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
+ ;;;
+ ;;; This file is part of GNU Emacs.
+ ;;;
+ ;;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;;; it under the terms of the GNU General Public License as published by
+ ;;; the Free Software Foundation; either version 2, or (at your option)
+ ;;; any later version.
+ ;;;
+ ;;; GNU Emacs is distributed in the hope that it will be useful,
+ ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ ;;; GNU General Public License for more details.
+ ;;;
+ ;;; You should have received a copy of the GNU General Public License
+ ;;; along with GNU Emacs; see the file COPYING. If not, write to the
+ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;;; Boston, MA 02111-1307, USA.
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+ (autoload 'w3-fetch "w3")
+ (autoload 'w3-open-local "w3")
+ (autoload 'dired-get-filename "dired")
+
+ (defvar url-dired-minor-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map "\C-m" 'url-dired-find-file)
+ (if (featurep 'xemacs)
+ (define-key map [button2] 'url-dired-find-file-mouse)
+ (define-key map [mouse-2] 'url-dired-find-file-mouse))
+ map)
+ "Keymap used when browsing directories.")
+
+ (defvar url-dired-minor-mode nil
+ "Whether we are in url-dired-minor-mode")
+
+ (make-variable-buffer-local 'url-dired-minor-mode)
+
+ (defun url-dired-find-file ()
+ "In dired, visit the file or directory named on this line, using Emacs-W3."
+ (interactive)
+ (let ((filename (dired-get-filename)))
+ (cond ((string-match "/\\(address@hidden):\\(/.*\\)" filename)
+ (w3-fetch (concat "file://" (match-string 1 filename) (match-string
2 filename))))
+ (t
+ (w3-open-local filename)))))
+
+ (defun url-dired-find-file-mouse (event)
+ "In dired, visit the file or directory name you click on, using Emacs-W3."
+ (interactive "@e")
+ (mouse-set-point event)
+ (url-dired-find-file))
+
+ (defun url-dired-minor-mode (&optional arg)
+ "Minor mode for directory browsing with Emacs-W3."
+ (interactive "P")
+ (cond
+ ((null arg)
+ (setq url-dired-minor-mode (not url-dired-minor-mode)))
+ ((equal 0 arg)
+ (setq url-dired-minor-mode nil))
+ (t
+ (setq url-dired-minor-mode t))))
+
+ (if (not (fboundp 'add-minor-mode))
+ (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
+ "Add a minor mode to `minor-mode-alist' and `minor-mode-map-alist'.
+ TOGGLE is a symbol which is used as the variable which toggle the minor mode,
+ NAME is the name that should appear in the modeline (it should be a string
+ beginning with a space), KEYMAP is a keymap to make active when the minor
+ mode is active, and AFTER is the toggling symbol used for another minor
+ mode. If AFTER is non-nil, then it is used to position the new mode in the
+ minor-mode alists. TOGGLE-FUN specifies an interactive function that
+ is called to toggle the mode on and off; this affects what appens when
+ button2 is pressed on the mode, and when button3 is pressed somewhere
+ in the list of modes. If TOGGLE-FUN is nil and TOGGLE names an
+ interactive function, TOGGLE is used as the toggle function.
+
+ Example: (add-minor-mode 'view-minor-mode \" View\" view-mode-map)"
+ (if (not (assq toggle minor-mode-alist))
+ (setq minor-mode-alist (cons (list toggle name) minor-mode-alist)))
+ (if (and keymap (not (assq toggle minor-mode-map-alist)))
+ (setq minor-mode-map-alist (cons (cons toggle keymap)
+ minor-mode-map-alist)))))
+
+ (add-minor-mode 'url-dired-minor-mode " URL" url-dired-minor-mode-map)
+
+ (defun url-find-file-dired (dir)
+ "\"Edit\" directory DIR, but with additional URL-friendly bindings."
+ (interactive "DURL Dired (directory): ")
+ (find-file dir)
+ (url-dired-minor-mode t))
+
+ (provide 'url-dired)
+
+ ;;; arch-tag: 2694f21a-43e1-4391-b3cb-cf6e5349f15f
- [Emacs-diffs] Changes to emacs/lisp/url/url-dired.el [emacs-unicode-2],
Miles Bader <=