[emacs/org] (arguably) more convenient s-T binding for org-todo
[~bandali/configs] / init.org
index 62341a9..d02ed3b 100644 (file)
--- 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)
@@ -898,7 +913,8 @@ And here's where my actual Org configurations begin:
   :bind
   (("C-c a o a" . org-agenda)
    :map org-mode-map
-   ("M-L" . org-insert-last-stored-link))
+   ("M-L" . org-insert-last-stored-link)
+   ("s-T" . org-todo))
   :hook ((org-mode . org-indent-mode)
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
@@ -1465,6 +1481,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 +2102,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