X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/b330422ccc0d36fda563e17e5b9b2084fd0799ad..636bcaf74b0b4d073bcf486e22f8af53b85a0549:/init.org

diff --git a/init.org b/init.org
index 62341a9..818e5c3 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)
@@ -1465,6 +1480,7 @@ Automatically save place in each file.
 #+begin_src emacs-lisp
 (use-package alloy-mode
   :straight (:host github :repo "dwwmmn/alloy-mode")
+  :mode "\\.als\\'"
   :config (setq alloy-basic-offset 2))
 #+end_src
 
@@ -2085,6 +2101,7 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 #+begin_src emacs-lisp
 (use-package orgalist
+  :disabled t
   :after message
   :hook (message-mode . orgalist-mode))
 #+end_src