blob: 69b214d54f0adc2674a2be5e2350d2d8d64a18ed (
plain)
1
2
3
4
5
6
7
8
9
|
(require 'package)
(find-file "mode-icons.el")
(let ((info (package-buffer-info)))
(with-current-buffer (get-buffer-create "pkg")
(insert "(define-package \"" (elt info 0) "\"\n"
" \"" (elt info 3) "\"\n"
" \"" (elt info 2) "\")")
(princ (buffer-string))))
|