From 83eb5bce7f37ee4a36fb38b68ac4c335688c9238 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Thu, 11 Apr 2019 11:00:46 -0400 Subject: [emacs] add a/reload-init function for reloading the right init file Based on radian-reload-init: https://github.com/raxod502/straight.el/tree/aa2f612546815167f87dda835f8efaabf1264c7f#the-transaction-system --- init.org | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/init.org b/init.org index 62341a9..ee75041 100644 --- a/init.org +++ b/init.org @@ -297,6 +297,20 @@ integration, we will define a =use-feature= for plain ole ,@args)) #+end_src +Also, here's a useful function for reloading the init file (useful +after running =straight-check-all=: + +#+begin_src emacs-lisp +(defun a/reload-init () + "Reload init.el." + (interactive) + (straight-transaction + (straight-mark-transaction-as-init) + (load (if a/byte-compiled-init + (concat (file-name-sans-extension user-init-file) ".elc") + user-init-file)))) +#+end_src + *** =use-package= #+begin_quote @@ -820,7 +834,8 @@ While at it, let's bind a few for some =straight-*= functions too: ("f" . straight-freeze-versions) ("t" . straight-thaw-versions) ("P" . straight-prune-build) - ("r" . straight-get-recipe) + ("g" . straight-get-recipe) + ("r" . a/reload-init) ;; M-x ^straight-.*-all$ ("a c" . straight-check-all) ("a f" . straight-fetch-all) -- cgit v1.2.3-60-g2f50