10sr
9 years ago
1 changed files with 0 additions and 45 deletions
Unified View
Diff Options
-
+0 -45emacs.el
+ 0
- 45
emacs.el
View File
| @@ -88,51 +88,6 @@ found, otherwise returns nil." | |||||
| (message "Tetris loaded!")) | (message "Tetris loaded!")) | ||||
| (message "Tetris found!")) | (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 | ;; package | ||||