54695
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1 ;;; url-handlers.el --- file-name-handler stuff for URL loading
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
2 ;; Author: $Author: sds $
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
3 ;; Created: $Date: 2003/06/26 18:45:45 $
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
4 ;; Version: $Revision: 1.10 $
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
5 ;; Keywords: comm, data, processes, hypermedia
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
6
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu>
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
9 ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
10 ;;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
11 ;;; This file is part of GNU Emacs.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
12 ;;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
14 ;;; it under the terms of the GNU General Public License as published by
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
15 ;;; the Free Software Foundation; either version 2, or (at your option)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
16 ;;; any later version.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
17 ;;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
18 ;;; GNU Emacs is distributed in the hope that it will be useful,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
21 ;;; GNU General Public License for more details.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
22 ;;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
23 ;;; You should have received a copy of the GNU General Public License
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
26 ;;; Boston, MA 02111-1307, USA.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
28
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
29 (require 'url)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
30 (require 'url-parse)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
31 (require 'url-util)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
32 (require 'mm-decode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
33 (require 'mailcap)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
34
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
35 (eval-when-compile
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
36 (require 'cl))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
37
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
38 ;; Implementation status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
39 ;; ---------------------
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
40 ;; Function Status
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
41 ;; ------------------------------------------------------------
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
42 ;; add-name-to-file Needs DAV Bindings
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
43 ;; copy-file Broken (assumes 1st item is URL)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
44 ;; delete-directory Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
45 ;; delete-file Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
46 ;; diff-latest-backup-file
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
47 ;; directory-file-name unnecessary (what about VMS)?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
48 ;; directory-files Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
49 ;; dired-call-process
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
50 ;; dired-compress-file
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
51 ;; dired-uncache
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
52 ;; expand-file-name Finished
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
53 ;; file-accessible-directory-p
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
54 ;; file-attributes Finished, better with DAV
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
55 ;; file-directory-p Needs DAV, finished
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
56 ;; file-executable-p Finished
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
57 ;; file-exists-p Finished
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
58 ;; file-local-copy
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
59 ;; file-modes
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
60 ;; file-name-all-completions Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
61 ;; file-name-as-directory
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
62 ;; file-name-completion Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
63 ;; file-name-directory
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
64 ;; file-name-nondirectory
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
65 ;; file-name-sans-versions why?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
66 ;; file-newer-than-file-p
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
67 ;; file-ownership-preserved-p No way to know
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
68 ;; file-readable-p Finished
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
69 ;; file-regular-p !directory_p
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
70 ;; file-symlink-p Needs DAV bindings
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
71 ;; file-truename Needs DAV bindings
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
72 ;; file-writable-p Check for LOCK?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
73 ;; find-backup-file-name why?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
74 ;; get-file-buffer why?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
75 ;; insert-directory Use DAV
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
76 ;; insert-file-contents Finished
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
77 ;; load
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
78 ;; make-directory Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
79 ;; make-symbolic-link Needs DAV bindings
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
80 ;; rename-file Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
81 ;; set-file-modes Use mod_dav specific executable flag?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
82 ;; set-visited-file-modtime Impossible?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
83 ;; shell-command Impossible?
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
84 ;; unhandled-file-name-directory
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
85 ;; vc-registered Finished (DAV)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
86 ;; verify-visited-file-modtime
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
87 ;; write-region
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
88
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
89 (defvar url-handler-regexp
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
90 "\\`\\(https?\\|ftp\\|file\\|nfs\\)://"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
91 "*A regular expression for matching URLs handled by file-name-handler-alist.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
92 Some valid URL protocols just do not make sense to visit interactively
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
93 \(about, data, info, irc, mailto, etc\). This regular expression
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
94 avoids conflicts with local files that look like URLs \(Gnus is
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
95 particularly bad at this\).")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
96
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
97 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
98 (defun url-setup-file-name-handlers ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
99 "Setup file-name handlers."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
100 (cond
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
101 ((not (boundp 'file-name-handler-alist))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
102 nil) ; Don't load if no alist
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
103 ((rassq 'url-file-handler file-name-handler-alist)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
104 nil) ; Don't load twice
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
105 (t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
106 (push (cons url-handler-regexp 'url-file-handler)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
107 file-name-handler-alist))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
108
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
109 (defun url-run-real-handler (operation args)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
110 (let ((inhibit-file-name-handlers (cons 'url-file-handler
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
111 (if (eq operation inhibit-file-name-operation)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
112 inhibit-file-name-handlers)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
113 (inhibit-file-name-operation operation))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
114 (apply operation args)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
115
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
116 (defun url-file-handler (operation &rest args)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
117 "Function called from the `file-name-handler-alist' routines.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
118 OPERATION is what needs to be done (`file-exists-p', etc). ARGS are
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
119 the arguments that would have been passed to OPERATION."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
120 (let ((fn (or (get operation 'url-file-handlers)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
121 (intern-soft (format "url-%s" operation))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
122 (val nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
123 (hooked nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
124 (if (and fn (fboundp fn))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
125 (setq hooked t
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
126 val (apply fn args))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
127 (setq hooked nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
128 val (url-run-real-handler operation args)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
129 (url-debug 'handlers "%s %S%S => %S" (if hooked "Hooked" "Real")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
130 operation args val)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
131 val))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
132
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
133 (defun url-file-handler-identity (&rest args)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
134 ;; Identity function
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
135 (car args))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
136
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
137 ;; These are operations that we can fully support
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
138 (put 'file-readable-p 'url-file-handlers 'url-file-exists-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
139 (put 'substitute-in-file-name 'url-file-handlers 'url-file-handler-identity)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
140 (put 'file-name-absolute-p 'url-file-handlers (lambda (&rest ignored) t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
141 (put 'expand-file-name 'url-file-handlers 'url-handler-expand-file-name)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
142
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
143 ;; These are operations that we do not support yet (DAV!!!)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
144 (put 'file-writable-p 'url-file-handlers 'ignore)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
145 (put 'file-symlink-p 'url-file-handlers 'ignore)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
146
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
147 (defun url-handler-expand-file-name (file &optional base)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
148 (if (file-name-absolute-p file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
149 (expand-file-name file "/")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
150 (url-expand-file-name file base)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
151
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
152 ;; The actual implementation
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
153 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
154 (defun url-copy-file (url newname &optional ok-if-already-exists keep-time)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
155 "Copy URL to NEWNAME. Both args must be strings.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
156 Signals a `file-already-exists' error if file NEWNAME already exists,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
157 unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
158 A number as third arg means request confirmation if NEWNAME already exists.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
159 This is what happens in interactive use with M-x.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
160 Fourth arg KEEP-TIME non-nil means give the new file the same
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
161 last-modified time as the old one. (This works on only some systems.)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
162 A prefix arg makes KEEP-TIME non-nil."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
163 (if (and (file-exists-p newname)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
164 (not ok-if-already-exists))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
165 (error "Opening output file: File already exists, %s" newname))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
166 (let ((buffer (url-retrieve-synchronously url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
167 (handle nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
168 (if (not buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
169 (error "Opening input file: No such file or directory, %s" url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
170 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
171 (set-buffer buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
172 (setq handle (mm-dissect-buffer t)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
173 (mm-save-part-to-file handle newname)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
174 (kill-buffer buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
175 (mm-destroy-parts handle)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
176
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
177 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
178 (defun url-file-local-copy (url &rest ignored)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
179 "Copy URL into a temporary file on this machine.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
180 Returns the name of the local copy, or nil, if FILE is directly
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
181 accessible."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
182 (let ((filename (make-temp-name "url")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
183 (url-copy-file url filename)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
184 filename))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
185
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
186 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
187 (defun url-insert-file-contents (url &optional visit beg end replace)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
188 (let ((buffer (url-retrieve-synchronously url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
189 (handle nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
190 (data nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
191 (if (not buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
192 (error "Opening input file: No such file or directory, %s" url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
193 (if visit (setq buffer-file-name url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
194 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
195 (set-buffer buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
196 (setq handle (mm-dissect-buffer t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
197 (set-buffer (mm-handle-buffer handle))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
198 (if beg
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
199 (setq data (buffer-substring beg end))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
200 (setq data (buffer-string))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
201 (kill-buffer buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
202 (mm-destroy-parts handle)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
203 (if replace (delete-region (point-min) (point-max)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
204 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
205 (insert data))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
206 (list url (length data))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
207
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
208 (defun url-file-name-completion (url directory)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
209 (error "Unimplemented"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
210
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
211 (defun url-file-name-all-completions (file directory)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
212 (error "Unimplemented"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
213
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
214 ;; All other handlers map onto their respective backends.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
215 (defmacro url-handlers-create-wrapper (method args)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
216 `(defun ,(intern (format "url-%s" method)) ,args
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
217 ,(format "URL file-name-handler wrapper for `%s' call.\n---\n%s" method
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
218 (or (documentation method t) "No original documentation."))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
219 (setq url (url-generic-parse-url url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
220 (when (url-type url)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
221 (funcall (url-scheme-get-property (url-type url) (quote ,method))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
222 ,@(remove '&rest (remove '&optional args))))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
223
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
224 (url-handlers-create-wrapper file-exists-p (url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
225 (url-handlers-create-wrapper file-attributes (url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
226 (url-handlers-create-wrapper file-symlink-p (url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
227 (url-handlers-create-wrapper file-writable-p (url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
228 (url-handlers-create-wrapper file-directory-p (url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
229 (url-handlers-create-wrapper file-executable-p (url))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
230
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
231 (if (featurep 'xemacs)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
232 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
233 ;; XEmacs specific prototypes
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
234 (url-handlers-create-wrapper
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
235 directory-files (url &optional full match nosort files-only))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
236 (url-handlers-create-wrapper
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
237 file-truename (url &optional default)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
238 ;; Emacs specific prototypes
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
239 (url-handlers-create-wrapper
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
240 directory-files (url &optional full match nosort))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
241 (url-handlers-create-wrapper
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
242 file-truename (url &optional counter prev-dirs)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
243
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
244 (add-hook 'find-file-hooks 'url-handlers-set-buffer-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
245
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
246 (defun url-handlers-set-buffer-mode ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
247 "Set correct modes for the current buffer if visiting a remote file."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
248 (and (stringp buffer-file-name)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
249 (string-match url-handler-regexp buffer-file-name)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
250 (auto-save-mode 0)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
251
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
252 (provide 'url-handlers)
|