mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-07 15:22:06 +00:00
Code

ob-lilypond: Fix a few variables

Browse Source 
* lisp/ob-lilypond.el (org-babel-lilypond-ly-command):
(org-babel-lilypond-pdf-command):
(org-babel-lilypond-midi-command): Turn into a defvar.  Improve
docstring.
(org-babel-lilypond-gen-png):
(org-babel-lilypond-gen-svg):
(org-babel-lilypond-gen-html):
(org-babel-lilypond-gen-pdf):
(org-babel-lilypond-use-eps):
(org-babel-lilypond-arrange-mode): Improve docstring.
This commit is contained in:
Nicolas Goaziou 2015-05-26 21:37:04 +02:00
parent d6377d7e11
commit e8ab947544
1 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lisp/ob-lilypond.el
View File

@ -62,12 +62,15 @@ org-babel-lilypond-play-midi-post-tangle determines whether to automate the
playing of the resultant midi file. If the value is nil,
the midi file is not automatically played. Default value is t")
(defconst org-babel-lilypond-ly-command
"Command to execute lilypond on your system.")
(defconst org-babel-lilypond-pdf-command
"Command to show a PDF file on your system.")
(defconst org-babel-lilypond-midi-command
"Command to play a MIDI file on your system.")
(defvar org-babel-lilypond-ly-command ""
"Command to execute lilypond on your system.
Do not set it directly. Customize `org-babel-lilypond-commands' instead.")
(defvar org-babel-lilypond-pdf-command ""
"Command to show a PDF file on your system.
Do not set it directly. Customize `org-babel-lilypond-commands' instead.")
(defvar org-babel-lilypond-midi-command ""
"Command to play a MIDI file on your system.
Do not set it directly. Customize `org-babel-lilypond-commands' instead.")
(defcustom org-babel-lilypond-commands
(cond
((eq system-type 'darwin)
@ -96,33 +99,27 @@ you can leave the string empty on this case."
org-babel-lilypond-midi-command (nth 2 value))))
(defvar org-babel-lilypond-gen-png nil
"Image generation (png) can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-PNG to t")
"Non-nil means image generation (PNG) is turned on by default.")
(defvar org-babel-lilypond-gen-svg nil
"Image generation (SVG) can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-SVG to t")
"Non-nil means image generation (SVG) is be turned on by default.")
(defvar org-babel-lilypond-gen-html nil
"HTML generation can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-HTML to t")
"Non-nil means HTML generation is turned on by default.")
(defvar org-babel-lilypond-gen-pdf nil
"PDF generation can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-PDF to t")
"Non-nil means PDF generation is be turned on by default.")
(defvar org-babel-lilypond-use-eps nil
"You can force the compiler to use the EPS backend by setting
ORG-BABEL-LILYPOND-USE-EPS to t")
"Non-nil forces the compiler to use the EPS backend.")
(defvar org-babel-lilypond-arrange-mode nil
"Arrange mode is turned on by setting ORG-BABEL-LILYPOND-ARRANGE-MODE
to t. In Arrange mode the following settings are altered
from default...
"Non-nil turns Arrange mode on.
In Arrange mode the following settings are altered from default:
:tangle yes, :noweb yes
:results silent :comments yes.
In addition lilypond block execution causes tangling of all lilypond
blocks")
blocks.")
(defun org-babel-expand-body:lilypond (body params)
"Expand BODY according to PARAMS, return the expanded body."