From 88da533cf81476ef23dbf15e51a65a7f1a1e31c8 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 26 Nov 2015 16:20:44 -0500
Subject: [PATCH] org: add lilypond support (music sheets)

---
 modules/module-org.el | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/modules/module-org.el b/modules/module-org.el
index da9368f89..26673bccb 100644
--- a/modules/module-org.el
+++ b/modules/module-org.el
@@ -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