From b48dba8223834d0f077370798609968a98ff972d Mon Sep 17 00:00:00 2001 From: David Bremner Date: Tue, 22 Sep 2015 07:59:08 -0300 Subject: create function dhelpa-write-desc The idea is to pass some of what emacs knows about the package back to (perl) debhelper. So far only name and version are written --- dh-elpa.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'dh-elpa.el') diff --git a/dh-elpa.el b/dh-elpa.el index f16c73b..5f799b9 100644 --- a/dh-elpa.el +++ b/dh-elpa.el @@ -45,6 +45,16 @@ (package--make-autoloads-and-stuff pkg-desc pkg-dir) pkg-dir)) +;; Write out (partial) package description in a form easily parsed by +;; non-lisp tools. +(defun dhelpa-write-desc (desc dest) + (let* ((name (package-desc-name desc)) + (version (package-version-join (package-desc-version desc))) + (desc-file (expand-file-name (format "%s.desc" name) dest))) + (with-temp-file desc-file + (insert (format "ELPA-Name: %s\n" name)) + (insert (format "ELPA-Version: %s\n" version))))) + ;;;###autoload (defun dhelpa-install-from-buffer (destdir) "Install a package from the current buffer. -- cgit v1.2.3