feat(emacs): Org + LaTeX

users/crumb/programs/emacs.nix

@@ -63,6 +63,7 @@ let
             --prefix PATH : "${pkgs.git}/bin" \
             --prefix PATH : "${my-aspell}/bin" \
             --prefix PATH : "${pkgs.direnv}/bin" \
+            --prefix PATH : "${pkgs.texliveFull}/bin" \
             --set ASPELL_CONF "dict-dir ${my-aspell}/lib/aspell"
         done
       '';

users/crumb/programs/emacs/modules/syd-org.el

@@ -179,7 +179,8 @@ See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
    "I" #'org-id-get-create
    "k" #'org-babel-remove-result
    "l" `("Links" . ,syd-org-mode-links-map)
-   "t" #'org-todo)
+   "t" #'org-todo
+   "L" #'org-latex-preview)
   (general-define-key
    :keymaps 'org-agenda-mode-map
    :states '(normal visual motion emacs insert)
@@ -209,6 +210,10 @@ See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
       ("^\\*Org-Babel")
       ("^\\*Capture\\*$\\|CAPTURE-.*$" :size 0.42 :quit nil :select t :autosave ignore))))
 
+(defun syd-org-init-appearance-h ()
+  ;; Larger LaTeX previews.
+  (plist-put org-format-latex-options :scale 1.4))
+
 (use-package org
   :defer-incrementally
   calendar find-func format-spec org-macs org-compat org-faces org-entities
@@ -237,6 +242,7 @@ See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
                                         (0.5 . org-upcoming-deadline)
                                         (0.0 . org-upcoming-distant-deadline)))
            (org-agenda-window-setup 'current-window)
+           (org-refile-use-outline-path t)
            (org-agenda-skip-unavailable-files t)
            ;; Shift the agenda to show the previous 3 days and the next 7 days
            ;; for better context on your week. The past is less important than
@@ -305,7 +311,8 @@ See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
       ;; ol-eww
       ))
   (add-hook 'org-load-hook
-    #'syd-org-init-popup-rules-h)
+            #'syd-org-init-popup-rules-h
+            #'syd-org-init-appearance-h)
   :config
   (require 'syd-prose)
   (syd-add-hook 'org-mode-hook
@@ -413,5 +420,8 @@ In case of failure, fail gracefully."
    `(org-superstar-header-bullet ((t (:font ,syd-alt-fixed-pitch-font))))
    `(org-superstar-item ((t (:font ,syd-alt-fixed-pitch-font))))))
 
+(use-package org-fragtog
+  :hook (org-mode . org-fragtog-mode))
+
 (provide 'syd-org)
 ;;; syd-org.el ends here