diff options
-rw-r--r-- | dh-elpa.el | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -92,15 +92,20 @@ specified, cleaning up is the caller's responsibility." (if (not desc) (message "Could not compute version from directory %s" elpa-dir) (let* ((canonical-dir (package-desc-full-name desc)) + (elpa-name (package-desc-name desc)) + (elpa-version (package-version-join (package-desc-version desc))) (base-dir (file-name-nondirectory elpa-dir)) (parent-dir (file-name-directory elpa-dir)) (temp-dir (or work-dir (make-temp-file nil t))) + (version-file (expand-file-name (format "%s.version" elpa-name) temp-dir)) (tar-file (concat (expand-file-name canonical-dir temp-dir) ".tar")) ;; this relies on GNU tar features. (transform-command (concat "--transform=s/" (regexp-quote base-dir) "/" canonical-dir "/"))) (call-process "tar" nil nil nil "--create" "-C" parent-dir transform-command "--file" tar-file base-dir) + (when work-dir + (with-temp-file version-file (insert elpa-version))) (dhelpa-install-file dest tar-file) (unless work-dir (delete-file tar-file) |