14 lines
439 B
EmacsLisp
14 lines
439 B
EmacsLisp
|
(defun setup-asy ()
|
||
|
|
(let ((texmf-dist (substring (shell-command-to-string "kpsewhich -var-value TEXMFDIST 2>/dev/null")
|
||
|
|
0 -1)))
|
||
|
|
(when texmf-dist
|
||
|
|
(setq asy-mode-path (concat texmf-dist "/asymptote"))
|
||
|
|
(add-to-list 'load-path asy-mode-path)
|
||
|
|
(load-file (concat asy-mode-path "/asy-init.el")))))
|
||
|
|
|
||
|
|
(register-mypkg
|
||
|
|
(list :name "asy"
|
||
|
|
:enabled (which "asy")
|
||
|
|
:packages nil
|
||
|
|
:init #'setup-asy))
|