- (kill-paragraph 1) ; The headers are 1 paragraph. I hope.
- (kill-line) ; A line separates the headers from the file's content.
- )
-
-(let ((files '("https://raw.githubusercontent.com/mooz/js2-mode/master/js2-mode.el"
- "https://raw.githubusercontent.com/rejeep/ert-async.el/master/ert-async.el")))
- (make-directory (resolve-path "../libraries") t)
- (dolist (file files)
- (let* ((basename (file-name-nondirectory file))
- (destination (resolve-path (concat "../libraries/" basename))))
- (when (null (file-exists-p destination))
- (with-current-buffer (url-retrieve-synchronously file)
- (strip-headers)
- (write-file destination))))))
+ (kill-paragraph 1) ; The headers are 1 paragraph. I hope.
+ (kill-line)) ; A line separates the headers from the file's content.
+
+(defun download-dependencies-get-dependencies ()
+ "Read the `dependencies' file as a list of URLs."
+ (with-temp-buffer
+ (insert-file-contents (download-dependencies-resolve-path "./dependencies"))
+ (split-string (buffer-substring-no-properties (point-min) (point-max)))))
+
+(defun download-dependencies ()
+ "Download dependencies for development."
+ (let ((files (download-dependencies-get-dependencies)))
+ (make-directory (download-dependencies-resolve-path "../libraries") t)
+ (dolist (file files)
+ (let* ((basename (file-name-nondirectory file))
+ (destination (download-dependencies-resolve-path
+ (concat "../libraries/" basename))))
+ (unless (file-exists-p destination)
+ (with-current-buffer (url-retrieve-synchronously file)
+ (download-dependencies-strip-headers)
+ (write-file destination)))))))
+
+;;; download-dependencies.el ends here