From 466327d532184862ccd4df9ebdae014a3b974d1d Mon Sep 17 00:00:00 2001 From: Donald Curtis Date: Sun, 15 Apr 2012 23:11:11 -0500 Subject: [PATCH] add elisp script to print missing packages response to #72 --- missing.el | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100755 missing.el diff --git a/missing.el b/missing.el new file mode 100755 index 00000000..36ece68b --- /dev/null +++ b/missing.el @@ -0,0 +1,27 @@ +#!/usr/bin/env emacs --script + +(defun difference (left right) + "compare two lists" + (let ((caleft (car left)) + (caright (car right))) + (cond + ((not left) right) + ((not right) left) + ((string< caleft caright) + (cons caleft (difference (cdr left) right))) + ((string< caright caleft) + (cons caright (difference left (cdr right)))) + (t (difference (cdr left) (cdr right)))))) + +(defun stripstuff (fn) + "strip the date and extension" + (string-match "\\\(.*\\\)-[0-9]+\.\\\(el$\\\|tar$\\\)" fn) + (match-string 1 fn)) + +(mapc 'message + (difference + (print (sort (directory-files "recipes/" nil "[^.].*") 'string<)) + (print (sort (mapcar 'stripstuff (directory-files "packages/" nil "[^.].*\\\(el$\\\|tar$\\\)")) 'string<)))) + + +