2015-02-09 01:29:48 +01:00
|
|
|
(require 'package)
|
|
|
|
(package-initialize)
|
|
|
|
|
|
|
|
(require 'package-build)
|
|
|
|
|
|
|
|
(setq package-build-working-dir (expand-file-name ".")
|
|
|
|
package-build-archive-dir (expand-file-name "."))
|
|
|
|
|
|
|
|
(defun melpa2nix-build-package ()
|
|
|
|
(if (not noninteractive)
|
|
|
|
(error "`melpa2nix-build-package' is to be used only with -batch"))
|
|
|
|
(pcase command-line-args-left
|
|
|
|
(`(,package ,version . ,files)
|
|
|
|
(melpa2nix-package-build-archive package version files))))
|
|
|
|
|
2015-12-29 20:23:49 +01:00
|
|
|
(defun melpa2nix-build-package-from-recipe ()
|
|
|
|
(if (not noninteractive)
|
|
|
|
(error "`melpa2nix-build-package' is to be used only with -batch"))
|
|
|
|
(pcase command-line-args-left
|
2016-01-16 00:53:54 +01:00
|
|
|
(`(,recipe-file ,version)
|
|
|
|
(let* ((recipe (package-build--read-from-file recipe-file))
|
|
|
|
(rcp (cdr recipe))
|
|
|
|
(package (car recipe))
|
2015-12-29 20:23:49 +01:00
|
|
|
(files (package-build--config-file-list rcp)))
|
|
|
|
(melpa2nix-package-build-archive package version files)))))
|
|
|
|
|
2015-02-09 01:29:48 +01:00
|
|
|
(defun melpa2nix-package-build-archive (name version files)
|
|
|
|
"Build a package archive for package NAME."
|
2015-12-27 17:37:02 +01:00
|
|
|
(package-build--message "\n;;; %s\n" name)
|
2015-02-09 01:29:48 +01:00
|
|
|
(let* ((start-time (current-time))
|
|
|
|
(archive-entry (package-build-package name
|
|
|
|
version
|
|
|
|
files
|
|
|
|
package-build-working-dir
|
2016-01-16 17:01:33 +01:00
|
|
|
package-build-archive-dir))
|
|
|
|
(archive-file (package-build--archive-file-name archive-entry)))
|
2015-12-27 17:37:02 +01:00
|
|
|
|
2016-01-16 17:01:33 +01:00
|
|
|
(progn
|
|
|
|
(package-build--message "Built in %.3fs, finished at %s"
|
2015-12-27 17:37:02 +01:00
|
|
|
(time-to-seconds (time-since start-time))
|
2016-01-16 17:01:33 +01:00
|
|
|
(current-time-string))
|
|
|
|
(princ (format "%s\n" archive-file)))))
|