summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-05-26 21:37:04 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-05-26 21:37:04 +0200
commite8ab94754435b958f4bea7a695317262f21dd21d (patch)
tree6ac32f9c7c7c6e14ee404e18f887b08b9b6e4748
parentd6377d7e1121b01ff7383a070229a3372a4686d0 (diff)
downloadorg-mode-e8ab94754435b958f4bea7a695317262f21dd21d.tar.gz
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.
-rw-r--r--lisp/ob-lilypond.el37
1 files changed, 17 insertions, 20 deletions
diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index 43433a3..c7ad576 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -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."