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