| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312DD\313\314\315\316\317\320\321\322\323& \210\306\324\310\311\325DD\326\314\315\316\317\320\327\322\330& \210\306\331\310\311\332DD\333\314\315\322\334&\210\306\335\310\311\336DD\337\314\315\322\340&\210\306\341\310\311\342DD\343\314\315\322\323&\210\306\344\310\311\345DD\346\314\315\322\330&\210\306\347\310\311\350DD\351\314\315\322\323&\210\306\352\310\311\353DD\354\314\315\316\317\320\355\322\323& \210\306\356\310\311\357DD\360\314\315\322\361&\207" [require cl-lib org-macs org-compat ob-keys ob-comint custom-declare-variable org-edit-src-turn-on-auto-save funcall function #[0 "\300\207" [nil] 1] "Non-nil means turn `auto-save-mode' on when editing a source block.\nThis will save the content of the source code editing buffer into\na newly created file, not the base buffer for this source block.\n\nIf you want to regularly save the base buffer instead of the source\ncode editing buffer, see `org-edit-src-auto-save-idle-delay' instead." :group org-edit-structure :version "24.4" :package-version (Org . "8.0") :type boolean org-edit-src-auto-save-idle-delay #[0 "\300\207" [0] 1] "Delay before saving a source code buffer back into its base buffer.\nWhen a positive integer N, save after N seconds of idle time.\nWhen 0 (the default), don't auto-save.\n\nIf you want to save the source code buffer itself, don't use this.\nCheck `org-edit-src-turn-on-auto-save' instead." (Org . "8.0") integer org-coderef-label-format #[0 "\300\207" [#1="(ref:%s)"] 1 #1#] "The default coderef format.\nThis format string will be used to search for coderef labels in literal\nexamples (EXAMPLE and SRC blocks). The format can be overwritten in\nan individual literal example with the -l option, like\n\n#+BEGIN_SRC pascal +n -r -l \"((%s))\"\n...\n#+END_SRC\n\nIf you want to use this for HTML export, make sure that the format does\nnot introduce special font-locking, and avoid the HTML special\ncharacters `<', `>', and `&'. The reason for this restriction is that\nthe labels are searched for only after htmlize has done its job." string org-edit-fixed-width-region-mode #[0 "\300\207" [artist-mode] 1] "The mode that should be used to edit fixed-width regions.\nThese are the regions where each line starts with a colon." (choice (const artist-mode) (const picture-mode) (const fundamental-mode) (function :tag "Other (specify)")) org-src-preserve-indentation #[0 "\300\207" [nil] 1] "If non-nil preserve leading whitespace characters on export.\n\\<org-mode-map>\nIf non-nil leading whitespace characters in source code blocks\nare preserved on export, and when switching between the org\nbuffer and the language mode edit buffer.\n\nWhen this variable is nil, after editing with `\\[org-edit-src-code]',\nthe minimum (across-lines) number of leading whitespace characters\nare removed from all lines, and the code block is uniformly indented\naccording to the value of `org-edit-src-content-indentation'." org-edit-src-content-indentation #[0 "\300\207" [2] 1] "Indentation for the content of a source code block.\n\nThis should be the number of spaces added to the indentation of the #+begin\nline in order to compute the indentation of the block content after\nediting it with `\\[org-edit-src-code]'.\n\nIt has no effect if `org-src-preserve-indentation' is non-nil." org-edit-src-persistent-message #[0 "\300\207" [t] 1] "Non-nil means show persistent exit help message while editing src examples.\nThe message is shown in the header-line, which will be created in the\nfirst line of the window showing the editing buffer." org-src-ask-before-returning-to-edit-buffer #[0 "\300\207" [t] 1] "Non-nil means ask before switching to an existing edit buffer.\nIf nil, when `org-edit-src-code' is used on a block that already\nhas an active edit buffer, it will switch to that edit buffer\nimmediately; otherwise it will ask whether you want to return to\nthe existing edit buffer." (Org . "8.0") org-src-window-setup #[0 "\300\207" [reorganize-frame] 1] "How the source code edit buffer should be displayed.\nPossible values for this option are:\n\ncurrent-window Show edit buffer in the current window, keeping all other\n windows.\nother-window Use `switch-to-buffer-other-window' to display edit buffer.\nreorganize-frame Show only two windows on the current frame, the current\n window and the edit buffer. When exiting the edit buffer,\n return to one window.\nother-frame Use `switch-to-buffer-other-frame' to display edit buffer.\n Also, when exiting the edit buffer, kill that frame." (choice (const current-window) (const other-frame) (const other-window) (const reorganize-frame))] 12) | |
| 16 | #@451 Hook run after Org switched a source code snippet to its Emacs mode. | |
| 17 | \<org-mode-map> | |
| 18 | This hook will run: | |
| 19 | - when editing a source code snippet with `\[org-edit-special]' | |
| 20 | - when formatting a source code snippet for export with htmlize. | |
| 21 | ||
| 22 | You may want to use this hook for example to turn off `outline-minor-mode' | |
| 23 | or similar things which you want to have when editing a source code file, | |
| 24 | but which mess up the display of a snippet in Org exported files. | |
| 25 | (defvar org-src-mode-hook nil (#$ . 5198)) | |
| 26 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315\316\317\320\321& \210\300\322\302\303\323DD\324\310\325\316\326\306\327& \207" [custom-declare-variable org-src-lang-modes funcall function #[0 "\300\207" [(("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa" . artist) ("asymptote" . asy) ("dot" . fundamental) ("sqlite" . sql) ("calc" . fundamental) ("C" . c) ("cpp" . c++) ("C++" . c++) ("screen" . shell-script) ("shell" . sh) ("bash" . sh))] 1] "Alist mapping languages to their major mode.\nThe key is the language name, the value is the string that should\nbe inserted as the name of the major mode. For many languages this is\nsimple, but for language where this is not the case, this variable\nprovides a way to simplify things on the user side.\nFor example, there is no ocaml-mode in Emacs, but the mode to use is\n`tuareg-mode'." :group org-edit-structure :type (repeat (cons (string "Language name") (symbol "Major mode"))) org-src-block-faces #[0 "\300\207" [nil] 1] "Alist of faces to be used for source-block.\nEach element is a cell of the format\n\n (\"language\" FACE)\n\nWhere FACE is either a defined face or an anonymous face.\n\nFor instance, the following value would color the background of\nemacs-lisp source blocks and python source blocks in purple and\ngreen, respectability.\n\n \\='((\"emacs-lisp\" (:background \"#EEE2FF\"))\n (\"python\" (:background \"#e5ffb8\")))" (repeat (list (string :tag "language") (choice (face :tag "Face") (sexp :tag "Anonymous face")))) :version "26.1" :package-version (Org . "9.0") org-src-tab-acts-natively #[0 "\300\207" [nil] 1] "If non-nil, the effect of TAB in a code block is as if it were\nissued in the language major mode buffer." boolean "24.1" org-babel] 12) | |
| 27 | (defvar org-src--allow-write-back t nil) | |
| 28 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--allow-write-back put permanent-local t] 4) | |
| 29 | (defvar org-src--auto-save-timer nil nil) | |
| 30 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--auto-save-timer put permanent-local t] 4) | |
| 31 | (defvar org-src--babel-info nil nil) | |
| 32 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--babel-info put permanent-local t] 4) | |
| 33 | (defvar org-src--beg-marker nil nil) | |
| 34 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--beg-marker put permanent-local t] 4) | |
| 35 | (defvar org-src--block-indentation nil nil) | |
| 36 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--block-indentation put permanent-local t] 4) | |
| 37 | (defvar org-src--end-marker nil nil) | |
| 38 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--end-marker put permanent-local t] 4) | |
| 39 | (defvar org-src--from-org-mode nil nil) | |
| 40 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--from-org-mode put permanent-local t] 4) | |
| 41 | (defvar org-src--overlay nil nil) | |
| 42 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--overlay put permanent-local t] 4) | |
| 43 | (defvar org-src--preserve-indentation nil nil) | |
| 44 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--preserve-indentation put permanent-local t] 4) | |
| 45 | (defvar org-src--remote nil nil) | |
| 46 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--remote put permanent-local t] 4) | |
| 47 | (defvar org-src--saved-temp-window-config nil nil) | |
| 48 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--saved-temp-window-config put permanent-local t] 4) | |
| 49 | #@44 Type of element being edited, as a symbol. | |
| 50 | (defvar org-src--source-type nil (#$ . 9317)) | |
| 51 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--source-type put permanent-local t] 4) | |
| 52 | #@122 Contains `tab-width' value from Org source buffer. | |
| 53 | However, if `indent-tabs-mode' is nil in that buffer, its value | |
| 54 | is 0. | |
| 55 | (defvar org-src--tab-width nil (#$ . 9536)) | |
| 56 | (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local org-src--tab-width put permanent-local t] 4) | |
| 57 | #@83 Construct the buffer name for a source editing buffer. | |
| 58 | ||
| 59 | (fn ORG-BUFFER-NAME LANG) | |
| 60 | (defalias 'org-src--construct-edit-buffer-name #[514 "\300\301\302\260\207" ["*Org Src " "[ " " ]*"] 7 (#$ . 9828)]) | |
| 61 | #@102 Return buffer editing area between BEG and END. | |
| 62 | Return nil if there is no such buffer. | |
| 63 | ||
| 64 | (fn BEG END) | |
| 65 | (defalias 'org-src--edit-buffer #[514 "\3022E \303 \211\205B \211@r\211q\210\304 \203: U\203: \305!\305!=\203: U\203: \305!\305 !=\203: \306\302\"\210)A\266\202\202 \2620\207" [org-src--beg-marker org-src--end-marker exit buffer-list org-src-edit-buffer-p marker-buffer throw] 7 (#$ . 10037)]) | |
| 66 | #@48 Return source buffer edited by current buffer. | |
| 67 | (defalias 'org-src--source-buffer #[0 "\301 \204 \302\303!\210\304!\206 \302\305!\207" [org-src--beg-marker org-src-edit-buffer-p error "Not in a source buffer" marker-buffer "No source buffer available for current editing session"] 2 (#$ . 10449)]) | |
| 68 | #@119 Return major mode that should be used for LANG. | |
| 69 | LANG is a string, and the returned major mode is a symbol. | |
| 70 | ||
| 71 | (fn LANG) | |
| 72 | (defalias 'org-src--get-lang-mode #[257 "\301\302\"A\206\n \2119\203 \303!\202 \211\262\304P!\207" [org-src-lang-modes intern assoc symbol-name "-mode"] 5 (#$ . 10756)]) | |
| 73 | #@219 Return coordinates of POS relatively to BEG and END. | |
| 74 | POS, BEG and END are buffer positions. Return value is either | |
| 75 | a cons cell (LINE . COLUMN) or symbol `end'. See also | |
| 76 | `org-src--goto-coordinates'. | |
| 77 | ||
| 78 | (fn POS BEG END) | |
| 79 | (defalias 'org-src--coordinates #[771 "Y\203 \300\207\212\214~\210]b\210\301\302 \"i\303\210iZ*B\207" [end count-lines line-beginning-position nil] 6 (#$ . 11058)]) | |
| 80 | #@182 Move to coordinates COORD relatively to BEG and END. | |
| 81 | COORD are coordinates, as returned by `org-src--coordinates', | |
| 82 | which see. BEG and END are buffer positions. | |
| 83 | ||
| 84 | (fn COORD BEG END) | |
| 85 | (defalias 'org-src--goto-coordinates #[771 "\300=\203 \211S]\202& \212\214~\210b\210@y\210\301\210\302iA\\\303]!\210`*b\207" [end nil org-move-to-column 0] 6 (#$ . 11455)]) | |
| 86 | #@180 Return contents boundaries of DATUM. | |
| 87 | DATUM is an element or object. Return a list (BEG END CONTENTS) | |
| 88 | where BEG and END are buffer positions and CONTENTS is a string. | |
| 89 | ||
| 90 | (fn DATUM) | |
| 91 | (defalias 'org-src--contents-area #[257 "\300!\212\214~\210\211\301=\203* \302\303\"b\210\304\305!\302\306\"\206 \211\307\"E\266\202\202\310 \211\310=\203T \302\311\"b\210\304\312\313 \314#\302\315\"b\210\316\317\320 \314#\307\"E\266\202\202\310 \302\321\"\203o \302\321\"\302\306\"\307\"E\266\202\202\310 \211\322>\203\223 \302\303\"b\210\320\323!\302\315\"b\210\324\325x\210\320\326!\302\327\"E\202\310 \211\330>\203\304 \302\303\"\302\315\"b\210\324\325x\210\320\323!\331=\203\272 \302\327\"\202\276 \307\"E\266\202\202\310 \332\333\"*\207" [org-element-type footnote-definition org-element-property :post-affiliated search-forward "]" :contents-end buffer-substring-no-properties inline-src-block :begin "{" line-end-position t :end search-backward "}" line-beginning-position :contents-begin (example-block export-block src-block) 2 " \n" nil 1 :value (fixed-width latex-environment table) fixed-width error "Unsupported element or object: %s"] 9 (#$ . 11823)]) | |
| 92 | #@157 Create overlay between BEG and END positions and return it. | |
| 93 | EDIT-BUFFER is the buffer currently editing area between BEG and | |
| 94 | END. | |
| 95 | ||
| 96 | (fn BEG END EDIT-BUFFER) | |
| 97 | (defalias 'org-src--make-source-overlay #[771 "\300\"\301\302\303#\210\301\304#\210\301\305\306#\210\301\302\303#\210\301\307\310 \311\312\313#\210\211\262#\210\314C\301\315#\210\301\316#\210\301\317#\266\211\207" [make-overlay overlay-put face secondary-selection edit-buffer help-echo "Click with mouse-1 to switch to buffer editing this segment" keymap make-sparse-keymap define-key [mouse-1] org-edit-src-continue #[128 "\300\301!\207" [user-error "Cannot modify an area being edited in a dedicated buffer"] 3 "\n\n(fn &rest _)"] modification-hooks insert-in-front-hooks insert-behind-hooks] 12 (#$ . 13012)]) | |
| 98 | #@44 Remove overlay from current source buffer. | |
| 99 | (defalias 'org-src--remove-overlay #[0 "\301!\205 \302!\207" [org-src--overlay overlayp delete-overlay] 2 (#$ . 13805)]) | |
| 100 | #@144 Non-nil when point is on DATUM. | |
| 101 | DATUM is an element or an object. Consider blank lines or white | |
| 102 | spaces after it as being outside. | |
| 103 | ||
| 104 | (fn DATUM) | |
| 105 | (defalias 'org-src--on-datum-p #[257 "`\300\301\"Y\205( `\212\214~\210\300\302\"b\210\303\304x\210\305!\306=\203% \307 \202& `*X\207" [org-element-property :begin :end " \n" nil org-element-class element line-end-position] 5 (#$ . 13979)]) | |
| 106 | #@114 Return buffer contents in a format appropriate for write back. | |
| 107 | Assume point is in the corresponding edit buffer. | |
| 108 | (defalias 'org-src--contents-for-write-back #[0 "\203 \306\202 \206 \306\n\307>\203 \202 \306\\\f\306V\205 \310\f\212\214~\210\311 * \312\313!r\211q\210\314\306\315\316\317!\320\"\321$\216\322\323!\210\306V\203P \322\324!\210\325\211\203b \326\306G$\210\202j \327\306G\325$\210\266\202c\210eb\210\330!\203} \212 \210)\306V\203\242 m\204\242 \331\325w\210l\204\234 i\332 `|\210\211\\j\266\325y\210\202\203 \311 *\262\207" [org-src--preserve-indentation org-src--block-indentation org-src--source-type org-edit-src-content-indentation org-src--tab-width org-src--allow-write-back 0 (example-block src-block) t buffer-string generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 make-local-variable indent-tabs-mode tab-width nil remove-text-properties set-text-properties functionp " " line-beginning-position org-rm-props] 13 (#$ . 14374)]) | |
| 109 | #@627 Edit DATUM contents in a dedicated buffer NAME. | |
| 110 | ||
| 111 | INITIALIZE is a function to call upon creating the buffer. | |
| 112 | ||
| 113 | When WRITE-BACK is non-nil, assume contents will replace original | |
| 114 | region. Moreover, if it is a function, apply it in the edit | |
| 115 | buffer, from point min, before returning the contents. | |
| 116 | ||
| 117 | When CONTENTS is non-nil, display them in the edit buffer. | |
| 118 | Otherwise, show DATUM contents as specified by | |
| 119 | `org-src--contents-area'. | |
| 120 | ||
| 121 | When REMOTE is non-nil, do not try to preserve point or mark when | |
| 122 | moving from the edit area to the source. | |
| 123 | ||
| 124 | Leave point in edit buffer. | |
| 125 | ||
| 126 | (fn DATUM NAME &optional INITIALIZE WRITE-BACK CONTENTS REMOTE) | |
| 127 | (defalias 'org-src--edit-element #[1538 "\306 \307!\310@!\310A@\311\"\312\"\206 \3138\2031 \203* \314\315!\2031 \316\317\"\202>\203A rq\210\320 \210)\321!\210\322\323!\n\203L \202M \324\325 !\212\214~\210\326\327\"b\210\330 *\331>\205n \326\332\"\206n \f\n?\205{ \333`\n\n# ?\205\237 \334 \205\237 \335 \211 Y\205\235 Y\205\235 \333\f\f#\262\336!\337\f\f#\316\340\"\210 c\210\341ed\342#\210\204\300 \343 \210\344\345!\210\345\346!\203\345 \311 2\3471\333 0\202\343 \350\351\352!\"\262\210)34\f5 6789:\211;<\353 \210\203$\354ed\355\345$\206 db\210\356\345w\202<\2037\357ed#\210\360`\361\311#\210\345=\357ed#\266\211\207" [org-src--saved-temp-window-config org-src-ask-before-returning-to-edit-buffer indent-tabs-mode tab-width org-src-preserve-indentation buffer-file-name current-window-configuration org-src--contents-area copy-marker t org-src--edit-buffer 2 y-or-n-p "Return to existing edit buffer ([n] will revert changes)? " org-src-switch-to-buffer return org-src--remove-overlay kill-buffer derived-mode-p org-mode 0 org-element-type org-element-property :begin org-get-indentation (example-block src-block) :preserve-indent org-src--coordinates org-region-active-p mark generate-new-buffer org-src--make-source-overlay edit remove-text-properties (display nil invisible nil intangible nil) org-do-remove-indentation set-buffer-modified-p nil functionp (error) message "Initialization fails with: %S" error-message-string org-src-mode text-property-any read-only " \n" org-src--goto-coordinates push-mark no-message org-inhibit-startup org-src--tab-width org-src--from-org-mode org-src--beg-marker org-src--end-marker org-src--remote org-src--source-type org-src--block-indentation org-src--preserve-indentation org-src--overlay org-src--allow-write-back deactivate-mark] 25 (#$ . 15432)]) | |
| 128 | #@150 Fontify code block. | |
| 129 | This function is called by emacs automatic fontification, as long | |
| 130 | as `org-src-fontify-natively' is non-nil. | |
| 131 | ||
| 132 | (fn LANG START END) | |
| 133 | (defalias 'org-src-font-lock-fontify-block #[771 "\304!\305!\205\251 \306\"\307 p\310\311#\210r\312\313\314\"!q\210\315\316 \210\317\261\210) =\2046 \210\320 \210e\315\321!\211\262\203s \322\nB\211\203l \211@\323\"\324 S\\\f\\S\n%\266A\266\202\202G \210\211\262\202; \266)\325 \326#A@\327!\204\211 \211<\203\222 \330\322$\210\330\322\331$\266\332\333#\210\334!\266\203\207" [inhibit-modification-hooks major-mode font-lock-extra-managed-props org-src-block-faces org-src--get-lang-mode fboundp buffer-substring-no-properties buffer-modified-p remove-text-properties (face nil) get-buffer-create format " *org-src-fontification:%s*" nil erase-buffer " " org-font-lock-ensure next-property-change face get-text-property put-text-property assoc-string t facep font-lock-append-text-property org-block add-text-properties (font-lock-fontified t fontified t font-lock-multiline t) set-buffer-modified-p] 18 (#$ . 17951)]) | |
| 134 | #@143 Escape lines between BEG and END. | |
| 135 | Escaping happens when a line starts with "*", "#+", ",*" or | |
| 136 | ",#+" by appending a comma to it. | |
| 137 | ||
| 138 | (fn BEG END) | |
| 139 | (defalias 'org-escape-code-in-region #[514 "\212\211b\210\300\301\302#\205 \212\303\304\305\211\211\306%\210)\202 )\207" [re-search-backward "^[ ]*\\(,*\\(?:\\*\\|#\\+\\)\\)" t replace-match ",\\1" nil 1] 8 (#$ . 19075) "r"]) | |
| 140 | #@129 Escape lines in string S. | |
| 141 | Escaping happens when a line starts with "*", "#+", ",*" or | |
| 142 | ",#+" by appending a comma to it. | |
| 143 | ||
| 144 | (fn S) | |
| 145 | (defalias 'org-escape-code-in-string #[257 "\300\301\302\303\211\304&\207" [replace-regexp-in-string "^[ ]*\\(,*\\(?:\\*\\|#\\+\\)\\)" ",\\1" nil 1] 8 (#$ . 19454)]) | |
| 146 | #@154 Un-escape lines between BEG and END. | |
| 147 | Un-escaping happens by removing the first comma on lines starting | |
| 148 | with ",*", ",#+", ",,*" and ",,#+". | |
| 149 | ||
| 150 | (fn BEG END) | |
| 151 | (defalias 'org-unescape-code-in-region #[514 "\212\211b\210\300\301\302#\205 \212\303\304\305\211\211\306%\210)\202 )\207" [re-search-backward "^[ ]*,*\\(,\\)\\(?:\\*\\|#\\+\\)" t replace-match "" nil 1] 8 (#$ . 19758) "r"]) | |
| 152 | #@140 Un-escape lines in string S. | |
| 153 | Un-escaping happens by removing the first comma on lines starting | |
| 154 | with ",*", ",#+", ",,*" and ",,#+". | |
| 155 | ||
| 156 | (fn S) | |
| 157 | (defalias 'org-unescape-code-in-string #[257 "\300\301\302\303\211\304&\207" [replace-regexp-in-string "^[ ]*,*\\(,\\)\\(?:\\*\\|#\\+\\)" "" nil 1] 8 (#$ . 20147)]) | |
| 158 | (defvar org-src-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key "'" org-edit-src-exit " " org-edit-src-abort "" org-edit-src-save] 5)) | |
| 159 | #@93 Non-nil if Org-Src mode is enabled. | |
| 160 | Use the command `org-src-mode' to change this variable. | |
| 161 | (defvar org-src-mode nil (#$ . 20672)) | |
| 162 | (make-variable-buffer-local 'org-src-mode) | |
| 163 | #@331 Minor mode for language major mode buffers generated by Org. | |
| 164 | \<org-mode-map> | |
| 165 | This minor mode is turned on in two situations: | |
| 166 | - when editing a source code snippet with `\[org-edit-special]' | |
| 167 | - when formatting a source code snippet for export with htmlize. | |
| 168 | ||
| 169 | \{org-src-mode-map} | |
| 170 | ||
| 171 | See also `org-src-mode-hook'. | |
| 172 | ||
| 173 | (fn &optional ARG) | |
| 174 | (defalias 'org-src-mode #[256 "\306 \307=\203 ?\202 \310!\311V \203' \312\303!\210\313\n\203$ \314\202% \315!\f\2034 \316\317!\320\321!\322Q\"\204H #\311U\204H \323#\324\325#\"\326\327\203R \330\202S \331\"\210\332\333!\203w \306 \203g \211\306 \232\203w \334\335\336\203r \337\202s \340#\266\210\341 \210\207" [org-src-mode org-edit-src-persistent-message org-src--allow-write-back header-line-format org-edit-src-turn-on-auto-save buffer-auto-save-file-name current-message toggle prefix-numeric-value 0 make-local-variable substitute-command-keys "Edit, then exit with `\\[org-edit-src-exit]' or abort with `\\[org-edit-src-abort]'" "Exit with `\\[org-edit-src-exit]' or abort with `\\[org-edit-src-abort]'" make-temp-name "org-src-" format-time-string "-%Y-%d-%m" ".txt" run-with-idle-timer t #[0 "\212\301\302 \211\203* \211@r\211q\210\303 \203\" \204 \304\262\305 \203\" \306 \210)A\266\202\202 \210\211?\2057 \307!\210\301\211\262)\207" [org-src--auto-save-timer nil buffer-list org-src-edit-buffer-p t buffer-modified-p org-edit-src-save cancel-timer] 4] run-hooks org-src-mode-hook org-src-mode-on-hook org-src-mode-off-hook called-interactively-p any " in current buffer" message "Org-Src mode %sabled%s" "en" "dis" force-mode-line-update org-src--auto-save-timer org-edit-src-auto-save-idle-delay] 7 (#$ . 20853) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 175 | (defvar org-src-mode-hook nil) | |
| 176 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [org-src-mode-map org-src-mode-hook variable-documentation put "Hook run after entering or leaving `org-src-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode org-src-mode " OrgSrc" boundp nil] 6) | |
| 177 | (defalias 'org-src-mode-configure-edit-buffer #[0 "\306\300!\2054 \2054 \307\310\311\312\313$\210\306\301!\2030 \2030 \314\304\315 !!\316\317 \320R\321\305!\210\322\211\207\314\211\207" [org-src--from-org-mode org-src--allow-write-back buffer-offer-save org-src--beg-marker buffer-file-name write-contents-functions boundp add-hook kill-buffer-hook org-src--remove-overlay nil local t marker-buffer "[" buffer-name "]" make-local-variable (org-edit-src-save) buffer-read-only] 5]) | |
| 178 | (add-hook 'org-src-mode-hook 'org-src-mode-configure-edit-buffer) | |
| 179 | #@55 Associate edit buffer with comint session. | |
| 180 | ||
| 181 | (fn INFO) | |
| 182 | (defalias 'org-src-associate-babel-session #[257 "\300\3018\236A\211\205) \211\302\230?\205) \303!\205) \304\305\306@\"!\307!\205' \211!\262\207" [:session 2 "none" org-babel-comint-buffer-livep intern format "org-babel-%s-associate-session" fboundp] 6 (#$ . 23574) nil]) | |
| 183 | (defalias 'org-src-babel-configure-edit-buffer #[0 "\205 \301!\207" [org-src--babel-info org-src-associate-babel-session] 2]) | |
| 184 | (add-hook 'org-src-mode-hook 'org-src-babel-configure-edit-buffer) | |
| 185 | #@75 Execute BODY from an edit buffer in the Org mode buffer. | |
| 186 | ||
| 187 | (fn &rest BODY) | |
| 188 | (defalias 'org-src-do-at-code-block '(macro . #[128 "\300\301\302\303\304\305\306BBBEE\207" [let ((beg-marker org-src--beg-marker)) when beg-marker with-current-buffer (marker-buffer beg-marker) (goto-char beg-marker)] 9 (#$ . 24108)])) | |
| 189 | (put 'org-src-do-at-code-block 'edebug-form-spec '(body)) | |
| 190 | #@753 Execute key sequence at code block in the source Org buffer. | |
| 191 | The command bound to KEY in the Org-babel key map is executed | |
| 192 | remotely with point temporarily at the start of the code block in | |
| 193 | the Org buffer. | |
| 194 | ||
| 195 | This command is not bound to a key by default, to avoid conflicts | |
| 196 | with language major mode bindings. To bind it to C-c @ in all | |
| 197 | language major modes, you could use | |
| 198 | ||
| 199 | (add-hook \='org-src-mode-hook | |
| 200 | (lambda () (define-key org-src-mode-map "\C-c@" | |
| 201 | \='org-src-do-key-sequence-at-code-block))) | |
| 202 | ||
| 203 | In that case, for example, C-c @ t issued in code edit buffers | |
| 204 | would tangle the current Org code block, C-c @ e would execute | |
| 205 | the block and C-c @ h would display the other available | |
| 206 | Org-babel commands. | |
| 207 | ||
| 208 | (fn &optional KEY) | |
| 209 | (defalias 'org-src-do-key-sequence-at-code-block #[256 "\211\302\232\203 \303 \207\304 \210\211\205! r\305!q\210\211b\210\306\307 \"!)\207" [org-src--beg-marker org-babel-map "" keyboard-quit org-edit-src-save marker-buffer call-interactively lookup-key] 6 (#$ . 24486) "kOrg-babel key: "]) | |
| 210 | #@119 Non-nil when current buffer is a source editing buffer. | |
| 211 | If BUFFER is non-nil, test it instead. | |
| 212 | ||
| 213 | (fn &optional BUFFER) | |
| 214 | (defalias 'org-src-edit-buffer-p #[256 "\300\206 p!\301!\205 \302\303\"\205 \302\304\"\207" [org-base-buffer buffer-live-p local-variable-p org-src--beg-marker org-src--end-marker] 5 (#$ . 25541)]) | |
| 215 | #@23 | |
| 216 | ||
| 217 | (fn BUFFER CONTEXT) | |
| 218 | (defalias 'org-src-switch-to-buffer #[514 "\301\267\202C \302!\207\303!\207\211\304\267\202& \305 \306!\210\307!\207\310p!\210\302!\207\306!\207\211\311=\2033 \312 \210\313!\210\211\314=\205K \312 \207q\207\315\316\"\210\302!\207" [org-src-window-setup #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (current-window 6 other-window 10 other-frame 14 reorganize-frame 42 switch-invisibly 64)) pop-to-buffer-same-window switch-to-buffer-other-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (exit 20 save 30)) selected-frame switch-to-buffer-other-frame delete-frame kill-buffer edit delete-other-windows org-switch-to-buffer-other-window exit message "Invalid value %s for `org-src-window-setup'"] 5 (#$ . 25870)]) | |
| 219 | #@295 Return format string for block at point. | |
| 220 | ||
| 221 | When optional argument ELEMENT is provided, use that block. | |
| 222 | Otherwise, assume point is either at a source block, at an | |
| 223 | example block. | |
| 224 | ||
| 225 | If point is in an edit buffer, retrieve format string associated | |
| 226 | to the remote source block. | |
| 227 | ||
| 228 | (fn &optional ELEMENT) | |
| 229 | (defalias 'org-src-coderef-format #[256 "\211\203 \302\303\"\206+ \304 \203\" \211\205! r\305!q\210\211b\210\306 )\207\302\303\307 \"\206+ \207" [org-src--beg-marker org-coderef-label-format org-element-property :label-fmt org-src-edit-buffer-p marker-buffer org-src-coderef-format org-element-at-point] 4 (#$ . 26705)]) | |
| 230 | #@403 Return regexp matching a coderef format string FMT. | |
| 231 | ||
| 232 | When optional argument LABEL is non-nil, match coderef for that | |
| 233 | label only. | |
| 234 | ||
| 235 | Match group 1 contains the full coderef string with surrounding | |
| 236 | white spaces. Match group 2 contains the same string without any | |
| 237 | surrounding space. Match group 3 contains the label. | |
| 238 | ||
| 239 | A coderef format regexp can only match at the end of a line. | |
| 240 | ||
| 241 | (fn FMT &optional LABEL) | |
| 242 | (defalias 'org-src-coderef-regexp #[513 "\300\301\302\303\203 \304!\202 \305\304!\306\307%\"\207" [format "\\([ ]*\\(%s\\)[ ]*\\)$" replace-regexp-in-string "%s" regexp-quote "\\([-a-zA-Z0-9_][-a-zA-Z0-9_ ]*\\)" nil t] 10 (#$ . 27332)]) | |
| 243 | #@49 Edit definition of footnote reference at point. | |
| 244 | (defalias 'org-edit-footnote-reference #[0 "\300 \301\302\"\303!\304=\203 \305!\204 \306\307!\210\211\204 \306\310!\210\212\214~\210\311!\210\312u\210\300 *\303!\304=\212\214~\210\313\301\314\"\206C \301\315\"\203O \301\316\"T\202^ \301\316\"\206^ \301\314\"b\210\317 \"*\320\321\322\203k \323\202l \324\"\210\321\225\325$\210\203\204 \211G\320S\326$\266\327\330\331\"p\332\321\333\334\335!\336\"\337$\262\332\321\340\334\335 \"\341\"\342$\343&\266\344\207" [org-element-context org-element-property :label org-element-type footnote-reference org-src--on-datum-p user-error "Not on a footnote reference" "Cannot edit remotely anonymous footnotes" org-footnote-goto-definition -1 buffer-substring-no-properties :post-affiliated :begin :contents-end line-end-position add-text-properties 0 string-match "\\`\\[fn:.*?:" "\\`.*?\\]" (read-only "Cannot edit footnote label" front-sticky t rear-nonsticky t) (read-only "Cannot edit past footnote reference" front-sticky nil rear-nonsticky nil) org-src--edit-element format "*Edit footnote [%s]*" make-byte-code "\301 \210\302\300!\207" vconcat vector [org-mode org-clone-local-variables] 2 "\301\204\n `\302\303!|\207`\302\304\305\306\307$|\210dSd|\210\310\311\305\306#\203$ \312\313!\210\314\300\315\"\205: \302\316\305\306#\205: \317\320!\210\202+ \207" [search-forward "]" ":" nil t 2 re-search-forward "\n[ ]*\n" user-error "Inline definitions cannot contain blank lines" org-element-lineage (table-cell) "\n" replace-match ""] 6 remote t] 16 (#$ . 27985) nil]) | |
| 245 | #@328 Edit "table.el" table at point. | |
| 246 | \<org-src-mode-map> | |
| 247 | A new buffer is created and the table is copied into it. Then | |
| 248 | the table is recognized with `table-recognize'. When done | |
| 249 | editing, exit with `\[org-edit-src-exit]'. The edited text will then replace | |
| 250 | the area in the Org mode buffer. | |
| 251 | ||
| 252 | Throw an error when not at such a table. | |
| 253 | (defalias 'org-edit-table\.el #[0 "\301 \302!\303=\203 \304\305\"\306=\203 \307!\204 \310\311!\210\312\313\314 \315\"\316\317$\210\320\300!\2036 \2036 \300\321!\210\322 \210\317\207" [flyspell-mode org-element-at-point org-element-type table org-element-property :type table\.el org-src--on-datum-p user-error "Not in a table.el table" org-src--edit-element org-src--construct-edit-buffer-name buffer-name "Table" text-mode t boundp -1 table-recognize] 6 (#$ . 29584) nil]) | |
| 254 | #@346 Edit LaTeX environment at point. | |
| 255 | \<org-src-mode-map> | |
| 256 | The LaTeX environment is copied into a new buffer. Major mode is | |
| 257 | set to the one associated to "latex" in `org-src-lang-modes', | |
| 258 | or to `latex-mode' if there is none. | |
| 259 | ||
| 260 | When done, exit with `\[org-edit-src-exit]'. The edited text will then replace | |
| 261 | the LaTeX environment in the Org mode buffer. | |
| 262 | (defalias 'org-edit-latex-environment #[0 "\300 \301!\302=\203 \303!\204 \304\305!\210\306\307\310 \311\"\312\313!\314$\210\314\207" [org-element-at-point org-element-type latex-environment org-src--on-datum-p user-error "Not in a LaTeX environment" org-src--edit-element org-src--construct-edit-buffer-name buffer-name "LaTeX environment" org-src--get-lang-mode "latex" t] 6 (#$ . 30400) nil]) | |
| 263 | #@356 Edit export block at point. | |
| 264 | \<org-src-mode-map> | |
| 265 | A new buffer is created and the block is copied into it, and the | |
| 266 | buffer is switched into an appropriate major mode. See also | |
| 267 | `org-src-lang-modes'. | |
| 268 | ||
| 269 | When done, exit with `\[org-edit-src-exit]'. The edited text will then replace | |
| 270 | the area in the Org mode buffer. | |
| 271 | ||
| 272 | Throw an error when not at an export block. | |
| 273 | (defalias 'org-edit-export-block #[0 "\300 \301!\302=\203 \303!\204 \304\305!\210\306\307\"\206 \310\227\311!\312!\204+ \313\314\"\210\315\316\317 \"\320$\266\321\207" [org-element-at-point org-element-type export-block org-src--on-datum-p user-error "Not in an export block" org-element-property :type "fundamental" org-src--get-lang-mode functionp error "No such language mode: %s" org-src--edit-element org-src--construct-edit-buffer-name buffer-name #[0 "\300ed\"\207" [org-escape-code-in-region] 3] t] 8 (#$ . 31152) nil]) | |
| 274 | #@613 Edit the source or example block at point. | |
| 275 | \<org-src-mode-map> | |
| 276 | The code is copied to a separate buffer and the appropriate mode | |
| 277 | is turned on. When done, exit with `\[org-edit-src-exit]'. This will remove the | |
| 278 | original code in the Org buffer, and replace it with the edited | |
| 279 | version. See `org-src-window-setup' to configure the display of | |
| 280 | windows containing the Org buffer and the code buffer. | |
| 281 | ||
| 282 | When optional argument CODE is a string, edit it in a dedicated | |
| 283 | buffer instead. | |
| 284 | ||
| 285 | When optional argument EDIT-BUFFER-NAME is non-nil, use it as the | |
| 286 | name of the sub-editing buffer. | |
| 287 | ||
| 288 | (fn &optional CODE EDIT-BUFFER-NAME) | |
| 289 | (defalias 'org-edit-src-code #[512 "\303 \304!\211\305>\203 \306!\204 \307\310!\210\211\311=\203\" \312\313\"\202# \314\311=\205, \315!\311=\2055 \316\317!\320\311=\203H \321!\204H \322\323\"\210\324\206U \325\326 \"\n?\205] \327 \205f \330\f!%\210\331\301!\210\312\332\"\206u \311=\203\216 \211\333\334P!\335!\203\215 \211!\210\210)\336\266\203\207" [deactivate-mark org-coderef-label-format org-src--babel-info org-element-at-point org-element-type (example-block src-block) org-src--on-datum-p user-error "Not in a source or example block" src-block org-element-property :language "example" org-src--get-lang-mode org-babel-get-src-block-info light nil functionp error "No such language mode: %s" org-src--edit-element org-src--construct-edit-buffer-name buffer-name #[0 "\300ed\"\207" [org-escape-code-in-region] 3] org-unescape-code-in-string make-local-variable :label-fmt intern "org-babel-edit-prep:" fboundp t] 14 (#$ . 32055) nil]) | |
| 290 | #@35 Edit inline source code at point. | |
| 291 | (defalias 'org-edit-inline-src-code #[0 "\303 \304!\305=\203 \306!\204 \307\310!\210\311\312\"\313!\314\315!\316\317!\204+ \320\321\"\210\322\323\324 \"\325$\210\211\326\327\330P!\331!\203J \211!\210\210)\326\266\203\207" [deactivate-mark org-src--babel-info org-src--preserve-indentation org-element-context org-element-type inline-src-block org-src--on-datum-p user-error "Not on inline source code" org-element-property :language org-src--get-lang-mode org-babel-get-src-block-info light nil functionp error "No such language mode: %s" org-src--edit-element org-src--construct-edit-buffer-name buffer-name #[0 "\300\301\302\303#\203 \304\305!\210\202 eb\210\306\302w\210e`|\210db\210\306\302x\210`d|\207" [re-search-forward "\n[ ]*" nil t replace-match " " " "] 4] t intern "org-babel-edit-prep:" fboundp] 9 (#$ . 33645) nil]) | |
| 292 | #@458 Edit the fixed-width ASCII drawing at point. | |
| 293 | \<org-src-mode-map> | |
| 294 | This must be a region where each line starts with a colon | |
| 295 | followed by a space or a newline character. | |
| 296 | ||
| 297 | A new buffer is created and the fixed-width region is copied into | |
| 298 | it, and the buffer is switched into the major mode defined in | |
| 299 | `org-edit-fixed-width-region-mode', which see. | |
| 300 | ||
| 301 | When done, exit with `\[org-edit-src-exit]'. The edited text will then replace | |
| 302 | the area in the Org mode buffer. | |
| 303 | (defalias 'org-edit-fixed-width-region #[0 "\301 \302!\303=\203 \304!\204 \305\306!\210\307\310\311 \312\"\313$\210\314\207" [org-edit-fixed-width-region-mode org-element-at-point org-element-type fixed-width org-src--on-datum-p user-error "Not in a fixed-width area" org-src--edit-element org-src--construct-edit-buffer-name buffer-name "Fixed Width" #[0 "m?\205 \300c\210\301y\210\202 \207" [": " nil] 1] t] 6 (#$ . 34538) nil]) | |
| 304 | #@61 Abort editing of the src code and return to the Org buffer. | |
| 305 | (defalias 'org-edit-src-abort #[0 "\301\302 )\207" [org-src--allow-write-back nil org-edit-src-exit] 1 (#$ . 35440) nil]) | |
| 306 | #@111 Unconditionally return to buffer editing area under point. | |
| 307 | Throw an error if there is no such buffer. | |
| 308 | ||
| 309 | (fn E) | |
| 310 | (defalias 'org-edit-src-continue #[257 "\300!\210\301`\302\"\211\203 \303\304\"\202 \305\306!\207" [mouse-set-point get-char-property edit-buffer org-src-switch-to-buffer continue user-error "No sub-editing buffer for area at point"] 5 (#$ . 35630) "e"]) | |
| 311 | #@59 Save parent buffer with current state source-code buffer. | |
| 312 | (defalias 'org-edit-src-save #[0 "\303 \204 \304\305!\210\306\307!\210\310 \nr\311 q\210\312 \210b\210\313!\210|\210nc\210\211\2034 n\2044 \314c\210\210\315 \210\316`#\210)\266\317\207" [org-src--beg-marker org-src--end-marker org-src--overlay org-src-edit-buffer-p user-error "Not in a sub-editing buffer" set-buffer-modified-p nil org-src--contents-for-write-back org-src--source-buffer undo-boundary delete-overlay "\n" save-buffer move-overlay t] 8 (#$ . 36005) nil]) | |
| 313 | #@62 Kill current sub-editing buffer and return to source buffer. | |
| 314 | (defalias 'org-edit-src-exit #[0 "\305 \204 \306\307!\210 \n \211?\205 \310`\311d#\205 \312 \313\314!\210p\315!\211\204. \306\316!\210\317\320\"\210\321!\266\212\214~\210\203b {\232\204b \322 \210b\210|\210nc\210\211\203a n\204a \323c\210\210*\204\206 b\210\324\325\326`!\"\203z \327\330!\210\202\206 \203\206 \331#\210\314\211\223\210\314\211\223\210\f\205\233 \332\f!\210\314\211\207" [org-src--beg-marker org-src--end-marker org-src--allow-write-back org-src--remote org-src--saved-temp-window-config org-src-edit-buffer-p error "Not in a sub-editing buffer" org-src--coordinates 1 org-src--contents-for-write-back set-buffer-modified-p nil marker-buffer "Source buffer disappeared. Aborting" org-src-switch-to-buffer exit kill-buffer undo-boundary "\n" cl-some #[257 "\300\301\"\302=\207" [overlay-get invisible org-hide-block] 4 "\n\n(fn O)"] overlays-at beginning-of-line 0 org-src--goto-coordinates set-window-configuration] 11 (#$ . 36552) nil]) | |
| 315 | (provide 'org-src) | |
