feat(emacs): Tecosaur LaTeX preview

modules/home/users/crumb/emacs/modules/lang/syd-lang-clojure.el

@@ -103,9 +103,10 @@
        :side right :vslot -8 :quit t :select t)
       (,(rx bol "*cider-doc*")
        :slot 2 :vslot -8 :quit t :select t)))
-  (add-to-list 'display-buffer-alist
-               `(,(regexp-quote cider-scratch-buffer-name)
-                 (,#'display-buffer-same-window)))
+  (with-eval-after-load 'cider-scratch
+    (add-to-list 'display-buffer-alist
+                 `(,(regexp-quote cider-scratch-buffer-name)
+                   (,#'display-buffer-same-window))))
   ;; DEPRECATED: Remove once syd-strategies is working.
   (syd-add-hook '(clojure-mode-hook
                   clojurescript-mode-hook

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

@@ -308,6 +308,32 @@ See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
   calendar find-func format-spec org-macs org-compat org-faces org-entities
   org-list org-pcomplete org-src org-footnote org-macro ob org org-agenda
   org-capture
+  ;; We are using Tecosaur's shiny new async LaTeX preview engine.  Learn more
+  ;; here: https://abode.karthinks.com/org-latex-preview/#org9054eb6
+  :straight `(org
+              :fork (:host nil
+                     :repo "https://git.tecosaur.net/tec/org-mode.git"
+                     :branch "dev"
+                     :remote "tecosaur")
+              :files (:defaults "etc")
+              :build t
+              :pre-build
+              (with-temp-file "org-version.el"
+               (require 'lisp-mnt)
+               (let ((version
+                      (with-temp-buffer
+                        (insert-file-contents "lisp/org.el")
+                        (lm-header "version")))
+                     (git-version
+                      (string-trim
+                       (with-temp-buffer
+                         (call-process "git" nil t nil "rev-parse" "--short" "HEAD")
+                         (buffer-string)))))
+                (insert
+                 (format "(defun org-release () \"The release version of Org.\" %S)\n" version)
+                 (format "(defun org-git-version () \"The truncate git commit hash of Org mode.\" %S)\n" git-version)
+                 "(provide 'org-version)\n")))
+              :pin nil)
   :init
   ;; HACK: Face specs fed directly to `org-todo-keyword-faces' don't respect
   ;; underlying faces like the `org-todo' face does, so we define our own
@@ -418,6 +444,19 @@ See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
   (syd-org-init-theme)
   (syd-org-init-keybinds))
 
+(use-package org-latex-preview
+  :defer t
+  :straight nil
+  :custom (;; Generate previews whilst editing.
+           (org-latex-preview-live t)
+           ;; Default behaviour waits one second before generating the live
+           ;; preview.
+           (org-latex-preview-live-debounce 0.25)
+           ;; Increase size of previews.
+           (org-latex-preview-appearance-options
+            (plist-put org-latex-preview-appearance-options :zoom 1.4)))
+  :hook (org-mode . org-latex-preview-auto-mode))
+
 (use-package org-appear
   :hook (org-mode . org-appear-mode)
   :custom (org-appear-autoemphasis t))
@@ -532,9 +571,6 @@ 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))
-
 (use-package org-noter
   :commands org-noter)