;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\306\307\310\311\312&\210\313\314\315\316\317DD\320\311\304\321\322\323\324\325\305& \210\313\326\315\316\327DD\330\311\304\323\331\325\332& \210\313\333\315\316\334DD\335\311\304\323\336\325\337& \210\313\340\315\316\341DD\342\311\304\323\343\325\344& \210\313\345\315\316\346DD\347\311\304\323\350\325\351& \210\303\352\305\353\307\354\311\304&\210\313\355\315\316\356DD\357\311\352\323\360\325\337& \210\313\361\315\316\362DD\363\311\352\364\365\323\366\325\367& \210\313\370\315\316\371DD\372\311\352\323\373\325\305& \210\313\374\315\316\375DD\376\311\352\364\377\323\201@\325\344& \210\313\201A\315\316\201BDD\201C\311\352\323\331\325\332& \210\313\201D\315\316\201EDD\201F\311\352\323\201G\325\305& \210\313\201H\315\316\201IDD\201J\311\352\364\377\323\201K\325\305& \210\313\201L\315\316\201MDD\201N\311\352\323\201O\325\305& \210\313\201P\315\316\201QDD\201R\311\352\364\377\323\201K\325\305& \210\303\201S\305\201T\307\201U\311\304&\210\313\201V\315\316\201WDD\201X\311\201S\323\201Y\325\201Z& \210\313\201[\315\316\201\\DD\201]\311\201S\321\201^\323\366\325\367& \210\313\201_\315\316\201`DD\201a\311\201S\323\201K\325\367& \210\313\201b\315\316\201cDD\201d\311\201S\323\331\325\332& \207" [require org-compat org-macs custom-declare-group org-link nil "Options concerning links in Org mode." :tag "Org Link" :group org custom-declare-variable org-link-parameters funcall function #[0 "\300\207" [nil] 1] "Alist of properties that defines all the links in Org mode.\n\nThe key in each association is a string of the link type.\nSubsequent optional elements make up a property list for that\ntype.\n\nAll properties are optional. However, the most important ones\nare, in this order, `:follow', `:export', and `:store', described\nbelow.\n\n`:follow'\n\n Function used to follow the link, when the `org-open-at-point'\n command runs on it. It is called with two arguments: the path,\n as a string, and a universal prefix argument.\n\n Here, you may use `org-link-open-as-file' helper function for\n types similar to \"file\".\n\n`:export'\n\n Function that accepts four arguments:\n - the path, as a string,\n - the description as a string, or nil,\n - the export back-end,\n - the export communication channel, as a plist.\n\n When nil, export for that type of link is delegated to the\n back-end.\n\n`:store'\n\n Function responsible for storing the link. See the function\n `org-store-link-functions' for a description of the expected\n arguments.\n\nAdditional properties provide more specific control over the\nlink.\n\n`:activate-func'\n\n Function to run at the end of Font Lock activation. It must\n accept four arguments:\n - the buffer position at the start of the link,\n - the buffer position at its end,\n - the path, as a string,\n - a boolean, non-nil when the link has brackets.\n\n`:complete'\n\n Function that inserts a link with completion. The function\n takes one optional prefix argument.\n\n`:display'\n\n Value for `invisible' text property on the hidden parts of the\n link. The most useful value is `full', which will not fold the\n link in descriptive display. Default is `org-link'.\n\n`:face'\n\n Face for the link, or a function returning a face. The\n function takes one argument, which is the path.\n\n The default face is `org-link'.\n\n`:help-echo'\n\n String or function used as a value for the `help-echo' text\n property. The function is called with one argument, the help\n string to display, and should return a string.\n\n`:htmlize-link'\n\n Function or plist for the `htmlize-link' text property. The\n function takes no argument.\n\n Default is (:uri \"type:path\")\n\n`:keymap'\n\n Active keymap when point is on the link. Default is\n `org-mouse-map'.\n\n`:mouse-face'\n\n Face used when hovering over the link. Default is\n `highlight'." :package-version (Org . "9.1") :type (alist :tag "Link display parameters" :value-type plist) :safe org-link-descriptive #[0 "\300\207" [t] 1] "Non-nil means Org displays descriptive links.\n\nE.g. [[https://orgmode.org][Org website]] is be displayed as\n\"Org Website\", hiding the link itself and just displaying its\ndescription. When set to nil, Org displays the full links\nliterally.\n\nYou can interactively set the value of this variable by calling\n`org-toggle-link-display' or from the \"Org > Hyperlinks\" menu." boolean booleanp org-link-make-description-function #[0 "\300\207" [nil] 1] "Function to use for generating link descriptions from links.\nThis function must take two parameters: the first one is the\nlink, the second one is the description generated by\n`org-insert-link'. The function should return the description to\nuse." (choice (const nil) (function)) null org-link-file-path-type #[0 "\300\207" [adaptive] 1] "How the path name in file links should be stored.\nValid values are:\n\nrelative Relative to the current directory, i.e. the directory of the file\n into which the link is being inserted.\nabsolute Absolute path, if possible with ~ for home directory.\nnoabbrev Absolute path, no abbreviation of home directory.\nadaptive Use relative path for files in the current directory and sub-\n directories of it. For other files, use an absolute path." (choice (const relative) (const absolute) (const noabbrev) (const adaptive)) symbolp org-link-abbrev-alist #[0 "\300\207" [nil] 1] "Alist of link abbreviations.\nThe car of each element is a string, to be replaced at the start of a link.\nThe cdrs are replacement values, like (\"linkkey\" . REPLACE). Abbreviated\nlinks in Org buffers can have an optional tag after a double colon, e.g.,\n\n [[linkkey:tag][description]]\n\nThe `linkkey' must be a single word, starting with a letter, followed\nby letters, numbers, `-' or `_'.\n\nIf REPLACE is a string, the tag will simply be appended to create the link.\nIf the string contains \"%s\", the tag will be inserted there. If the string\ncontains \"%h\", it will cause a url-encoded version of the tag to be inserted\nat that point (see the function `url-hexify-string'). If the string contains\nthe specifier \"%(my-function)\", then the custom function `my-function' will\nbe invoked: this function takes the tag as its only argument and must return\na string.\n\nREPLACE may also be a function that will be called with the tag as the\nonly argument to create the link, which should be returned as a string.\n\nSee the manual for examples." (repeat (cons (string :tag "Protocol") (choice (string :tag "Format") (function)))) #[257 "\211:\205\211@\211;\205A\211;\205\300\262\262\207" [t] 4 "\n\n(fn VAL)"] org-link-follow "Options concerning following links in Org mode." "Org Follow Link" org-link-translation-function #[0 "\300\207" [nil] 1] "Function to translate links with different syntax to Org syntax.\nThis can be used to translate links created for example by the Planner\nor emacs-wiki packages to Org syntax.\nThe function must accept two parameters, a TYPE containing the link\nprotocol name like \"rmail\" or \"gnus\" as a string, and the linked path,\nwhich is everything after the link protocol. It should return a cons\nwith possibly modified values of type and path.\nOrg contains a function for this, so if you set this variable to\n`org-translate-link-from-planner', you should be able follow many\nlinks created by planner." (choice (const nil) (function)) org-link-doi-server-url #[0 "\300\207" [#1="https://doi.org/"] 1 #1#] "The URL of the DOI server." :version "24.3" string stringp org-link-frame-setup #[0 "\300\207" [((vm . vm-visit-folder-other-frame) (vm-imap . vm-visit-imap-folder-other-frame) (gnus . org-gnus-no-new-news) (file . find-file-other-window) (wl . wl-other-frame))] 1] "Setup the frame configuration for following links.\nWhen following a link with Emacs, it may often be useful to display\nthis link in another window or frame. This variable can be used to\nset this up for the different types of links.\nFor VM, use any of\n `vm-visit-folder'\n `vm-visit-folder-other-window'\n `vm-visit-folder-other-frame'\nFor Gnus, use any of\n `gnus'\n `gnus-other-frame'\n `org-gnus-no-new-news'\nFor FILE, use any of\n `find-file'\n `find-file-other-window'\n `find-file-other-frame'\nFor Wanderlust use any of\n `wl'\n `wl-other-frame'\nFor the calendar, use the variable `calendar-setup'.\nFor BBDB, it is currently only possible to display the matches in\nanother window." (list (cons (const vm) (choice (const vm-visit-folder) (const vm-visit-folder-other-window) (const vm-visit-folder-other-frame))) (cons (const vm-imap) (choice (const vm-visit-imap-folder) (const vm-visit-imap-folder-other-window) (const vm-visit-imap-folder-other-frame))) (cons (const gnus) (choice (const gnus) (const gnus-other-frame) (const org-gnus-no-new-news))) (cons (const file) (choice (const find-file) (const find-file-other-window) (const find-file-other-frame))) (cons (const wl) (choice (const wl) (const wl-other-frame)))) org-link-search-must-match-exact-headline #[0 "\300\207" [query-to-create] 1] "Non-nil means internal fuzzy links can only match headlines.\n\nWhen nil, the a fuzzy link may point to a target or a named\nconstruct in the document. When set to the special value\n`query-to-create', offer to create a new headline when none\nmatched.\n\nSpaces and statistics cookies are ignored during heading searches." "24.1" (choice (const :tag "Use fuzzy text search" nil) (const :tag "Match only exact headline" t) (const :tag "Match exact headline or query to create it" query-to-create)) org-link-use-indirect-buffer-for-internals #[0 "\300\207" [nil] 1] "Non-nil means use indirect buffer to display infile links.\nActivating internal links (from one location in a file to another location\nin the same file) normally just jumps to the location. When the link is\nactivated with a `\\[universal-argument]' prefix (or with mouse-3), the link is displayed in\nanother window. When this option is set, the other window actually displays\nan indirect buffer clone of the current buffer, to avoid any visibility\nchanges to the current buffer." org-link-shell-confirm-function #[0 "\300\207" [yes-or-no-p] 1] "Non-nil means ask for confirmation before executing shell links.\n\nShell links can be dangerous: just think about a link\n\n [[shell:rm -rf ~/*][Google Search]]\n\nThis link would show up in your Org document as \"Google Search\",\nbut really it would remove your entire home directory.\nTherefore we advise against setting this variable to nil.\nJust change it to `y-or-n-p' if you want to confirm with a\nsingle keystroke rather than having to type \"yes\"." (choice (const :tag "with yes-or-no (safer)" yes-or-no-p) (const :tag "with y-or-n (faster)" y-or-n-p) (const :tag "no confirmation (dangerous)" nil)) org-link-shell-skip-confirm-regexp #[0 "\300\207" [#2=""] 1 #2#] "Regexp to skip confirmation for shell links." regexp org-link-elisp-confirm-function #[0 "\300\207" [yes-or-no-p] 1] "Non-nil means ask for confirmation before executing Emacs Lisp links.\nElisp links can be dangerous: just think about a link\n\n [[elisp:(shell-command \"rm -rf ~/*\")][Google Search]]\n\nThis link would show up in your Org document as \"Google Search\",\nbut really it would remove your entire home directory.\nTherefore we advise against setting this variable to nil.\nJust change it to `y-or-n-p' if you want to confirm with a\nsingle keystroke rather than having to type \"yes\"." (choice (const :tag "with yes-or-no (safer)" yes-or-no-p) (const :tag "with y-or-n (faster)" y-or-n-p) (const :tag "no confirmation (dangerous)" nil)) org-link-elisp-skip-confirm-regexp #[0 "\300\207" [#2#] 1 #2#] "A regexp to skip confirmation for Elisp links." org-link-store "Options concerning storing links in Org mode." "Org Store Link" org-link-context-for-files #[0 "\300\207" [t] 1] "Non-nil means file links from `org-store-link' contain context.\n\\\nA search string is added to the file name with \"::\" as separator\nand used to find the context when the link is activated by the command\n`org-open-at-point'. When this option is t, the entire active region\nis be placed in the search string of the file link. If set to a\npositive integer N, only the first N lines of context are stored.\n\nUsing a prefix argument to the command `org-store-link' (`\\[universal-argument] \\[org-store-link]')\nnegates this setting for the duration of the command." (choice boolean integer) #[257 "\300!\206\211\250\207" [booleanp] 3 "\n\n(fn VAL)"] org-link-email-description-format #[0 "\300\207" [#3="Email %c: %s"] 1 #3#] "Format of the description part of a link to an email or usenet message.\nThe following %-escapes will be replaced by corresponding information:\n\n%F full \"From\" field\n%f name, taken from \"From\" field, address if no name\n%T full \"To\" field\n%t first name in \"To\" field, address if no name\n%c correspondent. Usually \"from NAME\", but if you sent it yourself, it\n will be \"to NAME\". See also the variable `org-from-is-user-regexp'.\n%s subject\n%d date\n%m message-id.\n\nYou may use normal field width specification between the % and the letter.\nThis is for example useful to limit the length of the subject.\n\nExamples: \"%f on: %.30s\", \"Email from %f\", \"Email %c\"" (Org . "9.3") org-link-from-user-regexp #[0 "\302!\205\f\303\304\305!\"\302 !\205\303\304\305 !\"\203'\211\203'\306Q\202,\206,\211\207" [user-mail-address user-full-name org-string-nw-p format "\\<%s\\>" regexp-quote "\\|"] 5] "Regexp matched against the \"From:\" header of an email or Usenet message.\nIt should match if the message is from the user him/herself." org-link-keep-stored-after-insertion #[0 "\300\207" [nil] 1] "Non-nil means keep link in list for entire session.\n\\\nThe command `org-store-link' adds a link pointing to the current\nlocation to an internal list. These links accumulate during a session.\nThe command `org-insert-link' can be used to insert links into any\nOrg file (offering completion for all stored links).\n\nWhen this option is nil, every link which has been inserted once using\n`\\[org-insert-link]' will be removed from the list, to make completing the unused\nlinks more efficient."] 12) #@44 Regular expression matching a link target. (defconst org-target-regexp (byte-code "\300\301\302\211\211$\207" ["[^<>\n ]" format "<<\\(%s\\|%s[^<>\n ]*%s\\)>>"] 6) (#$ . 14816)) #@45 Regular expression matching a radio target. (defconst org-radio-target-regexp (format "<%s>" org-target-regexp) (#$ . 15003)) #@58 Regular expression matching radio targets in plain text. (defvar org-target-link-regexp nil (#$ . 15135)) (make-variable-buffer-local 'org-target-link-regexp) #@56 Matches a link that has a url-like prefix like "http:" (defvar org-link-types-re nil (#$ . 15300)) #@57 Matches link with angular brackets, spaces are allowed. (defvar org-link-angle-re nil (#$ . 15405)) #@178 Matches plain link, without spaces. Group 1 must contain the link type (i.e. https). Group 2 must contain the link path (i.e. //example.com). Used by `org-element-link-parser'. (defvar org-link-plain-re nil (#$ . 15512)) #@36 Matches a link in double brackets. (defvar org-link-bracket-re nil (#$ . 15739)) #@39 Regular expression matching any link. (defvar org-link-any-re nil (#$ . 15826)) #@112 Buffer-local version of `org-link-abbrev-alist', which see. The value of this is taken from the LINK keywords. (defvar org-link-abbrev-alist-local nil (#$ . 15913)) (make-variable-buffer-local 'org-link-abbrev-alist-local) #@50 Contains the links stored with `org-store-link'. (defvar org-stored-links nil (#$ . 16142)) #@77 Plist with info about the most recently link created with `org-store-link'. (defvar org-store-link-plist nil (#$ . 16240)) #@1039 List of functions to construct the right search string for a file link. These functions are called in turn with point at the location to which the link should point. A function in the hook should first test if it would like to handle this file type, for example by checking the `major-mode' or the file extension. If it decides not to handle this file, it should just return nil to give other functions a chance. If it does handle the file, it must return the search string to be used when following the link. The search string will be part of the file link, given after a double colon, and `org-open-at-point' will automatically search for it. If special measures must be taken to make the search successful, another function should be added to the companion hook `org-execute-file-search-functions', which see. A function in this hook may also use `setq' to set the variable `description' to provide a suggestion for the descriptive text to be used for this link when it gets inserted into an Org buffer with \[org-insert-link]. (defvar org-create-file-search-functions nil (#$ . 16371)) #@1003 List of functions to execute a file search triggered by a link. Functions added to this hook must accept a single argument, the search string that was part of the file link, the part after the double colon. The function must first check if it would like to handle this search, for example by checking the `major-mode' or the file extension. If it decides not to handle this search, it should just return nil to give other functions a chance. If it does handle the search, it must return a non-nil value to keep other functions from trying. Each function can access the current prefix argument through the variable `current-prefix-arg'. Note that a single prefix is used to force opening a link in Emacs, so it may be good to only use a numeric or double prefix to guide the search function. In case this is needed, a function in this hook can also restore the window configuration before `org-open-at-point' was called using: (set-window-configuration org-window-config-before-follow-link) (defvar org-execute-file-search-functions nil (#$ . 17476)) #@766 Hook for functions finding a plain text link. These functions must take a single argument, the link content. They will be called for links that look like [[link text][description]] when LINK TEXT does not have a protocol like "http:" and does not look like a filename (e.g. "./blue.png"). These functions will be called *before* Org attempts to resolve the link by doing text searches in the current buffer - so if you want a link "[[target]]" to still find "<>", your function should handle this as a special case. When the function does handle the link, it must return a non-nil value. If it decides that it is not responsible for this link, it must return nil to indicate that that Org can continue with other options like exact and fuzzy text search. (defvar org-open-link-functions nil (#$ . 18545)) #@50 Characters forbidden within a link, as a string. (defconst org-link--forbidden-chars "] \n <>" (#$ . 19366)) #@29 History for inserted links. (defvar org-link--history nil (#$ . 19481)) #@63 Minibuffer history for links inserted with `org-insert-link'. (defvar org-link--insert-history nil (#$ . 19559)) #@39 Non-nil when last link search failed. (defvar org-link--search-failed nil (#$ . 19678)) #@73 If there is completion support for link type TYPE, offer it. (fn TYPE) (defalias 'org-link--try-special-completion #[257 "\300\301\"\302!\203\211 \202\303\304\305P\"\207" [org-link-get-parameter :complete functionp read-string "Link (no completion support): " ":"] 6 (#$ . 19772)]) #@155 Return a human-readable representation of LINK. The car of LINK must be a raw link. The cdr of LINK must be either a link description or nil. (fn LINK) (defalias 'org-link--prettify #[257 "\211A@\206\300\301\302\303G\304^O\"\305@\306R\207" ["" format "%-45s" 0 40 "<" ">"] 8 (#$ . 20069)]) #@207 Unhexify Unicode hex-chars HEX. E.g. "%C3%B6" is the German o-Umlaut. Note: this function also decodes single byte encodings like "%E1" (a-acute) if not followed by another "%[A-F0-9]{2}" group. (fn HEX) (defalias 'org-link--decode-compound #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"A\312\302\211\203\264\313\211A\262\242\314\"\302U\203k\211\315Y\2035\316\315B\202n\211\317Y\203A\320\317B\202n\211\321Y\203M\322\321B\202n\211\323Y\203Y\307\323B\202n\211\324Y\203e\325\324B\202n\302\211B\202n\316\326B\324Y\203x\211@\262\327A\"\262\330@\"\\\262\302V\203\222S\262\302U\203\245\331!P\262\302\262\202\257\204\257\332!\262\266\202\266\204)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 split-string "%" "" string-to-number 16 252 6 248 5 240 4 224 192 2 128 logxor lsh char-to-string org-link--decode-single-byte-sequence] 11 (#$ . 20389)]) #@68 Unhexify hex-encoded single byte character sequence HEX. (fn HEX) (defalias 'org-link--decode-single-byte-sequence #[257 "\300\301\302\303\"A\304#\207" [mapconcat #[257 "\300\301\302\"!\207" [char-to-string string-to-number 16] 5 "\n\n(fn BYTE)"] split-string "%" ""] 6 (#$ . 21351)]) #@58 Fontify links to the current file in `org-stored-links'. (defalias 'org-link--fontify-links-to-this-file #[0 "\301 \302\211\303\304\305\306\307\310!\311\"\312\313%\"\262\314\315!\203.\303\304\305\316\307\310!\317\"\320\313%\"\262\303\321\322\302\323\"\"\"\207" [org-stored-links buffer-file-name nil mapcar make-byte-code 257 "\211@\301\302\"\205\300\303\304\305\"!\232\205\211\207" vconcat vector [string-match "^file:\\(.+\\)::" expand-file-name match-string 1] 7 "\n\n(fn L)" featurep org-id "\211@\301\302\"\205\300\303\304\305\306\"!\206\307!\232\205\211\207" [string-match "^id:\\(.+\\)$" expand-file-name org-id-find-id-file match-string 1 ""] 8 #[257 "\300\301G\302\303%\207" [put-text-property 0 face font-lock-comment-face] 7 "\n\n(fn L)"] delq append] 10 (#$ . 21645)]) #@65 Return buffer used for displaying the target of internal links. (defalias 'org-link--buffer-for-internals #[0 "\204p\207\301\302\303 \"\203\304\305!\210p\207\303 \302P\306!\206#\307p\310#r\211q\210\311 \210)\207" [org-link-use-indirect-buffer-for-internals string-suffix-p "(Clone)" buffer-name message "Buffer is already a clone, not making another one" get-buffer make-indirect-buffer clone org-overview] 5 (#$ . 22461)]) #@105 Search a radio target matching TARGET in current buffer. White spaces are not significant. (fn TARGET) (defalias 'org-link--search-radio-target #[257 "\300\301\302\303\304!\305#\"`eb\210\3062B\307\310\311#\203:\312u\210\313 \314!\315=\2036\316\317\"b\210\320\321!\210\322\306\310\"\210\210\202\211b\210\323\324\"0\207" [format "<<<%s>>>" mapconcat regexp-quote split-string "[ ]+\\(?:\n[ ]*\\)?" :radio-match re-search-forward nil t -1 org-element-context org-element-type radio-target org-element-property :begin org-show-context link-search throw user-error "No match for radio target: %s"] 7 (#$ . 22900)]) #@51 Return context string from active region, or nil. (defalias 'org-link--context-from-region #[0 "\301 \205(\302 \303 {\304!\203%\305V\203%\306\307\"\310\311\312\305#\307#\266\202\211\262\207" [org-link-context-for-files org-region-active-p region-beginning region-end wholenump 0 org-split-string "\n" mapconcat identity cl-subseq] 8 (#$ . 23529)]) #@301 Remove ignored contents from STRING string and return it. This function removes contiguous white spaces and statistics cookies. When optional argument CONTEXT is non-nil, it assumes STRING is a context string, and also removes special search syntax around the string. (fn STRING &optional CONTEXT) (defalias 'org-link--normalize-string #[513 "\300\301\302\300\303\302##\304\300\203\305\202\306\307\300\310\307##\266\202\203f\311\312\"\203P\313\314\"\203P\211\315\316O\304\300\203?\305\202@\306\307\300\310\307##\266\202\211\262\202c\317\320\"\203b\211\321\225\304O\211\262\202c\304\204#\211\207" [replace-regexp-in-string "[ ]+" " " "\\[[[:digit:]]*\\(?:%\\|/[[:digit:]]*\\)]" nil "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" string-prefix-p "(" string-suffix-p ")" 1 -1 string-match "\\`[#*]+[ ]*" 0] 12 (#$ . 23893)]) #@36 Return a list of known link types. (defalias 'org-link-types #[0 "\301\302\"\207" [org-link-parameters mapcar car] 3 (#$ . 24756)]) #@144 Get TYPE link property for KEY. TYPE is a string and KEY is a plist keyword. See `org-link-parameters' for supported keywords. (fn TYPE KEY) (defalias 'org-link-get-parameter #[514 "\301\302\"A\"\207" [org-link-parameters plist-get assoc] 6 (#$ . 24896)]) #@158 Set link TYPE properties to PARAMETERS. PARAMETERS should be keyword value pairs. See `org-link-parameters' for supported keys. (fn TYPE &rest PARAMETERS) (defalias 'org-link-set-parameters #[385 "\301\235\203 \302\303\"\210\304\"\211\203\211\305A\"\241\202.BB\306 \210\307\310!\205.\311 \207" [org-link-parameters ("coderef" "custom-id" "fuzzy" "radio") error "Cannot override reserved link type: %S" assoc org-combine-plists org-link-make-regexps featurep org-element org-element-update-syntax] 7 (#$ . 25164)]) #@114 Update the link regular expressions. This should be called after the variable `org-link-parameters' has changed. (defalias 'org-link-make-regexps #[0 "\305\306 \307\"\310\311Q\312\313\"\314\315\316\317\320\321D\315\316\317\321 DD\322BBBED\323BBB\324\315\325\326D\311\327\330\320\321\nD ED\320\331\332\nFE\257!\266\202\333\334 \335 \335\n\336\260\211\207" [org-link-types-re org-link-angle-re org-link-plain-re org-link-bracket-re org-link-any-re regexp-opt org-link-types t "\\`" ":" format "<%s:\\([^>\n]*\\(?:\n[ ]*[^> \n][^>\n]*\\)*\\)>" "[^][ \n()<>]" seq "(" 0+ or regex (")") (")") rx-to-string word-start regexp group 1+ (regexp "[^[:punct:] \n]") 47 "\\[\\[\\(\\(?:[^][\\]\\|\\\\\\(?:\\\\\\\\\\)*[][]\\|\\\\+[^][]\\)+\\)]\\(?:\\[\\(\\(?:.\\|\n\\)+?\\)]\\)?]" "\\(" "\\)\\|\\(" "\\)"] 14 (#$ . 25702)]) #@58 Create a file link using completion. (fn &optional ARG) (defalias 'org-link-complete-file #[256 "\300\301!\302\303\304!!\302\305\303\304!!!\306\232\203\307\305\303!!P\202Q\310\311\312!\313Q\"\2034\307\314\315\"P\202Q\310\311\312!\313Q\303!\"\203N\307\314\315\303!\"P\202Q\307P\207" [read-file-name "File: " file-name-as-directory expand-file-name "." abbreviate-file-name (16) "file:" string-match "^" regexp-quote "\\(.+\\)" match-string 1] 9 (#$ . 26538)]) #@202 Return the description part of an email link. This takes information from `org-store-link-plist' and formats it according to FMT (default from `org-link-email-description-format'). (fn &optional FMT) (defalias 'org-link-email-description #[256 "\211\206\262 \303\304\"\303\305\"\306\303\307\"B\310\303\311\"B\312\303\313\"\206.\303\305\"\206.\314B\315\303\316\"B\317\303\320\"\206H\303\304\"\206H\314B\321\303 \322\"B\323\303\n\324\"B\325\303 \326\"B\257\327\306\"\203\241\n\203\230\203\230\203\230\330 \331\332\333\334\335!\336\"\337$\216\327\n\")\262\203\230\340\341\342\211$\262\202\241\340\343\342\211$\262\344\"\207" [org-link-email-description-format org-store-link-plist org-link-from-user-regexp plist-get :toaddress :fromaddress "%c" :fromto "%F" :from "%f" :fromname "?" "%T" :to "%t" :toname "%s" :subject "%d" :date "%m" :message-id string-match match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 replace-match "to %t" t "from %f" org-replace-escapes] 15 (#$ . 27022)]) #@117 Store link properties. The properties are pre-processed by extracting names, addresses and dates. (fn &rest PLIST) (defalias 'org-link-store-props #[128 "\302\303\"\211\203\304!\305\306@#\262\305\307A@#\262\210\210\302\310\"\211\203;\304!\305\311@#\262\305\312A@#\262\210\210\3131J\314\302\315\"!0\202L\210\316\211\203i\305\317\320\321\322!\"#\262\305\323\320\321\322\211\"\"#\262\210\302\303\"\302\310\"\203\221\211\203\221\203\221\305\324\325\"\203\215\326\202\216\327#\262\266\211\211\207" [org-link-from-user-regexp org-store-link-plist plist-get :from mail-extract-address-components plist-put :fromname :fromaddress :to :toname :toaddress (error) date-to-time :date nil :date-timestamp format-time-string org-time-stamp-format t :date-timestamp-inactive :fromto string-match "to %t" "from %f"] 9 (#$ . 28101)]) #@67 Add these properties to the link property list. (fn &rest PLIST) (defalias 'org-link-add-props #[128 "\301\211\205\211A\262\242\262\211A\262\242\262\302#\202\207" [org-store-link-plist nil plist-put] 7 (#$ . 28970)]) #@168 Return percent escaped representation of string TEXT. TEXT is a string with the text to escape. TABLE is a list of characters that should be escaped. (fn TEXT TABLE) (defalias 'org-link-encode #[514 "\300\301\302\303\304\305!\306\"\307\310%\311#\207" [mapconcat make-byte-code 257 "\211\300>\203\301\302\303\304\"\206\305\306\"\307#\207\310!\207" vconcat vector [mapconcat #[257 "\300\301\"\207" [format "%%%.2X"] 4 "\n\n(fn E)"] encode-coding-char utf-8 error "Unable to percent escape character: %c" #1="" char-to-string] 6 "\n\n(fn C)" #1#] 9 (#$ . 29210)]) #@94 Decode percent-encoded parts in string S. E.g. "%C3%B6" becomes the german o-Umlaut. (fn S) (defalias 'org-link-decode #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "\\(%[0-9A-Za-z]\\{2\\}\\)+" org-link--decode-compound t] 7 (#$ . 29789)]) #@66 Backslash-escape sensitive characters in string LINK. (fn LINK) (defalias 'org-link-escape #[257 "\300\301\302\303\304\305&\207" [replace-regexp-in-string "\\(\\\\*\\)\\(\\'\\|[][]\\)" #[257 "\300\301\"\300\301\"\302\224\302\225U?\205\303Q\207" [match-string 1 2 "\\"] 5 "\n\n(fn M)"] nil t 1] 8 (#$ . 30051)]) #@67 Remove escaping backslash characters from string LINK. (fn LINK) (defalias 'org-link-unescape #[257 "\300\301\302\303\304\305&\207" [replace-regexp-in-string "\\(\\\\+\\)\\(?:\\'\\|[][]\\)" #[257 "\300\301\225\301\224Z\302\245\303\"\260\207" [make-string 1 2 92] 4 "\n\n(fn _)"] nil t 1] 8 (#$ . 30375)]) #@149 Make a bracket link, consisting of LINK and DESCRIPTION. LINK is escaped with backslashes for inclusion in buffer. (fn LINK &optional DESCRIPTION) (defalias 'org-link-make-string #[513 "\300\301!\302!\205.\303\304\305\306Q\303\307\310P\311\303\203!\312\202\"\313\314\303\315\314##\266\202##\302!\2048\211\202K\316\317\320!\203I\316\321\"\202J\314#\207" [string 8203 org-string-nw-p replace-regexp-in-string "\\(]\\)\\(]\\)" "\\1" "\\2" "]\\'" "\\&" nil "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" format "[[%s]%s]" org-link-escape "[%s]"] 18 (#$ . 30691)]) #@990 List of functions that are called to create and store a link. The functions are defined in the `:store' property of `org-link-parameters'. Each function will be called in turn until one returns a non-nil value. Each function should check if it is responsible for creating this link (for example by looking at the major mode). If not, it must exit and return nil. If yes, it should return a non-nil value after calling `org-link-store-props' with a list of properties and values. Special properties are: :type The link prefix, like "http". This must be given. :link The link, like "http://www.astro.uva.nl/~dominik". This is obligatory as well. :description Optional default description for the second pair of brackets in an Org mode link. The user can still change this when inserting this link into an Org mode buffer. In addition to these, any additional properties can be specified and then used in capture templates. (defalias 'org-store-link-functions #[0 "\301\211\211:\203$@\262\302@\303\"\262\203B\262A\262\202\211\237\207" [org-link-parameters nil org-link-get-parameter :store] 7 (#$ . 31284)]) #@109 Replace link abbreviations in LINK string. Abbreviations are defined in `org-link-abbrev-alist'. (fn LINK) (defalias 'org-link-expand-abbrev #[257 "\302\303\"\204\207\304\305\"\306\"\206\306 \"\307\225\205 \304\310\"\311\204)\202\215A\262\2119\2038\211!\202\215\302\312\"\203`\313\314 \315\316\317\320\321!\322\"\310$\216\323\304\305\"!!)\262\324\211$\202\215\302\325\"\203t\313\206m\326\324\211$\202\215\302\327\"\203\212\313\330\206\202\326!\324\211$\202\215\211P\207" [org-link-abbrev-alist-local org-link-abbrev-alist string-match "^\\([^:]*\\)\\(::?\\(.*\\)\\)?$" match-string 1 assoc 2 3 nil "%(\\([^)]+\\))" replace-match match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] intern-soft t "%s" "" "%h" url-hexify-string] 13 (#$ . 32481)]) #@359 Open a link object LINK. ARG is an optional prefix argument. Some link types may handle it. For example, it determines what application to run when opening a "file" link. Functions responsible for opening the link are either hard-coded for internal and "file" links, or stored as a parameter in `org-link-parameters', which see. (fn LINK &optional ARG) (defalias 'org-link-open #[513 "\300\301\"\300\302\"\303\232\203L\300\304\"\211\203\305Q\202\306\300\307 \"\203/\202D\211\310\232\2039\311\202D\211\312\232\203C\313\202D\314\262\"\266\202\202\335\315\235\203\273\316\317\"?\205\335\204d\320 \210\202i\321\322 !\210\212\214~\210\323\232\203z\324!\210\202\244\325\326\232\203\207\327P\202\225\330\232\203\224\331\332\"\202\225\333\232\205\242\334\300\335\"\\\"\210`*eX\203\262dY\204\264~\210\211b\262\202\335\336\337\"\340!\205\333\3411\324\336\337\"\"0\202\333\210\336\337\"!\262\207" [org-element-property :type :path "file" :search-option "::" org-link-open-as-file :application "emacs" emacs "sys" system nil ("radio" "fuzzy" "custom-id" "coderef") run-hook-with-args-until-success org-open-link-functions org-mark-ring-push switch-to-buffer-other-window org-link--buffer-for-internals "radio" org-link--search-radio-target org-link-search "custom-id" "#" "coderef" format "(%s)" "fuzzy" 2 :begin org-link-get-parameter :follow functionp (wrong-number-of-arguments)] 11 (#$ . 33314)]) #@150 Open a link in the string S, as if it was in Org mode. Optional argument is passed to `org-open-file' when S is a "file" link. (fn S &optional ARG) (defalias 'org-link-open-from-string #[513 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312c\210\313 \210eb\210\314 +\262\211\204.\315\316\"\2025\211\317\"\262\207" [org-inhibit-startup generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil org-mode org-element-link-parser user-error "No valid link in %S" org-link-open] 9 (#$ . 34782) "sLink: \nP"]) #@802 Search for a search string S. If S starts with "#", it triggers a custom ID search. If S is enclosed within parenthesis, it initiates a coderef search. If S is surrounded by forward slashes, it is interpreted as a regular expression. In Org mode files, this will create an `org-occur' sparse tree. In ordinary files, `occur' will be used to list matches. If the current buffer is in `dired-mode', grep will be used to search in all files. When AVOID-POS is given, ignore matches near that position. When optional argument STEALTH is non-nil, do not modify visibility around point, thus ignoring `org-show-context-detail' variable. Search is case-insensitive and ignores white spaces. Return type of matched result, which is either `dedicated' or `fuzzy'. (fn S &optional AVOID-POS STEALTH) (defalias 'org-link-search #[769 "\305!\204 \306\307\"\210\310`\311\312\313#\314!\315=\316\203&\317\320O\202(!\321\322\323#\321\322\324#\320\325\326 \"\204\272\314\n!\327=\203d\317\320O\330\331\"\211\203Z\211b\210\332\262\202_\306\333\"\210\266\202\272\334\335\"\203\272\336\317\"\317\337Oeb\210\3402\265\341\320\310#\203\254\342 \343!\344>\203\250\345\346\347\350!\"P!\203\250\332\262\351\224b\210\352\340\320\"\210\210\202|b\210\306\353\"0\266\202\272\334\354\"\203\327\355\356!\203\314\357\202\315\360\361\317\f\"!\210\202\272\204\362\363\"\3642eb\210\341\320\310#\203 \337u\210\365 \343!\366=\203 \332\262\367\370\"b\210\352\364\310\"\210\210\202\346\3200\262\204\272\204U\362\371\"\3722Peb\210\341\320\310#\203N\342 \367\373\"\211\203I\316!\232\203I\332\262\374 \210\352\372\310\"\210\266\202#\3200\262\204\272\355\356!\203\240\362\375 \n\321\322 \376#$eb\210\3772\222\341\320\310#\203\220\316\201@\201A\310\211\211\211$!!\232\203m\352\377\310\"\210\202m\3200\262\203\240\374 \210\332\262\202\272\355\356!\203\335 \201B=\203\335\201C\201D!\203\335db\210n\204\304\201E \210\201F\320\310\211#\210 \201G\261\210\374\201H!\210\202\272\355\356!\203\372\204\353 \203\372b\210\306\201I\"\210\202\272\201J2\253eb\210\341\320\310#\203\251\203$\201H\224 X\203$\201H\225 V\204\201K \201L\201H\201M\201N\201O!\201P\"\201Q$\216\201R\f!)\262\203\224\201Q\224\203\224\201Q\224`V\204f\201Q\225`X\203\224\201S\201K \201L\201H\201M\201N\201O!\201T\"\201Q$\216\365 )\262\201U\310#\204\201H\224b\210\201V\262\352\201J\310\"\210\202\3200\204\272b\210\306\201I\"\210\355\356!\203\315\204\315\201W\201X!\210)\207" [case-fold-search org-outline-regexp-bol org-comment-string org-link-search-must-match-exact-headline org-link-bracket-re org-string-nw-p error "Invalid search string \"%s\"" t replace-regexp-in-string "\n[ ]*" " " string-to-char 42 split-string 1 nil mapconcat regexp-quote "\\(?:[ \n]+\\)" "[ ]+" run-hook-with-args-until-success org-execute-file-search-functions 35 org-find-property "CUSTOM_ID" dedicated "No match for custom ID: %s" string-match "\\`(\\(.*\\))\\'" match-string-no-properties -1 :coderef-match re-search-forward org-element-at-point org-element-type (example-block src-block) org-match-line ".*?" org-src-coderef-regexp org-src-coderef-format 2 throw "No match for coderef: %s" "\\`/\\(.*\\)/\\'" derived-mode-p org-mode org-occur org-do-occur match-string format "<<%s>>" :target-match org-element-context target org-element-property :begin "^[ ]*#\\+NAME: +%s[ ]*$" :name-match :name beginning-of-line "%s.*\\(?:%s[ ]\\)?.*%s" ".+" :found org-link--normalize-string org-get-heading query-to-create yes-or-no-p "No match - create this as a new heading? " newline org-insert-heading "\n" 0 "No match for fuzzy expression: %s" :fuzzy-match match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-in-regexp org-element-lineage [set-match-data evaporate] (link) fuzzy org-show-context link-search] 19 (#$ . 35382)]) #@376 Make search string for the current headline or STRING. Search string starts with an asterisk. COMMENT keyword and statistics cookies are removed, and contiguous spaces are packed into a single one. When optional argument STRING is non-nil, assume it a headline, without any asterisk, TODO or COMMENT keyword, and without any priority cookie or tag. (fn &optional STRING) (defalias 'org-link-heading-search-string #[256 "\300\301\206\f\302\303\211\211\211$!P\207" ["*" org-link--normalize-string org-get-heading t] 8 (#$ . 39356)]) #@278 Pretend PATH is a file name and open it. According to "file"-link syntax, PATH may include additional search options, separated from the file name with "::". This function is meant to be used as a possible tool for `:follow' property in `org-link-parameters'. (fn PATH ARG) (defalias 'org-link-open-as-file #[514 "\301\302\"\205 \303\304\"\211\204\202\305\211\224O\301\306\307!\"\203'\310!\202Q\311\312\2043\313\202P\314\313\315\301#)\266\203\203L\316!C\202P\313D$\207" [inhibit-changing-match-data string-match "::\\(.*\\)\\'" match-string 1 0 "[*?{]" file-name-nondirectory dired apply org-open-file nil "\\`[0-9]+\\'" t string-to-number] 15 (#$ . 39900)]) #@108 Replace links in string S with their description. If there is no description, use the link target. (fn S) (defalias 'org-link-display-format #[257 "\301 \302\303\304\305\306!\307\"\310$\216\311\312\313\314%)\207" [org-link-bracket-re match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 replace-regexp-in-string #[257 "\300\301\"\206 \300\302\"\207" [match-string 2 1] 4 "\n\n(fn M)"] nil t] 8 (#$ . 40599)]) #@46 Wrap string S within angle brackets. (fn S) (defalias 'org-link-add-angle-brackets #[257 "\211\300\301O\302\232\204\302P\262\211\303\304O\305\232\204\211\305P\262\207" [0 1 "<" -1 nil ">"] 4 (#$ . 41061)]) #@87 Open a "doi" type link. PATH is a the path to search for, as a string. (fn PATH ARG) (defalias 'org-link--open-doi #[514 "\301\302P!\"\207" [org-link-doi-server-url browse-url url-encode-url] 6 (#$ . 41281)]) (org-link-set-parameters "doi" :follow 'org-link--open-doi) #@83 Open a "elisp" type link. PATH is the sexp to evaluate, as a string. (fn PATH _) (defalias 'org-link--open-elisp #[514 "\303!\203\304\305\306#)\266\203\204(\n\203(\n\307\310\311\304\312\313$\"!\203D\314\315\316!\317=\203<\320\321!!\202B\322\321!!#\207\323\324!\207" [org-link-elisp-skip-confirm-regexp inhibit-changing-match-data org-link-elisp-confirm-function org-string-nw-p nil t string-match format "Execute %S as Elisp? " org-add-props face org-warning message "%s => %s" string-to-char 40 eval read call-interactively user-error "Abort"] 10 (#$ . 41560)]) (byte-code "\300\301\302\303#\210\300\304\305\306#\207" [org-link-set-parameters "elisp" :follow org-link--open-elisp "file" :complete org-link-complete-file] 4) #@75 Open a "help" type link. PATH is a symbol name, as a string. (fn PATH _) (defalias 'org-link--open-help #[514 "\300!\301!\203\211\302!\262\202(\303!\203!\211\304!\262\202(\211\305\306\"\262\207" [intern fboundp describe-function boundp describe-variable user-error "Unknown function or variable: %s"] 7 (#$ . 42313)]) (byte-code "\300\301\302\303#\210\304\211\203&\211@\300\302\305\306\307\310\311!\312\"\313\314%#\210A\266\202\202\207" [org-link-set-parameters "help" :follow org-link--open-help ("ftp" "http" "https" "mailto" "news") make-byte-code 514 "\301\300\302Q\"\207" vconcat vector [browse-url ":"] 6 "\n\n(fn URL ARG)"] 11) #@85 Open a "shell" type link. PATH is the command to execute, as a string. (fn PATH _) (defalias 'org-link--open-shell #[514 "\304!\203\305\306\307#)\266\203\204(\n\203(\n\310\311\312\305\313\314$\"!\203C\315\316!\317\320\"\210\321\"\210\322\323!\205B\324! B\211\207\325\326!\207" [org-link-shell-skip-confirm-regexp inhibit-changing-match-data org-link-shell-confirm-function clean-buffer-list-kill-buffer-names org-string-nw-p nil t string-match format "Execute %S in shell? " org-add-props face org-warning generate-new-buffer "*Org Shell Output*" message "Executing %s" shell-command featurep midnight buffer-name user-error "Abort"] 10 (#$ . 42978)]) (org-link-set-parameters "shell" :follow 'org-link--open-shell) #@155 Move forward to the next link. If the link is in hidden text, expose it. When SEARCH-BACKWARD is non-nil, move backward. (fn &optional SEARCH-BACKWARD) (defalias 'org-next-link #[256 "`\203 \304\202\n\305\203 \n=\204>\204%\306 !\203%\307\225b\210\202S\203S\310 \311\312#\211:\203:\211@\211\211b\266\210\202S\203Ldb\210\313\314!\210\202Seb\210\313\315!\210\311\3162\230\211 \311\312#\203\217\212\204i\317u\210\320 )\321\322\312#\211\203\212\211\323\324\"b\210\325 \203\204\326 \210\327\316\312\"\266\266\202Yb\210\312\313\330!0\207" [org-link--search-failed this-command last-command org-link-any-re re-search-backward re-search-forward looking-at 0 org-in-regexp nil t message "Link search wrapped back to end of buffer" "Link search wrapped back to beginning of buffer" :found -1 org-element-context org-element-lineage (link) org-element-property :begin org-invisible-p org-show-context throw "No further link found"] 9 (#$ . 43721) nil]) #@79 Move backward to the previous link. If the link is in hidden text, expose it. (defalias 'org-previous-link #[0 "\300\301!\207" [org-next-link t] 2 (#$ . 44703) nil]) #@53 Toggle the literal or descriptive display of links. (defalias 'org-toggle-link-display #[0 "\203 \301\302!\210\202\303\304!\210\305 \210?\211\207" [org-link-descriptive remove-from-invisibility-spec (org-link) add-to-invisibility-spec (org-link) org-restart-font-lock] 2 (#$ . 44875) nil]) #@783 Store a link to the current location. \ This link is added to `org-stored-links' and can later be inserted into an Org buffer with `org-insert-link' (`\[org-insert-link]'). For some link types, a `\[universal-argument]' prefix ARG is interpreted. A single `\[universal-argument]' negates `org-context-in-file-links' for file links or `org-gnus-prefer-web-links' for links to Usenet articles. A `\[universal-argument] \[universal-argument]' prefix ARG forces skipping storing functions that are not part of Org core. A `\[universal-argument] \[universal-argument] \[universal-argument]' prefix ARG forces storing a link for each line in the active region. Assume the function is called interactively if INTERACTIVE? is non-nil. (fn ARG &optional INTERACTIVE\=\?) (defalias 'org-store-link #[513 "\306 \210\307\232\203=\310 \203=\212\311 \312 b\210\313`!\210\314 W\2059\315\316!\210\317 \210\320\321\322!\210)\323\324!\210\313`!\210\202\262)\207\320\211\320\211\211\211\211\211\325\232\204\303\320\326 \211\203k\211@\211 \203d\211\327 !BB\262A\266\202\202P\210\211?\206t\211:??\205\252\211@\211:\205\250\211@A\211\204\213\330\202\246\331\332\333\334\335\336\337 \"\320\330\340 !%\"A\"\210\330\262\266\202\262\262\203\303\341 \342\"\262\341 \343\"\206\276\262\202\253\344 \2038\345 \346\347 \350>\204\345r\351 q\210\322  \"\210)\320\262 \2023\212\352 \210\353\354!\355 \330#)\203\377\211\356\357!!\262 \2023 \2030\320\210\360\361!\362\"\363GZiW\203 \364\330\"\210\202#\365c\210c\210!\262\f\266\2023\320\262 \266\202\253\366\302!\205?\n\367 \232\203y\370`\371\"\206P\370`\372\"\211\203u\211\212\373!\203a\374!q\210\212\214~\210\211\206j`b\210\322\320 \"\262+\210\210\202\253 \375=\203\262\376 \377\f@\331\201H\201I\211\211A@@\324\n8\320\211\211\257 \"\"\262\332\201J\201K\201L$\266\202\253 \201M=\203\354\201N\201O\201P\212eb\210\201Q\201R!\210\201S\201I!)#\201TP\262\210\332\201J\201U\"\210\202\253 \201V=\203,\367 \203\n\201W\201X\367 \"\204\n\367 \202\201Y\330!\262\201Y\330!\262\332\201J\201Z\201[\201Y\330!$\210\202\253 \201\\=\203R\201]\201^ !P\262\262\332\201J\201_\201` $\210\202\253\201a\201b!\203\212\201c\320\330\"\211\203w\201^\201d\201c\320\330\"!!\202y@\262\201]P\262\262\210\202\253\201e\201f!\211\262\203\261\201]\201^ !\201gR\262\206\254\262\202\253\305\201h !\2034\201a\201i!\2034\330A\201j \211BC\201kBPD\201l\201m\316\"\203\201]\201^\305\201h !!\201g\201S\316!R\262\262\2020\201n\320\201o\"\211\262\203)\201]\201^\305\201h !!\201pR\262\262\2020\201q\201r!\203\223E\330=\204e\203UE\201s=\204eE\201t=\203U\203eE\203\223\201n\320\201u\"\203\223\201v1\201w \341 \343\"\206y\201x\2620\202\216\210\201]\201^\305\201h !!P\262\2020\201]\201^\305\201h !!P\262\201yF\n\201z\232\"\203-\201{ \201|\201}\"\201~ \211\205\314\201\330\"\262\206\372\211\206\372\201\200 \203\366\201\320\201\201 \203\354`\202\356\314 {\262\330\"\202\372\201\202 \201\203!\203+\362\201\204\n#\262 \206)\201\200 \204&\201\201\205\330\211\211\211$!\206)\201\206\262\266\262,\202\253\305\201h !\203\230\201]\201^\305\201h !!P\262\201yF\n\201\207\232\"\203\222\201\201~ \206x\320\201\201 \203s`\202u\314 {\262\330\"\201\203!\203\221\362\201\204#\262\201\206\262\210\262\202\253\203\250\201\210\201\211!\210\202\253\320\262:\203\273@\262A\262\206\301\262\206\310\262\203\343\201\206\232\203\334\320\262\202\343\201\212!\262\203\355\204\211\206R\205R\201\213\"\202RDG\235\203\201\214\201\215!\210\202ODGBG\201\214\201\216\206,\"\210\203O\201]\201^\305\201h !!\201pR\262DGBGG@\207" [current-prefix-arg org-store-link-plist org-agenda-buffer-name major-mode org-time-stamp-formats buffer-file-name org-load-modules-maybe (64) org-region-active-p region-end region-beginning set-mark point-at-eol move-end-of-line 1 activate-mark nil call-interactively org-store-link move-beginning-of-line 2 (16) org-store-link-functions copy-sequence t apply org-link-store-props assoc-string completing-read "Which function for creating the link? " mapcar car symbol-name plist-get :link :description org-src-edit-buffer-p org-src-coderef-format #[257 "\203\n\301\302#\207\301\303\"\207" [org-src-source-file-name format "file:%s::(%s)" "(%s)"] 5 "\n\n(fn LABEL)"] org-src-source-type (example-block src-block) org-src-source-buffer beginning-of-line re-search-forward org-src-coderef-regexp line-end-position match-string-no-properties 3 read-string "Code line label: " format 79 org-move-to-column " " boundp buffer-name get-text-property org-hd-marker org-marker markerp marker-buffer calendar-mode calendar-cursor-to-date format-time-string default-directory org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-id-link-to-org-use-id org-link-context-for-files org-stored-links encode-time 0 :type "calendar" :date help-mode replace-regexp-in-string "\\\\\\([\\`]\\)" "\\1" looking-at "^[^ ]+" match-string "help:" "help" w3-mode string-match "Untitled" url-view-url "w3" :url image-mode "file:" abbreviate-file-name "image" :file derived-mode-p dired-mode dired-get-filename expand-file-name run-hook-with-args-until-success org-create-file-search-functions "::" buffer-base-buffer org-mode org-get-limited-outline-regexp "^" org-in-regexp "[^<]<<\\([^<>]+\\)>>[^>]" org-entry-get "CUSTOM_ID" "::#" featurep org-id create-if-interactive create-if-interactive-and-no-custom-id "ID" (error) org-id-store-link "" org-xor (4) org-element-at-point org-element-property :name org-link--context-from-region org-link--normalize-string org-before-first-heading-p point-at-bol org-link-heading-search-string org-string-nw-p "%s::%s" org-get-heading "NONE" (4) user-error "No method for storing a link from this buffer" org-link-display-format org-link-make-string message "This link already exists" "Stored: %s"] 25 (#$ . 45178) "P\np"]) #@1914 Insert a link. At the prompt, enter the link. Completion can be used to insert any of the link protocol prefixes in use. The history can be used to select a link previously stored with `org-store-link'. When the empty string is entered (i.e. if you just press `RET' at the prompt), the link defaults to the most recently stored link. As `SPC' triggers completion in the minibuffer, you need to use `M-SPC' or `C-q SPC' to force the insertion of a space character. You will also be prompted for a description, and if one is given, it will be displayed in the buffer instead of the link. If there is already a link at point, this command will allow you to edit link and description parts. With a `\[universal-argument]' prefix, prompts for a file to link to. The file name can be selected using completion. The path to the file will be relative to the current directory if the file is in the current directory or a subdirectory. Otherwise, the link will be the absolute path as completed in the minibuffer (i.e. normally ~/path/to/file). You can configure this behavior using the option `org-link-file-path-type'. With a `\[universal-argument] \[universal-argument]' prefix, enforce an absolute path even if the file is in the current directory or below. A `\[universal-argument] \[universal-argument] \[universal-argument]' prefix negates `org-link-keep-stored-after-insertion'. If the LINK-LOCATION parameter is non-nil, this value will be used as the link location instead of reading one interactively. If the DESCRIPTION parameter is non-nil, this value will be used as the default description. Otherwise, if `org-link-make-description-function' is non-nil, this function will be called with the link target, and the result will be the default link description. When called non-interactively, don't allow to edit the default description. (fn &optional COMPLETE-FILE LINK-LOCATION DESCRIPTION) (defalias 'org-insert-link #[768 "\306 p\307 \205 \310 \311 {\211\205\310 \311 D\312\211\211 \204q\313 \314\"\203G\315\224\315\225D\262\316\225\2058\317\316!\262\320\321\322\317\314!!\"\262\202q\313\n!\204S\313 !\203i\315\224\315\225D\262\320\321\323\324\325\326\315!#\"\262\202q\f\327\235\203y\330 !\262\202q\331 \210\332\333!\210r\333q\210\334 \210\335c\210\f\203\232\336c\210\337\340\341\f!\342#c\210eb\210)\343 \344\345\333\346\"!\210r\333q\210\347)\350d!\204\267\351 \210\352!\203\301\344!\210\210\353\354\355\"\354\355@\"\356 #\262\357\315\360\361\362!\363\"\316$\216\353\354\355\f\"A\"6\364\321\353\354\365\"\354\355\f\"\"\312\211\211\366\f@@&\262\367!\204 \370\371!\210\f\211\203)\211@A@\232\203\"\211@\262\347\262A\266\202\202\f\210\235\204L\372\312O\373\232\203W\315\372O\235\203W\315\372O\211\262\203Wrq\210\374!)\262*\375\f\"\262\204hABA\206oA@\262\f\376\232\203|\377\202\201HB?!\203\221\201I\375\f\"\f\"\201J \"\203\256\201JC\"\204\256\323\324\325#\262\201K\201L !\203\312D\201J\201M\")\203\317\314\"\201N\315\225\"\201O \357\315\201P\361\362!\201Q\"\201R$\216\201S\201K\201L !!\201S!\232\203\262)\266\312D\201J\201T\"\203\366\317\315\"\315\225\201J\201U\"\205.\326\314\"\211\203>\201N\315\224#\202F\201N\315\225\"\211E\201V=\204Y\201W\232\203g\201X\201Y!!\262\202\334E\201Z=\203z\201Y!\262\202\334E\201[=\203\215\201\\!\262\202\334\201O \357\315\201P\361\362!\201]\"\201R$\216\201J\201^\201_\201Y\201`F!!!P\201Y!\"\203\317\201Y!\315\225\312O\262\202\332\201X\201Y!!\262)\210\205\347\201aPQ\262\n\n\232\203\364\262 \266)\211\204F\n\206/G\204 \202/\201b1G\"0\202/\210\201c\201d\201eG!\"\210\201f\316!\210\312\201g\201h!\203B\320\201i\"\202C\211\262\210\367!\204P\312\262\203_\201j\201k\"\210\201l\"c\210\201f\315!\207" [org-link-abbrev-alist-local org-link-bracket-re org-link-angle-re org-link-plain-re org-stored-links truncate-lines current-window-configuration org-region-active-p region-beginning region-end nil org-in-regexp 1 0 2 match-string-no-properties read-string "Link: " org-link-unescape org-unbracket-string "<" ">" match-string ((4) (16)) org-link-complete-file org-link--fontify-links-to-this-file org-switch-to-buffer-other-window "*Org Links*" erase-buffer "Insert a link.\nUse TAB to complete link prefixes, then RET for type-specific completion support\n" "\nStored links are available with / or M-p/n (most recent with RET):\n\n" mapconcat org-link--prettify reverse "\n" selected-window select-window get-buffer-window visible t pos-visible-in-window-p org-fit-window-to-buffer window-live-p append mapcar car org-link-types make-byte-code "\301\300!\210\302\303!\207" vconcat vector [set-window-configuration kill-buffer "*Org Links*"] org-completing-read #[257 "\211\300P\207" [":"] 3 "\n\n(fn X)"] org-link--history org-string-nw-p user-error "No link selected" -1 ":" org-link--try-special-completion assoc (64) not org-link-abbrev-alist org-link--insert-history org-link-keep-stored-after-insertion org-ts-regexp case-fold-search org-link-file-path-type default-directory org-link-make-description-function identity delq string-match buffer-file-name buffer-base-buffer "\\`file:\\(.+?\\)::" substring-no-properties match-data "\301\300\302\"\207" [set-match-data evaporate] 3 file-truename "\\`\\(file\\|docview\\):" "::\\(.*\\)\\'" absolute (16) abbreviate-file-name expand-file-name noabbrev relative file-relative-name [set-match-data evaporate] "^" regexp-quote file-name-as-directory "::" (error) message "Can't get link description from %S" symbol-name sit-for called-interactively-p any "Description: " apply delete-region org-link-make-string] 25 (#$ . 51353) "P"]) #@279 Insert all links in `org-stored-links'. When a universal prefix, do not delete the links from `org-stored-links'. When `ARG' is a number, insert the last N link(s). `PRE' and `POST' are optional arguments to define a string to prepend or to append. (fn ARG &optional PRE POST) (defalias 'org-insert-all-links #[769 "\302\232\303!\206 \304\206\305\306\307\204\310\311!\202_<\204+Y\205_<\203:\211A\262\242\202?\211A\242\211\262\205_T\262c\210\312\307@A@\206W\313#\210c\210\202)\207" [org-stored-links org-link-keep-stored-after-insertion (4) copy-sequence "- " "\n" 1 nil message "No link to insert" org-insert-link ""] 13 (#$ . 57159) "P"]) #@62 Insert the last link stored in `org-stored-links'. (fn ARG) (defalias 'org-insert-last-stored-link #[257 "\300\301\302#\207" [org-insert-all-links "" "\n"] 5 (#$ . 57861) "p"]) #@106 Insert a link like Org mode does. This command can be called in any mode to insert a link in Org syntax. (defalias 'org-insert-link-global #[0 "\300 \210\301\302!\207" [org-load-modules-maybe org-run-like-in-org-mode org-insert-link] 2 (#$ . 58047) nil]) #@110 Find all radio targets in this file and update the regular expression. Also refresh fontification if needed. (defalias 'org-update-radio-target-regexp #[0 "\303\304\212\214~\210eb\210\305\306 \305\307#\2039\310u\210\311 \312!\313=\2035\314\315\"\211\235\203.\2021\211B\262\262\210\202 \211\262*\211\205I\316\317\320#Q\232?\205\263\204Y\202z\204a\202z\316\321\322\323\324\325  \"\326\"\327\330%D\320#Q\331\332!\203\252\333\212\334!\203\215\335!q\210\212\214~\210\211\206\226`b\210\306\305\307#\203\250\336\333\224!\210\202\230+\210\210\337\n>\205\263\340 \207" [org-target-link-regexp org-radio-target-regexp org-highlight-links "\\(?:^\\|[^[:alnum:]]\\|\\c|\\)\\(" "\\)\\(?:$\\|[^[:alnum:]]\\|\\c|\\)" nil re-search-forward t -1 org-element-context org-element-type radio-target org-element-property :value mapconcat #[257 "\300\301\302\303!\304\211%\207" [replace-regexp-in-string " +" "\\s-+" regexp-quote t] 7 "\n\n(fn X)"] "\\|" make-byte-code 257 "\211\300G\301G[O\207" vconcat vector [] 4 "\n\n(fn RE)" featurep org-element 1 markerp marker-buffer org-element-cache-refresh radio org-restart-font-lock] 13 (#$ . 58309) nil]) (byte-code "\300 \210\301\302!\207" [org-link-make-regexps provide ol] 2)