Skip to content

Instantly share code, notes, and snippets.

@xuchunyang
Created April 25, 2016 15:47
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save xuchunyang/655f4073f2cea2a15d228aba66ab7854 to your computer and use it in GitHub Desktop.
Save xuchunyang/655f4073f2cea2a15d228aba66ab7854 to your computer and use it in GitHub Desktop.
#!/Users/xcy/Projects/emacs/nextstep/Emacs.app/Contents/MacOS/Emacs --script
(require 'package)
(package-initialize)
(princ
(mapconcat
#'identity
(mapcar
#'car
(mapcar
(lambda (p) (cons (package-desc-full-name p) p))
(delq nil
(mapcar (lambda (p) (unless (package-built-in-p p) p))
(apply #'append (mapcar #'cdr package-alist))))))
"\n"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment