ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-lilypond.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\303\304\305\"\210\306\307\310\"\207" [require ob outline defalias lilypond-mode LilyPond-mode add-to-list org-babel-tangle-lang-exts ("LilyPond" . "ly")] 3)
#@154 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 (#$ . 607))
#@269 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 (#$ . 830))
#@245 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 (#$ . 1166))
#@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 (#$ . 1483))
(defvar org-babel-lilypond-OSX-ly-path "/Applications/lilypond.app/Contents/Resources/bin/lilypond")
(defvar org-babel-lilypond-OSX-pdf-path "open")
(defvar org-babel-lilypond-OSX-midi-path "open")
(defvar org-babel-lilypond-nix-ly-path "/usr/bin/lilypond")
(defvar org-babel-lilypond-nix-pdf-path "evince")
(defvar org-babel-lilypond-nix-midi-path "timidity")
(defvar org-babel-lilypond-w32-ly-path "lilypond")
(defvar org-babel-lilypond-w32-pdf-path "")
(defvar org-babel-lilypond-w32-midi-path "")
#@95 Image generation (png) can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-PNG to t
(defvar org-babel-lilypond-gen-png nil (#$ . 2295))
#@95 Image generation (SVG) can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-SVG to t
(defvar org-babel-lilypond-gen-svg nil (#$ . 2447))
#@89 HTML generation can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-HTML to t
(defvar org-babel-lilypond-gen-html nil (#$ . 2599))
#@87 PDF generation can be turned on by default by setting
ORG-BABEL-LILYPOND-GEN-PDF to t
(defvar org-babel-lilypond-gen-pdf nil (#$ . 2746))
#@94 You can force the compiler to use the EPS backend by setting
ORG-BABEL-LILYPOND-USE-EPS to t
(defvar org-babel-lilypond-use-eps nil (#$ . 2890))
#@278 Arrange mode is turned on by setting ORG-BABEL-LILYPOND-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 org-babel-lilypond-arrange-mode nil (#$ . 3042))
#@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 (#$ . 3382)])
#@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" [org-babel-lilypond-arrange-mode body params org-babel-lilypond-set-header-args org-babel-lilypond-tangle org-babel-lilypond-process-basic] 3 (#$ . 3799)])
#@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 'org-babel-lilypond-tangle #[nil "\300\301\302\303#\205\n \304 \207" [org-babel-tangle nil "yes" "lilypond" org-babel-lilypond-execute-tangled-ly] 4 (#$ . 4337) nil])
#@41 Execute a lilypond block in basic mode.
(defalias 'org-babel-lilypond-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\306\332\n!\333\"A\206P \334\335\336\n!\337 \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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] org-babel-expand-body:generic write-region nil 0 org-babel-eval org-babel-lilypond-determine-ly-path " -dbackend=eps " "-dno-gs-load-fonts " "-dinclude-eps-fonts " file-name-extension (("pdf" . "--pdf ") ("ps" . "--ps ") ("png" . "--png ")) "--png " "--output=" file-name-sans-extension " " #2=#:temp-file body] 12 (#$ . 4671)])
#@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 (#$ . 5603)])
#@119 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 #[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" [org-babel-lilypond-compile-post-tangle org-babel-lilypond-temp-file org-babel-lilypond-tangled-file org-babel-lilypond-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 org-babel-lilypond-compile-lilyfile org-babel-lilypond-check-for-compile-error other-window -1 org-babel-lilypond-attempt-to-open-pdf org-babel-lilypond-attempt-to-play-midi "Error in Compilation!" nil] 4 (#$ . 5836)])
#@98 Compile lilypond file and check for compile errors
FILE-NAME is full path to lilypond (.ly) file
(defalias 'org-babel-lilypond-compile-lilyfile #[(file-name &optional test) "\306\307!\210\310 \311\312\313\203 \314\202 \315 \203 \316\202 \315\n\203# \317\202$ \315 \203, \320\202- \315\f\2035 \321\2026 \315\322\323
!P
\203r \257 \202\213 \324 & . \207" [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 file-name message "Compiling LilyPond..." org-babel-lilypond-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] 12 (#$ . 6750)])
#@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 'org-babel-lilypond-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 org-babel-lilypond-process-compile-error] 4 (#$ . 7618)])
#@90 Process the compilation error that has occurred.
FILE-NAME is full path to lilypond file
(defalias 'org-babel-lilypond-process-compile-error #[(file-name) "\303 \304 \"\305 \n\"\210\306\307!*\207" [line-num file-name error-lines org-babel-lilypond-parse-line-num org-babel-lilypond-parse-error-line org-babel-lilypond-mark-error-line error "Error: Compilation Failed!"] 3 (#$ . 8152)])
#@122 Mark the erroneous lines in the lilypond org buffer.
FILE-NAME is full path to lilypond file.
LINE is the erroneous line
(defalias 'org-babel-lilypond-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 org-babel-lilypond-switch-extension ".org" nil search-forward t show-all set-mark] 5 (#$ . 8548)])
#@28 Extract error line number.
(defalias 'org-babel-lilypond-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 (#$ . 9033)])
#@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 'org-babel-lilypond-parse-error-line #[(file-name lineNo) "\303\304!rq\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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents org-babel-lilypond-switch-extension ".ly" nil t 0 point-at-eol] 6 (#$ . 9404)])
#@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 'org-babel-lilypond-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" [org-babel-lilypond-display-pdf-post-tangle file-name pdf-file cmd-string test org-babel-lilypond-switch-extension ".pdf" file-exists-p org-babel-lilypond-determine-pdf-path " " start-process "\"Audition pdf\"" "*lilypond*" message "No pdf file generated so can't display!"] 5 (#$ . 9949)])
#@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 'org-babel-lilypond-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" [org-babel-lilypond-play-midi-post-tangle file-name midi-file cmd-string test org-babel-lilypond-switch-extension ".midi" file-exists-p org-babel-lilypond-determine-midi-path " " start-process "\"Audition midi\"" "*lilypond*" message "No midi file generated so can't play!"] 5 (#$ . 10577)])
#@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 'org-babel-lilypond-determine-ly-path #[(&optional test) "\206 \211\306\230\203 \202 \n\307\230\203 \f\202
)\207" [test system-type sys-type org-babel-lilypond-OSX-ly-path org-babel-lilypond-w32-ly-path org-babel-lilypond-nix-ly-path "darwin" "windows-nt"] 3 (#$ . 11205)])
#@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 'org-babel-lilypond-determine-pdf-path #[(&optional test) "\206 \211\306\230\203 \202 \n\307\230\203 \f\202
)\207" [test system-type sys-type org-babel-lilypond-OSX-pdf-path org-babel-lilypond-w32-pdf-path org-babel-lilypond-nix-pdf-path "darwin" "windows-nt"] 3 (#$ . 11628)])
#@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 'org-babel-lilypond-determine-midi-path #[(&optional test) "\206 \206 \211\306\230\203 \202 \n\307\230\203 \f\202
)\207" [test system-type sys-type org-babel-lilypond-OSX-midi-path org-babel-lilypond-w32-midi-path org-babel-lilypond-nix-midi-path "darwin" "windows-nt"] 3 (#$ . 12056)])
#@72 Toggle whether midi will be played following a successful compilation.
(defalias 'org-babel-lilypond-toggle-midi-play #[nil "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-play-midi-post-tangle message "Post-Tangle MIDI play has been " "ENABLED." "DISABLED."] 3 (#$ . 12495) nil])
#@74 Toggle whether pdf will be displayed following a successful compilation.
(defalias 'org-babel-lilypond-toggle-pdf-display #[nil "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-display-pdf-post-tangle message "Post-Tangle PDF display has been " "ENABLED." "DISABLED."] 3 (#$ . 12795) nil])
#@60 Toggle whether png image will be generated by compilation.
(defalias 'org-babel-lilypond-toggle-png-generation #[nil "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-gen-png message "PNG image generation has been " "ENABLED." "DISABLED."] 3 (#$ . 13103) nil])
#@55 Toggle whether html will be generated by compilation.
(defalias 'org-babel-lilypond-toggle-html-generation #[nil "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-gen-html message "HTML generation has been " "ENABLED." "DISABLED."] 3 (#$ . 13381) nil])
#@54 Toggle whether pdf will be generated by compilation.
(defalias 'org-babel-lilypond-toggle-pdf-generation #[nil "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-gen-pdf message "PDF generation has been " "ENABLED." "DISABLED."] 3 (#$ . 13651) nil])
#@47 Toggle whether in Arrange mode or Basic mode.
(defalias 'org-babel-lilypond-toggle-arrange-mode #[nil "?\301\302\203
\303\202 \304P!\207" [org-babel-lilypond-arrange-mode message "Arrange mode has been " "ENABLED." "DISABLED."] 3 (#$ . 13917) nil])
#@62 Utility command to swap current FILE-NAME extension with EXT
(defalias 'org-babel-lilypond-switch-extension #[(file-name ext) "\302! P\207" [file-name ext file-name-sans-extension] 2 (#$ . 14177)])
#@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 'org-babel-lilypond-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 (#$ . 14383)])
#@89 Set org-babel-default-header-args:lilypond
dependent on ORG-BABEL-LILYPOND-ARRANGE-MODE
(defalias 'org-babel-lilypond-set-header-args #[(mode) "\302!\211\207" [mode org-babel-default-header-args:lilypond org-babel-lilypond-get-header-args] 2 (#$ . 14775)])
(provide 'ob-lilypond)
Kontol Shell Bypass