35 lines
1.3 KiB
EmacsLisp
35 lines
1.3 KiB
EmacsLisp
;;; defuns-compile.el
|
|
|
|
(! (require 'f))
|
|
|
|
(defun narf--compile-important-dirs ()
|
|
(append (list narf-core-dir narf-contrib-dir)
|
|
(list (concat narf-modules-dir "lib/")
|
|
(concat narf-core-dir "lib/"))
|
|
(f-directories narf-contrib-dir)
|
|
(list narf-modules-dir narf-private-dir)))
|
|
|
|
;;;###autoload (autoload 'narf:compile-el "defuns-compile" nil t)
|
|
(evil-define-command narf:compile-el (&optional bang)
|
|
:repeat nil
|
|
(interactive "<!>")
|
|
(when (eq major-mode 'emacs-lisp-mode)
|
|
(byte-recompile-file (! (f-expand "core-vars.el" narf-core-dir)) t 0)
|
|
(byte-recompile-file (! (f-expand "core-defuns.el" narf-core-dir)) t 0)
|
|
(if (not bang)
|
|
(byte-recompile-file (buffer-file-name) t 0)
|
|
(byte-recompile-file (! (f-expand "init-load-path.el" narf-emacs-dir)) nil 0)
|
|
(byte-recompile-file (! (f-expand "init.el" narf-emacs-dir)) nil 0)
|
|
(dolist (dir (narf--compile-important-dirs))
|
|
(byte-recompile-directory dir 0 nil)))))
|
|
|
|
;;;###autoload (autoload 'narf:compile-autoloads "defuns-compile" nil t)
|
|
(evil-define-command narf:compile-autoloads (&optional bang)
|
|
:repeat nil
|
|
(interactive "<!>")
|
|
(defvar generated-autoload-file (! (f-expand "autoloads.el" narf-core-dir)))
|
|
(apply #'update-directory-autoloads (narf--compile-important-dirs)))
|
|
|
|
(provide 'defuns-compile)
|
|
;;; defuns-compile.el ends here
|