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
|
||||
|
||||
(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!"))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue