Refactor generate-autoloads.el
This commit is contained in:
parent
af8b575808
commit
bb168a672c
1 changed files with 10 additions and 11 deletions
|
@ -1,15 +1,14 @@
|
||||||
#!emacs --script
|
#!emacs --script
|
||||||
|
|
||||||
(load (concat user-emacs-directory "init-packages.el"))
|
(load (concat user-emacs-directory "init-packages.el"))
|
||||||
|
|
||||||
(require 'f)
|
(let ((generated-autoload-file (concat narf-core-dir "autoloads.el")))
|
||||||
(setq generated-autoload-file (concat narf-core-dir "autoloads.el"))
|
(when (file-exists-p generated-autoload-file)
|
||||||
(when (f-exists? generated-autoload-file)
|
(delete-file generated-autoload-file))
|
||||||
(delete-file generated-autoload-file))
|
(mapc (lambda (dir)
|
||||||
|
(update-directory-autoloads dir)
|
||||||
(let ((dirs (list (concat narf-core-dir "lib")
|
(message "Scanned: %s" dir))
|
||||||
(concat narf-modules-dir "lib")
|
(list (concat narf-core-dir "lib")
|
||||||
narf-contrib-dir)))
|
(concat narf-modules-dir "lib")
|
||||||
(apply #'update-directory-autoloads dirs)
|
narf-contrib-dir))
|
||||||
(message "Scanned: %s" dirs))
|
(message "Done!"))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue