mirror of
https://github.com/correl/melpa.git
synced 2024-11-28 11:09:55 +00:00
36 lines
1.1 KiB
Text
36 lines
1.1 KiB
Text
|
#!/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")))
|
||
|
|
|