mirror of
https://github.com/correl/melpa.git
synced 2024-11-15 03:00:14 +00:00
f4d2a1bf4d
Passing the 'script' option to emacs doesn't work as expected on Linux, since the shebang is evaluated as: #!/usr/bin/env "emacs --script"
28 lines
778 B
EmacsLisp
Executable file
28 lines
778 B
EmacsLisp
Executable file
#!/bin/sh
|
|
:;exec emacs --script "$0" "$@"
|
|
|
|
(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
|
|
(sort (directory-files "recipes/" nil "[^.].*") 'string<)
|
|
(sort (mapcar 'stripstuff (directory-files "packages/" nil "[^.].*\\\(el$\\\|tar$\\\)")) 'string<)))
|
|
|
|
|
|
|