Lines Matching refs:url
0 ;;; url-nfs.el --- NFS URL interface
30 (require 'url-parse)
31 (require 'url-file)
33 (defvar url-nfs-automounter-directory-spec
46 (defun url-nfs-unescape (format host port user pass file)
64 (defun url-nfs-build-filename (url)
65 (let* ((host (url-host url))
66 (port (url-port url))
67 (pass (url-password url))
68 (user (url-user url))
69 (file (url-filename url)))
70 (url-generic-parse-url
71 (url-nfs-unescape url-nfs-automounter-directory-spec
74 (defun url-nfs (url callback cbargs)
75 (url-file (url-nfs-build-filename url) callback cbargs))
77 (defmacro url-nfs-create-wrapper (method args)
78 `(defun ,(intern (format "url-nfs-%s" method)) ,args
80 (setq url (url-nfs-build-filename url))
81 (and url (,(intern (format "url-file-%s" method))
84 (url-nfs-create-wrapper file-exists-p (url))
85 (url-nfs-create-wrapper file-attributes (url &optional id-format))
86 (url-nfs-create-wrapper file-symlink-p (url))
87 (url-nfs-create-wrapper file-readable-p (url))
88 (url-nfs-create-wrapper file-writable-p (url))
89 (url-nfs-create-wrapper file-executable-p (url))
90 (url-nfs-create-wrapper directory-files (url &optional full match nosort))
91 (url-nfs-create-wrapper file-truename (url &optional counter prev-dirs))
93 (provide 'url-nfs)
96 ;;; url-nfs.el ends here