Browse Source

add function download-file

pull/1/head
10sr 12 years ago
parent
commit
68e90c83d0
1 changed files with 21 additions and 0 deletions
  1. +21
    -0
      emacs.el

+ 21
- 0
emacs.el View File

@@ -68,6 +68,27 @@ otherwise the path where the library installed."
(locate-library lib))
locate-p)))

(defun download-file (url path &optional ok-if-already-exists)
"Download file from URL and output to PATH."
(or (ignore-errors
(url-copy-file url
path
ok-if-already-exists)
path)
(ignore-errors
(let ((curl (executable-find "curl")))
(when curl
(if (and (not ok-if-already-exists)
(file-exists-p path))
nil
(eq 0
(call-process curl
nil
nil
nil
"--output"
path))))))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; autoload



Loading…
Cancel
Save