HTTP-Zip method

methods/el-get-http-zip.el

@@ -0,0 +1,70 @@
+;;; el-get --- Manage the external elisp bits and pieces you depend upon
+;;
+;; Copyright (C) 2010-2011 Dimitri Fontaine
+;;
+;; Author: Dimitri Fontaine <dim@tapoueh.org>
+;; URL: http://www.emacswiki.org/emacs/el-get
+;; GIT: https://github.com/dimitri/el-get
+;; Licence: WTFPL, grab your copy here: http://sam.zoy.org/wtfpl/
+;;
+;; This file is NOT part of GNU Emacs.
+;;
+;; Install
+;;     Please see the README.asciidoc file from the same distribution
+
+(require 'el-get-http)
+
+(defun el-get-http-zip-cleanup-extract-hook (package)
+  "Cleanup after unzip: if there's only one subdir, move all
+the files up."
+  (let* ((pdir    (el-get-package-directory package))
+	 (url     (plist-get (el-get-package-def package) :url))
+	 (zipfile (el-get-filename-from-url url))
+	 (files   (remove zipfile (directory-files pdir nil "[^.]$")))
+	 (dir     (car files)))
+    ;; if there's only one directory, move its content up and get rid of it
+    (el-get-verbose-message "el-get: unzip cleanup %s [%s]: %S" package pdir files)
+    (unless (cdr files)
+      (loop for fname in (directory-files
+			  (expand-file-name dir pdir) nil "[^.]$")
+	    for fullname = (expand-file-name fname (expand-file-name dir pdir))
+	    for newname  = (expand-file-name pdir fname)
+	    do (progn
+		 (el-get-verbose-message "%S %S %S" pdir dir fname)
+		 (el-get-verbose-message "mv %S %S" fullname newname)
+		 (rename-file fullname newname)))
+      (el-get-verbose-message "delete-directory: %s" (expand-file-name dir pdir))
+      (delete-directory (expand-file-name dir pdir)))))
+
+(defun el-get-http-zip-install (package url post-install-fun)
+  "Dowload a zip archive package over HTTP."
+  (let* ((source  (el-get-package-def package))
+	 (options (plist-get source :options))
+	 (pdir    (el-get-package-directory package))
+	 (zipfile (el-get-filename-from-url url))
+	 (dest    (concat (file-name-as-directory pdir) zipfile))
+	 (name    (format "*unzip %s %s*" options url))
+	 (ok      (format "Package %s installed." package))
+	 (ko      (format "Could not install package %s." package))
+	 (post `(lambda (package)
+		  ;; zip xzf `basename url`
+		  (let ((el-get-sources '(,@el-get-sources)))
+		    (el-get-start-process-list
+		     package
+		     '((:command-name ,name
+				      :buffer-name ,name
+				      :default-directory ,pdir
+				      :program ,(executable-find "unzip")
+				      :args (,@options ,zipfile)
+				      :message ,ok
+				      :error ,ko))
+		     ,(symbol-function post-install-fun))))))
+    (el-get-http-install package url post dest)))
+  
+(add-hook 'el-get-http-zip-install-hook 'el-get-http-zip-cleanup-extract-hook)
+
+(el-get-register-method
+ :http-zip #'el-get-http-zip-install #'el-get-http-zip-install #'el-get-rmdir
+  #'el-get-http-zip-install-hook)
+
+(provide 'el-get-http-zip)