Refactor generate-autoloads.el

This commit is contained in:
Henrik Lissner 2016-01-23 20:51:07 -05:00
parent af8b575808
commit bb168a672c

View file

@ -1,15 +1,14 @@
#!emacs --script
(load (concat user-emacs-directory "init-packages.el"))
(require 'f)
(setq generated-autoload-file (concat narf-core-dir "autoloads.el"))
(when (f-exists? generated-autoload-file)
(delete-file generated-autoload-file))
(let ((dirs (list (concat narf-core-dir "lib")
(concat narf-modules-dir "lib")
narf-contrib-dir)))
(apply #'update-directory-autoloads dirs)
(message "Scanned: %s" dirs))
(let ((generated-autoload-file (concat narf-core-dir "autoloads.el")))
(when (file-exists-p generated-autoload-file)
(delete-file generated-autoload-file))
(mapc (lambda (dir)
(update-directory-autoloads dir)
(message "Scanned: %s" dir))
(list (concat narf-core-dir "lib")
(concat narf-modules-dir "lib")
narf-contrib-dir))
(message "Done!"))