diff --git a/emacs.el b/emacs.el index 2633046..bd73a17 100644 --- a/emacs.el +++ b/emacs.el @@ -88,51 +88,6 @@ found, otherwise returns nil." (message "Tetris loaded!")) (message "Tetris found!")) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; download library from web - -(defun download-file (url path &optional ok-if-already-exists) - "Download file from URL and output to PATH. -IF OK-IF-ALREADY-EXISTS is true force download." - (let ((curl (executable-find "curl")) - (wget (executable-find "wget"))) - (cond (wget - (if (and (not ok-if-already-exists) - (file-exists-p path)) - nil - (and (eq 0 - (call-process wget - nil - nil - nil - "-O" - path - url - )) - path))) - (curl - (if (and (not ok-if-already-exists) - (file-exists-p path)) - nil - (and (eq 0 - (call-process curl - nil - nil - nil - "--output" - path - "-L" - url - )) - path))) - (t - (ignore-errors - (require 'url) - (url-copy-file url - path - ok-if-already-exists) - path))))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; package