#!/usr/bin/emacs --script
;;; install.el --- Dash layer dependencies installation script
;;
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
;;
;; Author: Eugene "JAremko" Yaremenko <w3techplayground@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

(load (expand-file-name "../../lib/deps-install-helpers.el"
                        (file-name-directory
                         load-file-name)) nil t)

(defconst docsets '(
                    (clojure . ("https://newyork.kapeli.com/feeds/Clojure.tgz"))
                    (go . ("https://london.kapeli.com/feeds/Go.tgz"))
                    (html . ("https://sanfrancisco.kapeli.com/feeds/HTML.tgz"
                             "https://sanfrancisco.kapeli.com/feeds/Sass.tgz"
                             "https://london.kapeli.com/feeds/CSS.tgz"))
                    (emacs-lisp . ("https://sanfrancisco.kapeli.com/feeds/Emacs_Lisp.tgz"))
                    (javascript . ("https://sanfrancisco.kapeli.com/feeds/JavaScript.tgz"))
                    (docker . ("https://frankfurt.kapeli.com/feeds/Docker.tgz"))
                    (markdown . ("https://sanfrancisco.kapeli.com/feeds/Markdown.tgz"))
                    (python . ("https://newyork.kapeli.com/feeds/Python_2.tgz"
                               "https://frankfurt.kapeli.com/feeds/Python_3.tgz"))
                    ;; FIXME: ADD MORE!
                    )
  "Zeal doc-set alist of shape (layer . (URL URL URL..)) Source: https://zealdocs.org/")

;;NOTE: Yes it's Zeal/Zeal for some reason(probably a bug).
(defconst docset-dir (format "%s.local/share/Zeal/Zeal/docsets/"
                             (dir (get-glob-env "UHOME"))))

(message (concat "Spacemacs'es docset list provides docs for: "
                 (mapconcat (lambda (docset) (symbol-name (car docset))) docsets " ")
                 " layers.\n Open a PR/issue if you need more. Docsets available at:"
                 " https://zealdocs.org/"))
(with-installed (curl tar gzip)
  (mkdirp docset-dir)
  (install zeal)
  (when (or (dotfile-has-symbol-p 'helm-dash-docset-newpath)
            (dotfile-has-symbol-p 'helm-dash-docsets-path))
    (message "Setting helm-dash docset path to \"%s\" (for Zeal compatibility)"
             docset-dir))
  (append-to-user-config "helm-dash docsets path (default for Zeal app)."
                         (format "(setq helm-dash-docset-newpath \"%s\")"
                                 docset-dir))
  (unless (dotfile-has-symbol-p 'helm-dash-browser-func)
    (append-to-user-config "Open helm-dash in eww."
                           "(setq helm-dash-browser-func 'eww)"))
  (dolist (docset docsets)
    (when (layer-used-p (car docset))
      (dolist (url (cdr docset))
        ($ `("curl %s | tar xz -C %s" ,url ,docset-dir)))
      ($ `("chown ${UID}:${GID} -R %s" ,docset-dir)))))
(install sqlite3)