branch: master
commit 9e177bfae3249b0092fbfb59b1ba895875be227a
Author: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Commit: Jackson Ray Hamilton <jack...@jacksonrayhamilton.com>
Update headers and documentation for download-dependencies.el.
---
scripts/download-dependencies.el | 16 ++++++++++++++--
1 files changed, 14 insertions(+), 2 deletions(-)
diff --git a/scripts/download-dependencies.el b/scripts/download-dependencies.el
index 37f243b..54211cc 100644
--- a/scripts/download-dependencies.el
+++ b/scripts/download-dependencies.el
@@ -1,4 +1,4 @@
-;; -*- lexical-binding: t; -*-
+;;; scripts/download-dependencies.el --- Get files for development. -*-
lexical-binding: t; -*-
;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
@@ -17,17 +17,27 @@
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-(defconst directory (file-name-directory (or load-file-name buffer-file-name)))
+;; This script downloads some dependencies for development so they don't need
to
+;; be version-controlled.
+
+;;; Code:
+
+(defconst directory (file-name-directory (or load-file-name buffer-file-name))
+ "This file's directory.")
(defun resolve-path (path)
+ "Resolve a path relative to this file's directory."
(expand-file-name path directory))
(defun strip-headers ()
+ "Remove the http headers included in the output of
+`url-retrieve-synchronously'."
(goto-char 1)
(kill-paragraph 1) ; The headers are 1 paragraph. I hope.
(kill-line) ; A line separates the headers from the file's content.
)
+;; Download any missing dependencies.
(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)
@@ -38,3 +48,5 @@
(with-current-buffer (url-retrieve-synchronously file)
(strip-headers)
(write-file destination))))))
+
+;;; download-dependencies.el ends here
