Merge pull request #131 from davidshepherd7/master

Add helm-dash-async-install-docset function

Author: kidd

helm-dash.el

@@ -331,6 +331,47 @@ Report an error unless a valid docset is selected."
 
     (helm-dash-install-docset-from-file docset-tmp-path))))
 
+;;;###autoload
+(defun helm-dash-async-install-docset (docset-name)
+  "Asynchronously download docset with specified DOCSET-NAME and move its stuff to docsets-path."
+  (interactive (list (helm-dash-read-docset "Install docset" (helm-dash-available-docsets))))
+  (when (helm-dash--ensure-created-docsets-path (helm-dash-docsets-path))
+    (let ((feed-url (format "%s/%s.xml" helm-dash-docsets-url docset-name)))
+
+      (message (concat "The docset \"" docset-name "\" will now be installed asynchronously."))
+
+      (async-start ; First async call gets the docset meta data
+       (lambda ()
+         ;; Beware! This lambda is run in it's own instance of emacs.
+         (url-file-local-copy feed-url))
+       (lambda (filename)
+         (let ((docset-url (helm-dash-get-docset-url filename)))
+           (async-start     ; Second async call gets the docset itself
+            (lambda ()
+              ;; Beware! This lambda is run in it's own instance of emacs.
+              (url-file-local-copy docset-url))
+            (lambda (docset-tmp-path)
+              (helm-dash-async-install-docset-from-file docset-tmp-path)))))))))
+
+;;;###autoload
+(defun helm-dash-async-install-docset-from-file (docset-tmp-path)
+  (interactive (list (car (find-file-read-args "Docset Tarball: " t))))
+  (let ((docset-tar-path (expand-file-name docset-tmp-path))
+        (docset-out-path (helm-dash-docsets-path)))
+    (async-start
+     (lambda ()
+       ;; Beware! This lambda is run in it's own instance of emacs.
+       (shell-command-to-string
+        (format "tar xvf %s -C %s"
+                (shell-quote-argument docset-tar-path)
+                (shell-quote-argument docset-out-path))))
+     (lambda (shell-output)
+       (let ((docset-folder (helm-dash-docset-folder-name shell-output)))
+         (helm-dash-activate-docset docset-folder)
+         (message (format
+                   "Docset installed. Add \"%s\" to helm-dash-common-docsets or helm-dash-docsets."
+                   docset-folder)))))))
+
 (defalias 'helm-dash-update-docset 'helm-dash-install-docset)
 
 (defun helm-dash-docset-folder-name (tar-output)