1 ;;; scripts/download-dependencies.el --- Get files for development. -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2014-2015 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
7 ;; This program is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation, either version 3 of the License, or
10 ;; (at your option) any later version.
12 ;; This program is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
20 ;; Download dependencies for development.
22 ;; Dependencies don't need to be version-controlled. They are also
23 ;; bleeding-edge, which is good because that is what most MELPA users are using.
27 (defconst download-dependencies-directory
28 (file-name-directory (or load-file-name buffer-file-name))
29 "This file's directory.")
31 (defun download-dependencies-resolve-path (path)
32 "Resolve a path relative to this file's directory."
33 (expand-file-name path download-dependencies-directory))
35 (defun download-dependencies-strip-headers ()
36 "Remove the http headers included in the output of
37 `url-retrieve-synchronously'."
39 (kill-paragraph 1) ; The headers are 1 paragraph. I hope.
40 (kill-line)) ; A line separates the headers from the file's content.
42 (defun download-dependencies-get-dependencies ()
43 "Read the `dependencies' file as a list of URLs."
45 (insert-file-contents (download-dependencies-resolve-path "./dependencies"))
46 (split-string (buffer-substring-no-properties (point-min) (point-max)))))
48 (defun download-dependencies ()
49 "Download dependencies for development."
50 (let ((files (download-dependencies-get-dependencies)))
51 (make-directory (download-dependencies-resolve-path "../libraries") t)
53 (let* ((basename (file-name-nondirectory file))
54 (destination (download-dependencies-resolve-path
55 (concat "../libraries/" basename))))
56 (unless (file-exists-p destination)
57 (with-current-buffer (url-retrieve-synchronously file)
58 (download-dependencies-strip-headers)
59 (write-file destination)))))))
61 ;;; download-dependencies.el ends here