diff --git a/lisp/init-org.el b/lisp/init-org.el index 33ad951..a10c6da 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -82,6 +82,44 @@ (setq org-latex-preview-mode-display-live t) (setq org-latex-preview-mode-update-delay 0.25)) +;; code for centering LaTeX previews -- a terrible idea +(use-package org-latex-preview + :ensure nil + :hook (org-latex-preview-mode . org-latex-preview-center-mode) + :config + (defun my/org-latex-preview-uncenter (ov) + (overlay-put ov 'before-string nil)) + (defun my/org-latex-preview-recenter (ov) + (overlay-put ov 'before-string (overlay-get ov 'justify))) + (defun my/org-latex-preview-center (ov) + (save-excursion + (goto-char (overlay-start ov)) + (when-let* ((elem (org-element-context)) + ((or (eq (org-element-type elem) 'latex-environment) + (string-match-p "^\\\\\\[" (org-element-property :value elem)))) + (img (overlay-get ov 'display)) + (prop `(space :align-to (- center (0.55 . ,img)))) + (justify (propertize " " 'display prop 'face 'default))) + (overlay-put ov 'justify justify) + (overlay-put ov 'before-string (overlay-get ov 'justify))))) + (define-minor-mode org-latex-preview-center-mode + "Center equations previewed with `org-latex-preview'." + :global nil + (if org-latex-preview-center-mode + (progn + (add-hook 'org-latex-preview-overlay-open-functions + #'my/org-latex-preview-uncenter nil :local) + (add-hook 'org-latex-preview-overlay-close-functions + #'my/org-latex-preview-recenter nil :local) + (add-hook 'org-latex-preview-overlay-update-functions + #'my/org-latex-preview-center nil :local)) + (remove-hook 'org-latex-preview-overlay-close-functions + #'my/org-latex-preview-recenter) + (remove-hook 'org-latex-preview-overlay-update-functions + #'my/org-latex-preview-center) + (remove-hook 'org-latex-preview-overlay-open-functions + #'my/org-latex-preview-uncenter)))) + (use-package org-roam :ensure t :defer diff --git a/lisp/init-tex.el b/lisp/init-tex.el index 8328bda..466558a 100644 --- a/lisp/init-tex.el +++ b/lisp/init-tex.el @@ -3,7 +3,6 @@ (use-package latex - :demand t :ensure (auctex :pre-build (("./autogen.sh") ("./configure" "--without-texmf-dir" "--with-lispdir=.") ("make"))) diff --git a/recentf b/recentf index 60f5c5d..9224230 100644 --- a/recentf +++ b/recentf @@ -1,17 +1,8 @@ -;;; Automatically generated by ‘recentf’ on Sun Dec 14 19:55:48 2025. +;;; Automatically generated by ‘recentf’ on Sun Dec 14 20:31:07 2025. (setq recentf-list '( - "~/.emacs.d/lisp/init-tex.el" - "~/.emacs.d/init.el" - "~/.emacs.d/lisp/init-completion.el" - "~/org/roam/20251212003211-presentation_of_group.org" - "~/.emacs.d/lisp/init-edit.el" - "~/.emacs.d/lisp/init-org.el" - "~/.emacs.d/early-init.el" - "~/org/roam/20251117171745-emacs.org" - "~/.emacs.d/lisp/init-coding.el" - "~/.emacs.d/lisp/init-ui.el" + "~/.emacs.d/lisp/init-dashboard.el" )) (setq recentf-filter-changer-current 'nil)