Current File : //usr/local/share/emacs/27.2/lisp/org/ob-lilypond.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\"\210\305\306\307\"\207" [require ob defalias lilypond-mode LilyPond-mode add-to-list org-babel-tangle-lang-exts ("LilyPond" . "ly")] 3)
#@155 Default header arguments for lilypond code blocks.
NOTE: The arguments are determined at lilypond compile time.
See `org-babel-lilypond-set-header-args'.
(defvar org-babel-default-header-args:lilypond nil (#$ . 584))
#@270 Following the org-babel-tangle (C-c C-v t) command,
org-babel-lilypond-compile-post-tangle determines whether ob-lilypond should
automatically attempt to compile the resultant tangled file.
If the value is nil, no automated compilation takes place.
Default value is t.
(defvar org-babel-lilypond-compile-post-tangle t (#$ . 808))
#@246 Following a successful LilyPond compilation
org-babel-lilypond-display-pdf-post-tangle determines whether to automate the
drawing / redrawing of the resultant pdf. If the value is nil,
the pdf is not automatically redrawn. Default value is t.
(defvar org-babel-lilypond-display-pdf-post-tangle t (#$ . 1145))
#@242 Following a successful LilyPond compilation
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
(defvar org-babel-lilypond-play-midi-post-tangle t (#$ . 1463))
#@119 Command to execute lilypond on your system.
Do not set it directly. Customize `org-babel-lilypond-commands' instead.
(defvar org-babel-lilypond-ly-command "" (#$ . 1775))
#@118 Command to show a PDF file on your system.
Do not set it directly. Customize `org-babel-lilypond-commands' instead.
(defvar org-babel-lilypond-pdf-command "" (#$ . 1954))
#@119 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 "" (#$ . 2133))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable org-babel-lilypond-commands funcall function #[0 "\301\267\202\n \302\207\303\207\304\207" [system-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (darwin 6 windows-nt 8)) ("/Applications/lilypond.app/Contents/Resources/bin/lilypond" "open" "open") ("lilypond" #1="" #1#) ("lilypond" "xdg-open" "xdg-open")] 2] "Commands to run lilypond and view or play the results.\nThese should be executables that take a filename as an argument.\nOn some system it is possible to specify the filename directly\nand the viewer or player will be determined from the file type;\nyou can leave the string empty on this case." :group org-babel :type (list (string :tag "Lilypond ") (string :tag "PDF Viewer ") (string :tag "MIDI Player")) :version "24.4" :package-version (Org . "8.2.7") :set #[514 "L\210\211@\211A@\3038\211\207" [org-babel-lilypond-ly-command org-babel-lilypond-pdf-command org-babel-lilypond-midi-command 2] 4 "\n\n(fn SYMBOL VALUE)"]] 14)
#@63 Non-nil means image generation (PNG) is turned on by default.
(defvar org-babel-lilypond-gen-png nil (#$ . 3417))
#@66 Non-nil means image generation (SVG) is be turned on by default.
(defvar org-babel-lilypond-gen-svg nil (#$ . 3537))
#@56 Non-nil means HTML generation is turned on by default.
(defvar org-babel-lilypond-gen-html nil (#$ . 3660))
#@58 Non-nil means PDF generation is be turned on by default.
(defvar org-babel-lilypond-gen-pdf nil (#$ . 3774))
#@53 Non-nil forces the compiler to use the EPS backend.
(defvar org-babel-lilypond-use-eps nil (#$ . 3889))
#@232 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.
(defvar org-babel-lilypond-arrange-mode nil (#$ . 4000))
#@78 Expand BODY according to PARAMS, return the expanded body.
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:lilypond #[514 "C\300!\301\302\303\304\305\306!\307\"\310\311%\"\210\242\262\207" [org-babel--get-vars mapc make-byte-code 257 "\301@!A\300\302\303\304!P;\203 \202 \305\306\"\300\242#\240\207" vconcat vector [symbol-name replace-regexp-in-string "$" regexp-quote format "%S"] 9 "\n\n(fn PAIR)"] 11 (#$ . 4294)])
#@298 This function is called by `org-babel-execute-src-block'.
Depending on whether we are in arrange mode either:
1. Attempt to execute lilypond block according to header settings
(This is the default basic mode)
2. Tangle all lilypond blocks and process the result (arrange mode)
(fn BODY PARAMS)
(defalias 'org-babel-execute:lilypond #[514 "\301!\210\203 \302 \207\303\"\207" [org-babel-lilypond-arrange-mode org-babel-lilypond-set-header-args org-babel-lilypond-tangle org-babel-lilypond-process-basic] 5 (#$ . 4738)])
#@153 ob-lilypond specific tangle, attempts to invoke
=ly-execute-tangled-ly= if tangle is successful. Also passes
specific arguments to =org-babel-tangle=.
(defalias 'org-babel-lilypond-tangle #[0 "\300\301\302\303#\205\n \304 \207" [org-babel-tangle nil "yes" "lilypond" org-babel-lilypond-execute-tangled-ly] 4 (#$ . 5271) nil])
#@59 Execute a lilypond block in basic mode.
(fn BODY PARAMS)
(defalias 'org-babel-lilypond-process-basic #[514 "\301\236A\302\236A\206\f \303\304\305!\211\306\307!\310\311\312\313\314!\315\"\316$\216r\211q\210\317\"c\210)r\211q\210\320\321\211\321\311%\210*\266\322\323\324\325!\326\"A\206J \327\330\331!\332\260\303\"\266\321\207" [org-babel-lilypond-ly-command :file :cmdline "" org-babel-temp-file "lilypond-" generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-babel-expand-body:generic write-region nil org-babel-eval " -dbackend=eps -dno-gs-load-fonts -dinclude-eps-fonts " assoc file-name-extension (("pdf" . "--pdf ") ("ps" . "--ps ") ("png" . "--png ")) "--png " "--output=" file-name-sans-extension " "] 14 (#$ . 5604)])
#@91 Return an error because LilyPond exporter does not support sessions.
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:lilypond #[514 "\300\301!\207" [error "Sorry, LilyPond does not currently support sessions!"] 4 (#$ . 6436)])
#@120 Compile result of block tangle with lilypond.
If error in compilation, attempt to mark the error in lilypond org file.
(defalias 'org-babel-lilypond-execute-tangled-ly #[0 "\205Q \301\302 \303\"\301\302 \304\"\305!\204 \306\307!\210\202* \305!\203% \310!\210\311\"\210\312\313!\210\314 \210\315!\210eb\210\316!\203D \306\317!\202O \320\321!\210\322!\210\323!\266\202\207" [org-babel-lilypond-compile-post-tangle org-babel-lilypond-switch-extension buffer-file-name ".lilypond" ".ly" file-exists-p error "Error: Tangle Failed!" delete-file rename-file org-switch-to-buffer-other-window "*lilypond*" erase-buffer org-babel-lilypond-compile-lilyfile org-babel-lilypond-check-for-compile-error "Error in Compilation!" other-window -1 org-babel-lilypond-attempt-to-open-pdf org-babel-lilypond-attempt-to-play-midi] 5 (#$ . 6677)])
#@131 Compile lilypond file and check for compile errors.
FILE-NAME is full path to lilypond (.ly) file.
(fn FILE-NAME &optional TEST)
(defalias 'org-babel-lilypond-compile-lilyfile #[513 "\306\307!\210\310\311\312 \203 \313\202 \314\n\203 \315\202 \314 \203\" \316\202# \314\f\203+ \317\202, \314
\2034 \320\2025 \314\321\322\f!P \203] \n\n\n\n\n\n\n\n\n\n\n\257 \202v \323 & \207" [org-babel-lilypond-ly-command org-babel-lilypond-gen-png org-babel-lilypond-gen-html org-babel-lilypond-gen-pdf org-babel-lilypond-use-eps org-babel-lilypond-gen-svg message "Compiling LilyPond..." nil "*lilypond*" t "--png" "" "--html" "--pdf" "-dbackend=eps" "-dbackend=svg" "--output=" file-name-sans-extension call-process] 25 (#$ . 7521)])
#@311 Check for compile error.
This is performed by parsing the *lilypond* buffer
containing the output message from the compilation.
FILE-NAME is full path to lilypond file.
If TEST is t just return nil if no error found, and pass
nil as file-name since it is unused in this context.
(fn FILE-NAME &optional TEST)
(defalias 'org-babel-lilypond-check-for-compile-error #[513 "\300\301\302\303#\203
\211\202 \211\205 \304!\207" [search-forward "error:" nil t org-babel-lilypond-process-compile-error] 6 (#$ . 8293)])
#@107 Process the compilation error that has occurred.
FILE-NAME is full path to lilypond file.
(fn FILE-NAME)
(defalias 'org-babel-lilypond-process-compile-error #[257 "\300 \301\"\302\"\210\303\304!\262\207" [org-babel-lilypond-parse-line-num org-babel-lilypond-parse-error-line org-babel-lilypond-mark-error-line error "Error: Compilation Failed!"] 6 (#$ . 8816)])
#@144 Mark the erroneous lines in the lilypond org buffer.
FILE-NAME is full path to lilypond file.
LINE is the erroneous line.
(fn FILE-NAME LINE)
(defalias 'org-babel-lilypond-mark-error-line #[514 "\301\302\303\304\"!\260!\210`eb\210\305\306\305\307#\203( \310 \210\311`!\210`GZb\202* \211b\207" [case-fold-search org-switch-to-buffer-other-window file-name-nondirectory org-babel-lilypond-switch-extension ".org" nil search-forward t org-show-all set-mark] 7 (#$ . 9191)])
#@51 Extract error line number.
(fn &optional BUFFER)
(defalias 'org-babel-lilypond-parse-line-num #[256 "\211\203 \211q\210\300\301\302\303#\205$ \300\301\302\303#\205$ \300\301\302\303#\205$ \300\301\302\303#\211\205> \302u\210\304T\305\301\302\303#S{!\211\247\205< \211\262\207" [search-backward ":" nil t string-to-number search-forward] 8 (#$ . 9674)])
#@163 Extract the erroneous line from the tangled .ly file.
FILE-NAME is full path to lilypond file.
LINENO is the number of the erroneous line.
(fn FILE-NAME LINENO)
(defalias 'org-babel-lilypond-parse-error-line #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\"\314\211\211\315%\210\303V\205/ eb\210Sy\210`\316 {*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents org-babel-lilypond-switch-extension ".ly" nil t point-at-eol] 9 (#$ . 10038)])
#@182 Attempt to display the generated pdf file.
FILE-NAME is full path to lilypond file.
If TEST is non-nil, the shell command is returned and is not run.
(fn FILE-NAME &optional TEST)
(defalias 'org-babel-lilypond-attempt-to-open-pdf #[513 "\205* \302\303\"\304!\203% \305Q\203 \211\202 \306\307\310 $\262\202( \311\312!\262\207" [org-babel-lilypond-display-pdf-post-tangle org-babel-lilypond-pdf-command org-babel-lilypond-switch-extension ".pdf" file-exists-p " " start-process "\"Audition pdf\"" "*lilypond*" message "No pdf file generated so can't display!"] 9 (#$ . 10614)])
#@180 Attempt to play the generated MIDI file.
FILE-NAME is full path to lilypond file.
If TEST is non-nil, the shell command is returned and is not run.
(fn FILE-NAME &optional TEST)
(defalias 'org-babel-lilypond-attempt-to-play-midi #[513 "\205* \302\303\"\304!\203% \305Q\203 \211\202 \306\307\310 $\262\202( \311\312!\262\207" [org-babel-lilypond-play-midi-post-tangle org-babel-lilypond-midi-command org-babel-lilypond-switch-extension ".midi" file-exists-p " " start-process "\"Audition midi\"" "*lilypond*" message "No midi file generated so can't play!"] 9 (#$ . 11209)])
#@72 Toggle whether midi will be played following a successful compilation.
(defalias 'org-babel-lilypond-toggle-midi-play #[0 "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-play-midi-post-tangle message "Post-Tangle MIDI play has been " "ENABLED." "DISABLED."] 3 (#$ . 11801) nil])
#@74 Toggle whether pdf will be displayed following a successful compilation.
(defalias 'org-babel-lilypond-toggle-pdf-display #[0 "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-display-pdf-post-tangle message "Post-Tangle PDF display has been " "ENABLED." "DISABLED."] 3 (#$ . 12099) nil])
#@60 Toggle whether png image will be generated by compilation.
(defalias 'org-babel-lilypond-toggle-png-generation #[0 "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-gen-png message "PNG image generation has been " "ENABLED." "DISABLED."] 3 (#$ . 12405) nil])
#@55 Toggle whether html will be generated by compilation.
(defalias 'org-babel-lilypond-toggle-html-generation #[0 "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-gen-html message "HTML generation has been " "ENABLED." "DISABLED."] 3 (#$ . 12681) nil])
#@54 Toggle whether pdf will be generated by compilation.
(defalias 'org-babel-lilypond-toggle-pdf-generation #[0 "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-gen-pdf message "PDF generation has been " "ENABLED." "DISABLED."] 3 (#$ . 12949) nil])
#@47 Toggle whether in Arrange mode or Basic mode.
(defalias 'org-babel-lilypond-toggle-arrange-mode #[0 "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-arrange-mode message "Arrange mode has been " "ENABLED." "DISABLED."] 3 (#$ . 13213) nil])
#@83 Utility command to swap current FILE-NAME extension with EXT.
(fn FILE-NAME EXT)
(defalias 'org-babel-lilypond-switch-extension #[514 "\300!P\207" [file-name-sans-extension] 4 (#$ . 13471)])
#@143 Default arguments to use when evaluating a lilypond source block.
These depend upon whether we are in Arrange mode i.e. MODE is t.
(fn MODE)
(defalias 'org-babel-lilypond-get-header-args #[257 "\211\203 \300\207\301\207" [((:tangle . "yes") (:noweb . "yes") (:results . "silent") (:cache . "yes") (:comments . "yes")) ((:results . "file") (:exports . "results"))] 2 (#$ . 13672)])
#@101 Set org-babel-default-header-args:lilypond
dependent on ORG-BABEL-LILYPOND-ARRANGE-MODE.
(fn MODE)
(defalias 'org-babel-lilypond-set-header-args #[257 "\301!\211\207" [org-babel-default-header-args:lilypond org-babel-lilypond-get-header-args] 3 (#$ . 14062)])
(provide 'ob-lilypond)
Mini Shell