mirror of
https://github.com/correl/melpa.git
synced 2024-12-25 03:00:15 +00:00
49495e9b06
By recording each package's archive-entry separately we are able to build each recipe independently and then compile the archive contents afterwards.
35 lines
1.1 KiB
Text
Executable file
35 lines
1.1 KiB
Text
Executable file
#!/bin/sh
|
|
:;exec emacs --script "$0" "$@"
|
|
|
|
(defun missing-packages (recipes packages)
|
|
"Show elements of RECIPES that are no in PACKAGES."
|
|
(let (missing)
|
|
(while recipes
|
|
(let ((recipe (car recipes))
|
|
(package (car packages)))
|
|
(cond
|
|
((or (not package) (string< recipe package))
|
|
(setq missing (cons recipe missing)))
|
|
((string< package recipe)
|
|
(error "Package has no recipe: %s" package))
|
|
(t (setq packages (cdr packages)))))
|
|
(setq recipes (cdr recipes)))
|
|
(reverse missing)))
|
|
|
|
(defun stripstuff (fn)
|
|
"Strip the date and extension from FN."
|
|
(string-match "\\(.*\\)-[0-9]+\\.[0-9]+\\.\\(el$\\|tar$\\)" fn)
|
|
(match-string 1 fn))
|
|
|
|
|
|
(add-to-list 'load-path (expand-file-name ".." (file-name-directory load-file-name)))
|
|
(require 'package-build)
|
|
|
|
(dolist (entry-file (directory-files package-build-archive-dir t ".*\.entry$"))
|
|
(when (> (time-to-seconds
|
|
(time-subtract (current-time)
|
|
(nth 5 (file-attributes entry-file))))
|
|
(* 23 60 60))
|
|
(princ (symbol-name (car (pb/read-from-file entry-file))))
|
|
(princ "\n")))
|
|
|