mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
org: add lilypond support (music sheets)
This commit is contained in:
@ -142,9 +142,30 @@
|
||||
'org-babel-load-languages
|
||||
'((python . t) (ruby . t) (sh . t) (js . t) (css . t)
|
||||
(plantuml . t) (emacs-lisp . t) (matlab . t)
|
||||
(latex . t) (calc . t) (lisp . t)
|
||||
(latex . t) (calc . t) (lisp . t) (lilypond . t)
|
||||
(http . t) (rust . t) (go . t)))
|
||||
|
||||
(setq org-babel-lilypond-gen-png t)
|
||||
;; Ensure lilypond doesn't print out entire pages for previews
|
||||
(defvar org-babel-lilypond-prologue
|
||||
"\\paper { indent = 0\\mm line-width = 180\\mm oddHeaderMarkup = \"\" evenHeaderMarkup = \"\" oddFooterMarkup = \"\" evenFooterMarkup = \"\" }")
|
||||
(defun org-babel-lilypond-get-header-args (mode)
|
||||
(cond (mode
|
||||
`((:tangle . "yes")
|
||||
(:noweb . "yes")
|
||||
(:results . "silent")
|
||||
(:cache . "yes")
|
||||
(:comments . "yes")
|
||||
(:prologue . ,org-babel-lilypond-prologue)))
|
||||
(t
|
||||
`((:results . "file")
|
||||
(:exports . "results")
|
||||
(:prologue . ,org-babel-lilypond-prologue)))))
|
||||
(setq org-babel-default-header-args:lilypond
|
||||
'((:results . "file")
|
||||
(:exports . "results")
|
||||
(:prologue . ,org-babel-lilypond-prologue)))
|
||||
|
||||
(setq org-plantuml-jar-path puml-plantuml-jar-path)
|
||||
(when (file-exists-p "~/.plantuml")
|
||||
(add-to-list 'org-babel-default-header-args:plantuml
|
||||
|
Reference in New Issue
Block a user