diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-26 21:37:04 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-26 21:37:04 +0200 |
commit | e8ab94754435b958f4bea7a695317262f21dd21d (patch) | |
tree | 6ac32f9c7c7c6e14ee404e18f887b08b9b6e4748 | |
parent | d6377d7e1121b01ff7383a070229a3372a4686d0 (diff) | |
download | org-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.el | 37 |
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." |