Horhik/Dotfiles
Horhik/Dotfiles
1
0
Fork 0
mirror of https://github.com/Horhik/dotfiles.git synced 2024-11-22 00:11:27 +00:00
Code Issues Projects Releases Wiki Activity

render latex in org-mode to svgm

Browse source
This commit is contained in:
Horhik 2022-10-12 16:38:42 +03:00
parent 62ec055161
commit bb82175d18
2 changed files with 22 additions and 133 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
home/emacs/.emacs.d/config.org
View file

@ -239,17 +239,17 @@
:config :config
;; Make sure org-indent face is available ;; Make sure org-indent face is available
;; Increase the size of various headings ;; Increase the size of various headings
(set-face-attribute 'org-document-title nil :font "Ubuntu" :weight 'bold :height 1.3) (set-face-attribute 'org-document-title nil :font "Vollkorn" :weight 'bold :height 1.3)
(dolist (face '((org-level-1 . 1.4) (dolist (face '((org-level-1 . 1.1)
(org-level-2 . 1.3) (org-level-2 . 1.0)
(org-level-3 . 1.05) (org-level-3 . 1.0)
(org-level-4 . 1.0) (org-level-4 . 1.0)
(org-level-5 . 1.1) (org-level-5 . 1.0)
(org-level-6 . 1.1) (org-level-6 . 1.0)
(org-level-7 . 1.1) (org-level-7 . 1.0)
(org-level-8 . 1.1))) (org-level-8 . 1.0)))
(set-face-attribute (car face) nil :font "Ubuntu" :weight 'bold :height (cdr face))) (set-face-attribute (car face) nil :font "Vollkorn" :weight 'bold :height (cdr face)))
;; Ensure that anything that should be fixed-pitch in Org files appears that way ;; Ensure that anything that should be fixed-pitch in Org files appears that way
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch) (set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
@ -751,64 +751,8 @@
:straight t :straight t
:after org :after org
:config :config
(setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0)) (add-hook 'org-mode-hook 'org-cdlatex-mode)
(setq org-format-latex-options (plist-put org-format-latex-options :scale 1.3))
;(setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0))
;; (setq org-preview-latex-process-alist '((dvipng :programs
;; ("latex" "dvipng")
;; :description "dvi > png" :message "you need to install the programs: latex and dvipng." :image-input-type "dvi" :image-output-type "png" :image-size-adjust
;; (2.0 . 2.0)
;; :latex-compiler
;; ("latex -interaction nonstopmode -output-directory %o %f")
;; :image-converter
;; ("dvipng -D %D -T tight -o %O %f"))
;; (dvisvgm :programs
;; ("latex" "dvisvgm")
;; :description "dvi > svg" :message "you need to install the programs: latex and dvisvgm." :image-input-type "dvi" :image-output-type "svg" :image-size-adjust
;; (1.7 . 1.5)
;; :latex-compiler
;; ("latex -interaction nonstopmode -output-directory %o %f")
;; :image-converter
;; ("/opt/texlive/2022/bin/x86_64-linux/dvisvgm %f -n -b min -c %S -o %O"))
;; (imagemagick :programs
;; ("latex" "convert")
;; :description "pdf > png" :message "you need to install the programs: latex and imagemagick." :image-input-type "pdf" :image-output-type "png" :image-size-adjust
;; (1.0 . 1.0)
;; :latex-compiler
;; ("pdflatex -interaction nonstopmode -output-directory %o %f")
;; :image-converter
;; ("convert -density %D -trim -antialias %f -quality 100 %O"))))
(setq org-preview-latex-default-process 'dvipng) ;No blur when scaling
)
(defun my/text-scale-adjust-latex-previews ()
"Adjust the size of latex preview fragments when changing the
buffer's text scale."
(pcase major-mode
('latex-mode
(dolist (ov (overlays-in (point-min) (point-max)))
(if (eq (overlay-get ov 'category)
'preview-overlay)
(my/text-scale--resize-fragment ov))))
('org-mode
(dolist (ov (overlays-in (point-min) (point-max)))
(if (eq (overlay-get ov 'org-overlay-type)
'org-latex-overlay)
(my/text-scale--resize-fragment ov))))))
(defun my/text-scale--resize-fragment (ov)
(overlay-put
ov 'display
(cons 'image
(plist-put
(cdr (overlay-get ov 'display))
:scale (+ 1.0 (* 0.25 text-scale-mode-amount))))))
(add-hook 'text-scale-mode-hook #'my/text-scale-adjust-latex-previews)
#+end_src #+end_src
** Live Preview ** Live Preview

77
home/emacs/.emacs.d/init.el
View file

@ -174,17 +174,17 @@
:config :config
;; Make sure org-indent face is available ;; Make sure org-indent face is available
;; Increase the size of various headings ;; Increase the size of various headings
(set-face-attribute 'org-document-title nil :font "Ubuntu" :weight 'bold :height 1.3) (set-face-attribute 'org-document-title nil :font "Vollkorn" :weight 'bold :height 1.3)
(dolist (face '((org-level-1 . 1.4) (dolist (face '((org-level-1 . 1.1)
(org-level-2 . 1.3) (org-level-2 . 1.0)
(org-level-3 . 1.05) (org-level-3 . 1.0)
(org-level-4 . 1.0) (org-level-4 . 1.0)
(org-level-5 . 1.1) (org-level-5 . 1.0)
(org-level-6 . 1.1) (org-level-6 . 1.0)
(org-level-7 . 1.1) (org-level-7 . 1.0)
(org-level-8 . 1.1))) (org-level-8 . 1.0)))
(set-face-attribute (car face) nil :font "Ubuntu" :weight 'bold :height (cdr face))) (set-face-attribute (car face) nil :font "Vollkorn" :weight 'bold :height (cdr face)))
;; Ensure that anything that should be fixed-pitch in Org files appears that way ;; Ensure that anything that should be fixed-pitch in Org files appears that way
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch) (set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
@ -597,63 +597,8 @@
:straight t :straight t
:after org :after org
:config :config
(setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0)) (add-hook 'org-mode-hook 'org-cdlatex-mode)
(setq org-format-latex-options (plist-put org-format-latex-options :scale 1.3))
;(setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0))
;; (setq org-preview-latex-process-alist '((dvipng :programs
;; ("latex" "dvipng")
;; :description "dvi > png" :message "you need to install the programs: latex and dvipng." :image-input-type "dvi" :image-output-type "png" :image-size-adjust
;; (2.0 . 2.0)
;; :latex-compiler
;; ("latex -interaction nonstopmode -output-directory %o %f")
;; :image-converter
;; ("dvipng -D %D -T tight -o %O %f"))
;; (dvisvgm :programs
;; ("latex" "dvisvgm")
;; :description "dvi > svg" :message "you need to install the programs: latex and dvisvgm." :image-input-type "dvi" :image-output-type "svg" :image-size-adjust
;; (1.7 . 1.5)
;; :latex-compiler
;; ("latex -interaction nonstopmode -output-directory %o %f")
;; :image-converter
;; ("/opt/texlive/2022/bin/x86_64-linux/dvisvgm %f -n -b min -c %S -o %O"))
;; (imagemagick :programs
;; ("latex" "convert")
;; :description "pdf > png" :message "you need to install the programs: latex and imagemagick." :image-input-type "pdf" :image-output-type "png" :image-size-adjust
;; (1.0 . 1.0)
;; :latex-compiler
;; ("pdflatex -interaction nonstopmode -output-directory %o %f")
;; :image-converter
;; ("convert -density %D -trim -antialias %f -quality 100 %O"))))
(setq org-preview-latex-default-process 'dvipng) ;No blur when scaling
)
(defun my/text-scale-adjust-latex-previews ()
"Adjust the size of latex preview fragments when changing the
buffer's text scale."
(pcase major-mode
('latex-mode
(dolist (ov (overlays-in (point-min) (point-max)))
(if (eq (overlay-get ov 'category)
'preview-overlay)
(my/text-scale--resize-fragment ov))))
('org-mode
(dolist (ov (overlays-in (point-min) (point-max)))
(if (eq (overlay-get ov 'org-overlay-type)
'org-latex-overlay)
(my/text-scale--resize-fragment ov))))))
(defun my/text-scale--resize-fragment (ov)
(overlay-put
ov 'display
(cons 'image
(plist-put
(cdr (overlay-get ov 'display))
:scale (+ 1.0 (* 0.25 text-scale-mode-amount))))))
(add-hook 'text-scale-mode-hook #'my/text-scale-adjust-latex-previews)
(use-package org-fragtog (use-package org-fragtog
:straight t :straight t