Lines Matching +defs:url +defs:expand
0 ;;; url-handlers.el --- file-name-handler stuff for URL loading
29 ;; (require 'url)
30 (eval-when-compile (require 'url-parse))
31 ;; (require 'url-util)
39 ;; loading all of URL when turning on url-handler-mode in the .emacs.
40 (autoload 'url-expand-file-name "url-expand" "Convert url to a fully specified url, and canonicalize it.")
42 (autoload 'url-scheme-get-property "url-methods" "Get property of a URL SCHEME.")
61 ;; expand-file-name Finished
98 (defvar url-handler-regexp
107 (define-minor-mode url-handler-mode
109 :global t :group 'url
112 (setq url-handler-mode nil)
115 (delq (rassq 'url-file-handler file-name-handler-alist)
117 (if url-handler-mode
118 (push (cons url-handler-regexp 'url-file-handler)
121 (defun url-run-real-handler (operation args)
122 (let ((inhibit-file-name-handlers (cons 'url-file-handler
128 (defun url-file-handler (operation &rest args)
132 (let ((fn (or (get operation 'url-file-handlers)
133 (intern-soft (format "url-%s" operation))))
140 val (url-run-real-handler operation args)))
141 (url-debug 'handlers "%s %S%S => %S" (if hooked "Hooked" "Real")
145 (defun url-file-handler-identity (&rest args)
150 (put 'file-readable-p 'url-file-handlers 'url-file-exists-p)
151 (put 'substitute-in-file-name 'url-file-handlers 'url-file-handler-identity)
152 (put 'file-name-absolute-p 'url-file-handlers (lambda (&rest ignored) t))
153 (put 'expand-file-name 'url-file-handlers 'url-handler-expand-file-name)
154 (put 'directory-file-name 'url-file-handlers 'url-handler-directory-file-name)
155 ;; (put 'file-name-as-directory 'url-file-handlers 'url-handler-file-name-as-directory)
158 (put 'file-writable-p 'url-file-handlers 'ignore)
159 (put 'file-symlink-p 'url-file-handlers 'ignore)
162 (put 'vc-registered 'url-file-handlers 'ignore)
164 (defun url-handler-expand-file-name (file &optional base)
171 (expand-file-name file "/")
172 (url-expand-file-name file base)))
181 (defun url-handler-directory-file-name (dir)
184 (url-run-real-handler 'directory-file-name (list dir))))
188 (defun url-copy-file (url newname &optional ok-if-already-exists keep-time)
200 (let ((buffer (url-retrieve-synchronously url))
203 (error "Opening input file: No such file or directory, %s" url))
211 (defun url-file-local-copy (url &rest ignored)
215 (let ((filename (make-temp-file "url")))
216 (url-copy-file url filename 'ok-if-already-exists)
219 (defun url-insert (buffer &optional beg end)
221 BUFFER should be a complete URL buffer as returned by `url-retrieve'.
243 (defun url-insert-file-contents (url &optional visit beg end replace)
244 (let ((buffer (url-retrieve-synchronously url)))
246 (error "Opening input file: No such file or directory, %s" url))
247 (if visit (setq buffer-file-name url))
250 (size-and-charset (url-insert buffer beg end)))
258 (decode-coding-inserted-region start (point) url visit beg end replace))
259 (list url (car size-and-charset))))))
261 (defun url-file-name-completion (url directory)
264 (defun url-file-name-all-completions (file directory)
268 (defmacro url-handlers-create-wrapper (method args)
269 `(defun ,(intern (format "url-%s" method)) ,args
272 (setq url (url-generic-parse-url url))
273 (when (url-type url)
274 (funcall (url-scheme-get-property (url-type url) (quote ,method))
277 (url-handlers-create-wrapper file-exists-p (url))
278 (url-handlers-create-wrapper file-attributes (url &optional id-format))
279 (url-handlers-create-wrapper file-symlink-p (url))
280 (url-handlers-create-wrapper file-writable-p (url))
281 (url-handlers-create-wrapper file-directory-p (url))
282 (url-handlers-create-wrapper file-executable-p (url))
283 (url-handlers-create-wrapper directory-files (url &optional full match nosort))
284 (url-handlers-create-wrapper file-truename (url &optional counter prev-dirs))
286 (add-hook 'find-file-hook 'url-handlers-set-buffer-mode)
288 (defun url-handlers-set-buffer-mode ()
291 (string-match url-handler-regexp buffer-file-name)
294 (provide 'url-handlers)
297 ;;; url-handlers.el ends here