ob-lilypond: Fix a few variables

* 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

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