WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/ob-lilypond.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:06 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/ob-lilypond.el
;;; in Emacs version 24.3.1
;;; 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\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\310\311\312\"\207" [require ob ob-eval ob-tangle outline defalias lilypond-mode LilyPond-mode add-to-list org-babel-tangle-lang-exts ("LilyPond" . "ly")] 3)
#@138 Default header arguments for lilypond code blocks.
NOTE: The arguments are determined at lilypond compile time.
See (ly-set-header-args)
(defvar org-babel-default-header-args:lilypond nil (#$ . 799))
#@253 Following the org-babel-tangle (C-c C-v t) command,
ly-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 ly-compile-post-tangle t (#$ . 1006))
#@229 Following a successful LilyPond compilation
ly-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 ly-display-pdf-post-tangle t (#$ . 1311))
#@226 Following a successful LilyPond compilation
ly-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 ly-play-midi-post-tangle t (#$ . 1596))
(defvar ly-OSX-ly-path "/Applications/lilypond.app/Contents/Resources/bin/lilypond")
(defvar ly-OSX-pdf-path "open")
(defvar ly-OSX-midi-path "open")
(defvar ly-nix-ly-path "/usr/bin/lilypond")
(defvar ly-nix-pdf-path "evince")
(defvar ly-nix-midi-path "timidity")
(defvar ly-w32-ly-path "lilypond")
(defvar ly-w32-pdf-path "")
(defvar ly-w32-midi-path "")
#@79 Image generation (png) can be turned on by default by setting
LY-GEN-PNG to t
(defvar ly-gen-png nil (#$ . 2232))
#@79 Image generation (SVG) can be turned on by default by setting
LY-GEN-SVG to t
(defvar ly-gen-svg nil (#$ . 2352))
#@73 HTML generation can be turned on by default by setting
LY-GEN-HTML to t
(defvar ly-gen-html nil (#$ . 2472))
#@71 PDF generation can be turned on by default by setting
LY-GEN-PDF to t
(defvar ly-gen-pdf nil (#$ . 2587))
#@78 You can force the compiler to use the EPS backend by setting
LY-USE-EPS to t
(defvar ly-use-eps nil (#$ . 2699))
#@262 Arrange mode is turned on by setting LY-ARRANGE-MODE
to t.  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 ly-arrange-mode nil (#$ . 2819))
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:lilypond #[(body params) "\303\304\305\306\"\"\307\310	\"\210\n)\207" [params vars body mapcar cdr org-babel-get-header :var mapc #[(pair) "\304@!A\305\306\307\n!P	;\203	\202\310\311	\"#\211*\207" [pair value name body symbol-name replace-regexp-in-string "$" regexp-quote format "%S"] 5]] 5 (#$ . 3127)])
#@280 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)
(defalias 'org-babel-execute:lilypond #[(body params) "\303!\210\203\304 \207\305	\n\"\207" [ly-arrange-mode body params ly-set-header-args ly-tangle ly-process-basic] 3 (#$ . 3544)])
#@152 ob-lilypond specific tangle, attempts to invoke
=ly-execute-tangled-ly= if tangle is successful.  Also passes
specific arguments to =org-babel-tangle=
(defalias 'ly-tangle #[nil "\300\301\302\303#\205\n\304 \207" [org-babel-tangle nil "yes" "lilypond" ly-execute-tangled-ly] 4 (#$ . 4018) nil])
#@41 Execute a lilypond block in basic mode.
(defalias 'ly-process-basic #[(body params) "\306\307\"A\306\310\"A\306\311\"A\206\312\313\314!\211\315\316\317!!\320\216r
q\210\321\"c\210)r
q\210\322\323\211\323\324%\210,\325\326 \327\330\331\332\333\334\n!\335\f\260\n\312\"\210,\323\207" [params result-params out-file cmdline in-file #1=#:temp-buffer assoc :result-params :file :cmdline "" org-babel-temp-file "lilypond-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) org-babel-expand-body:generic write-region nil 0 org-babel-eval ly-determine-ly-path " -dbackend=eps " "-dno-gs-load-fonts " "-dinclude-eps-fonts " "--png " "--output=" file-name-sans-extension " " #2=#:temp-file body] 12 (#$ . 4320)])
#@70 Return an error because LilyPond exporter does not support sessions.
(defalias 'org-babel-prep-session:lilypond #[(session params) "\300\301!\207" [error "Sorry, LilyPond does not currently support sessions!"] 2 (#$ . 5135)])
#@119 Compile result of block tangle with lilypond.
If error in compilation, attempt to mark the error in lilypond org file
(defalias 'ly-execute-tangled-ly #[nil "\203T\303\304 \305\"\303\304 \306\"\307\n!\203(\307	!\203 \310	!\210\311\n	\"\210\202,\312\313!\210\314\315!\210\316 \210\317	!\210eb\210\320	!\204O\321\322!\210\323	!\210\324	!\210\202S\312\325!\210*\326\207" [ly-compile-post-tangle ly-temp-file ly-tangled-file ly-switch-extension buffer-file-name ".lilypond" ".ly" file-exists-p delete-file rename-file error "Error: Tangle Failed!" switch-to-buffer-other-window "*lilypond*" erase-buffer ly-compile-lilyfile ly-check-for-compile-error other-window -1 ly-attempt-to-open-pdf ly-attempt-to-play-midi "Error in Compilation!" nil] 4 (#$ . 5368)])
#@98 Compile lilypond file and check for compile errors
FILE-NAME is full path to lilypond (.ly) file
(defalias 'ly-compile-lilyfile #[(file-name &optional test) "\306\307!\210\310 \311\312\313\211\203\314\202\315	\203\316\202\315\n\203$\317\202%\315\203-\320\202.\315\f\2036\321\2027\315\322\323
!P
 \203u\257\202\216\324&.\f\207" [ly-gen-png ly-gen-html ly-gen-pdf ly-use-eps ly-gen-svg file-name message "Compiling LilyPond..." ly-determine-ly-path nil "*lilypond*" t "--png" "" "--html" "--pdf" "-dbackend=eps" "-dbackend=svg" "--output=" file-name-sans-extension call-process arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 test] 13 (#$ . 6138)])
#@279 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
(defalias 'ly-check-for-compile-error #[(file-name &optional test) "\303\304\305\306#	\204\205\307\n!\202)\207" [is-error test file-name search-forward "error:" nil t ly-process-compile-error] 4 (#$ . 6901)])
#@90 Process the compilation error that has occurred.
FILE-NAME is full path to lilypond file
(defalias 'ly-process-compile-error #[(file-name) "\303 \304	\"\305	\n\"\210\306\307!*\207" [line-num file-name error-lines ly-parse-line-num ly-parse-error-line ly-mark-error-line error "Error: Compilation Failed!"] 3 (#$ . 7403)])
#@122 Mark the erroneous lines in the lilypond org buffer.
FILE-NAME is full path to lilypond file.
LINE is the erroneous line
(defalias 'ly-mark-error-line #[(file-name line) "\304\305\306\307\"!\260!\210`eb\210\310\311\310\312#\203)\313 \210\314`!\210`GZb\202+	b)\207" [file-name temp case-fold-search line switch-to-buffer-other-window file-name-nondirectory ly-switch-extension ".org" nil search-forward t show-all set-mark] 5 (#$ . 7735)])
#@28 Extract error line number.
(defalias 'ly-parse-line-num #[(&optional buffer) "\203q\210\303\304\305\306#\205$\303\304\305\306#\205$\303\304\305\306#\205$\303\304\305\306#\305\211\205C\305u\210\nT\307\304\305\306#S{\310	!\211\247\205B	)*\207" [buffer num start search-backward ":" nil t search-forward string-to-number] 6 (#$ . 8188)])
#@138 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
(defalias 'ly-parse-error-line #[(file-name lineNo) "\303\304!rq\210\305\216\306\307	\310\"\311\211\211\312%\210\n\313V\205&eb\210\nSy\210`\314 {+\207" [#1=#:temp-buffer file-name lineNo generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents ly-switch-extension ".ly" nil t 0 point-at-eol] 6 (#$ . 8543)])
#@148 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
(defalias 'ly-attempt-to-open-pdf #[(file-name &optional test) "\205,\305	\306\"\307\n!\203(\310 \311\nQ\f\203\202$\312\313\314\310 \n$)\202+\315\316!)\207" [ly-display-pdf-post-tangle file-name pdf-file cmd-string test ly-switch-extension ".pdf" file-exists-p ly-determine-pdf-path " " start-process "\"Audition pdf\"" "*lilypond*" message "No pdf file generated so can't display!"] 5 (#$ . 9072)])
#@146 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
(defalias 'ly-attempt-to-play-midi #[(file-name &optional test) "\205,\305	\306\"\307\n!\203(\310 \311\nQ\f\203\202$\312\313\314\310 \n$)\202+\315\316!)\207" [ly-play-midi-post-tangle file-name midi-file cmd-string test ly-switch-extension ".midi" file-exists-p ly-determine-midi-path " " start-process "\"Audition midi\"" "*lilypond*" message "No midi file generated so can't play!"] 5 (#$ . 9636)])
#@123 Return correct path to ly binary depending on OS
If TEST is non-nil, it contains a simulation of the OS for test purposes
(defalias 'ly-determine-ly-path #[(&optional test) "\206	\211\306\230\203\202\n\307\230\203\f\202
)\207" [test system-type sys-type ly-OSX-ly-path ly-w32-ly-path ly-nix-ly-path "darwin" "windows-nt"] 3 (#$ . 10199)])
#@124 Return correct path to pdf viewer depending on OS
If TEST is non-nil, it contains a simulation of the OS for test purposes
(defalias 'ly-determine-pdf-path #[(&optional test) "\206	\211\306\230\203\202\n\307\230\203\f\202
)\207" [test system-type sys-type ly-OSX-pdf-path ly-w32-pdf-path ly-nix-pdf-path "darwin" "windows-nt"] 3 (#$ . 10558)])
#@125 Return correct path to midi player depending on OS
If TEST is non-nil, it contains a simulation of the OS for test purposes
(defalias 'ly-determine-midi-path #[(&optional test) "\206	\206		\211\306\230\203\202\n\307\230\203\f\202
)\207" [test system-type sys-type ly-OSX-midi-path ly-w32-midi-path ly-nix-midi-path "darwin" "windows-nt"] 3 (#$ . 10922)])
#@72 Toggle whether midi will be played following a successful compilation.
(defalias 'ly-toggle-midi-play #[nil "?\301\302\203
\303\202\304P!\207" [ly-play-midi-post-tangle message "Post-Tangle MIDI play has been " "ENABLED." "DISABLED."] 3 (#$ . 11297) nil])
#@74 Toggle whether pdf will be displayed following a successful compilation.
(defalias 'ly-toggle-pdf-display #[nil "?\301\302\203
\303\202\304P!\207" [ly-display-pdf-post-tangle message "Post-Tangle PDF display has been " "ENABLED." "DISABLED."] 3 (#$ . 11565) nil])
#@60 Toggle whether png image will be generated by compilation.
(defalias 'ly-toggle-png-generation #[nil "?\301\302\203
\303\202\304P!\207" [ly-gen-png message "PNG image generation has been " "ENABLED." "DISABLED."] 3 (#$ . 11841) nil])
#@55 Toggle whether html will be generated by compilation.
(defalias 'ly-toggle-html-generation #[nil "?\301\302\203
\303\202\304P!\207" [ly-gen-html message "HTML generation has been " "ENABLED." "DISABLED."] 3 (#$ . 12087) nil])
#@54 Toggle whether pdf will be generated by compilation.
(defalias 'ly-toggle-pdf-generation #[nil "?\301\302\203
\303\202\304P!\207" [ly-gen-pdf message "PDF generation has been " "ENABLED." "DISABLED."] 3 (#$ . 12325) nil])
#@47 Toggle whether in Arrange mode or Basic mode.
(defalias 'ly-toggle-arrange-mode #[nil "?\301\302\203
\303\202\304P!\207" [ly-arrange-mode message "Arrange mode has been " "ENABLED." "DISABLED."] 3 (#$ . 12559) nil])
#@62 Utility command to swap current FILE-NAME extension with EXT
(defalias 'ly-switch-extension #[(file-name ext) "\302!	P\207" [file-name ext file-name-sans-extension] 2 (#$ . 12787)])
#@141 Default arguments to use when evaluating a lilypond
source block.  These depend upon whether we are in arrange
mode i.e.  ARRANGE-MODE is t
(defalias 'ly-get-header-args #[(mode) "\203\301\207\302\207" [mode ((:tangle . "yes") (:noweb . "yes") (:results . "silent") (:cache . "yes") (:comments . "yes")) ((:results . "file") (:exports . "results"))] 1 (#$ . 12977)])
#@73 Set org-babel-default-header-args:lilypond
dependent on LY-ARRANGE-MODE
(defalias 'ly-set-header-args #[(mode) "\302!\211\207" [mode org-babel-default-header-args:lilypond ly-get-header-args] 2 (#$ . 13353)])
(provide 'ob-lilypond)
F1l3 Manager
