Current File : //usr/local/share/emacs/27.2/lisp/org/org-id.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\301&\210\313\314\315\316\317DD\320\312\321\312\305\322\323\324\325& \210\313\326\315\316\327DD\330\312\305\324\331&\210\313\332\315\316\333DD\334\312\305\324\335&\210\313\336\315\316\337DD\340\312\305\324\341&\210\313\342\315\316\343DD\344\312\305\324\345&\210\313\346\315\316\347DD\350\312\305\324\345&\210\313\351\315\316\352DD\353\312\305\324\354&\210\313\355\315\316\356DD\357\312\305\324\345\360\361& \207" [require org org-refile ol custom-declare-group org-id nil "Options concerning global entry identifiers in Org mode." :tag "Org ID" :group custom-declare-variable org-id-link-to-org-use-id funcall function #[0 "\300\207" [nil] 1] "Non-nil means storing a link to an Org file will use entry IDs.\n\\<org-mode-map>\nThe variable can have the following values:\n\nt Create an ID if needed to make a link to the current entry.\n\ncreate-if-interactive\n If `org-store-link' is called directly (interactively, as a user\n command), do create an ID to support the link. But when doing the\n job for capture, only use the ID if it already exists. The\n purpose of this setting is to avoid proliferation of unwanted\n IDs, just because you happen to be in an Org file when you\n call `org-capture' that automatically and preemptively creates a\n link. If you do want to get an ID link in a capture template to\n an entry not having an ID, create it first by explicitly creating\n a link to it, using `\\[org-store-link]' first.\n\ncreate-if-interactive-and-no-custom-id\n Like create-if-interactive, but do not create an ID if there is\n a CUSTOM_ID property defined in the entry.\n\nuse-existing\n Use existing ID, do not create one.\n\nnil Never use an ID to make a link, instead link using a text search for\n the headline text." org-link-store :version "24.3" :type (choice (const :tag "Create ID to make link" t) (const :tag "Create if storing link interactively" create-if-interactive) (const :tag "Create if storing link interactively and no CUSTOM_ID is present" create-if-interactive-and-no-custom-id) (const :tag "Only use existing" use-existing) (const :tag "Do not use ID to create link" nil)) org-id-uuid-program #[0 "\300\207" [#1="uuidgen"] 1 #1#] "The uuidgen program." string org-id-method #[0 "\300\207" [uuid] 1] "The method that should be used to create new IDs.\n\nAn ID will consist of the optional prefix specified in `org-id-prefix',\nand a unique part created by the method this variable specifies.\n\nAllowed values are:\n\norg Org's own internal method, using an encoding of the current time to\n microsecond accuracy, and optionally the current domain of the\n computer. See the variable `org-id-include-domain'.\n\nuuid Create random (version 4) UUIDs. If the program defined in\n `org-id-uuid-program' is available it is used to create the ID.\n Otherwise an internal functions is used.\n\nts Create ID's based on ISO8601 timestamps (without separators\n and without timezone, local time). Precision down to seconds." (choice (const :tag "Org's internal method" org) (const :tag "external: uuidgen" uuid) (const :tag "ISO8601 timestamp" ts)) org-id-prefix #[0 "\300\207" [nil] 1] "The prefix for IDs.\n\nThis may be a string, or it can be nil to indicate that no prefix is required.\nWhen a string, the string should have no space characters as IDs are expected\nto have no space characters in them." (choice (const :tag "No prefix") (string :tag "Prefix")) org-id-include-domain #[0 "\300\207" [nil] 1] "Non-nil means add the domain name to new IDs.\nThis ensures global uniqueness of IDs, and is also suggested by\nthe relevant RFCs. This is relevant only if `org-id-method' is\n`org' or `ts'. When uuidgen is used, the domain will never be added.\n\nThe default is to not use this because we have no really good way to get\nthe true domain, and Org entries will normally not be shared with enough\npeople to make this necessary." boolean org-id-track-globally #[0 "\300\207" [t] 1] "Non-nil means track IDs through files, so that links work globally.\nThis work by maintaining a hash table for IDs and writing this table\nto disk when exiting Emacs. Because of this, it works best if you use\na single Emacs process, not many.\n\nWhen nil, IDs are not tracked. Links to IDs will still work within\na buffer, but not if the entry is located in another file.\nIDs can still be used if the entry with the id is in the same file as\nthe link." org-id-locations-file #[0 "\301\302P!\207" [user-emacs-directory convert-standard-filename ".org-id-locations"] 3] "The file for remembering in which file an ID was defined.\nThis variable is only relevant when `org-id-track-globally' is set." file org-id-locations-file-relative #[0 "\300\207" [nil] 1] "Determines if org-id-locations should be stored as relative links.\nNon-nil means that links to locations are stored as links\nrelative to the location of where `org-id-locations-file' is\nstored.\n\nNil means to store absolute paths to files.\n\nThis customization is useful when folders are shared across\nsystems but mounted at different roots. Relative path to\n`org-id-locations-file' still has to be maintained across\nsystems." :package-version (Org . "9.3")] 12)
#@40 List of files with IDs in those files.
(defvar org-id-locations nil (#$ . 5802))
#@33 List of files that contain IDs.
(defvar org-id-files nil (#$ . 5889))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable org-id-extra-files funcall function #[0 "\300\207" [org-agenda-text-search-extra-files] 1] "Files to be searched for IDs, besides the agenda files.\nWhen Org reparses files to remake the list of files and IDs it is tracking,\nit will normally scan the agenda files, the archives related to agenda files,\nany files that are listed as ID containing in the current register, and\nany Org file currently visited by Emacs.\nYou can list additional files here.\nThis variable is only relevant when `org-id-track-globally' is set." :group org-id :type (choice (symbol :tag "Variable") (repeat :tag "List of files" (file))) org-id-search-archives #[0 "\300\207" [t] 1] "Non-nil means search also the archive files of agenda files for entries.\nThis is a possibility to reduce overhead, but it means that entries moved\nto the archives can no longer be found by ID.\nThis variable is only relevant when `org-id-track-globally' is set." boolean] 8)
#@183 Create an ID for the current entry and return it.
If the entry already has an ID, just return it.
With optional argument FORCE, force the creation of a new ID.
(fn &optional FORCE)
(defalias 'org-id-get-create #[256 "\211\203\n \300`\301\302#\210\303`\304\"\207" [org-entry-put "ID" nil org-id-get create] 5 (#$ . 7041) "P"])
#@80 Copy the ID of the entry at point to the kill ring.
Create an ID if necessary.
(defalias 'org-id-copy #[0 "\300\301\302\303\"!\207" [org-kill-new org-id-get nil create] 4 (#$ . 7374) nil])
#@175 Tell `org-id-get' to use this as the file name when creating an ID.
This is useful when working with contents in a temporary buffer
that will be copied back to the original.
(defvar org-id-overriding-file-name nil (#$ . 7570))
#@363 Get the ID property of the entry at point-or-marker POM.
If POM is nil, refer to the entry at point.
If the entry does not have an ID, the function returns nil.
However, when CREATE is non-nil, create an ID if none is present already.
PREFIX will be passed through to `org-id-new'.
In any case, the ID of the entry is returned.
(fn &optional POM CREATE PREFIX)
(defalias 'org-id-get #[768 "\212\301!\203
\302!q\210\212\214~\210\211\206 `b\210\303\304\305\"\211\2030 \211;\2030 \306\307\"\2030 \211\202L \205L \310!\262\311\305#\210\312\206I \313\314 !\"\210\211\262+\207" [org-id-overriding-file-name markerp marker-buffer org-entry-get nil "ID" string-match "\\S-" org-id-new org-entry-put org-id-add-location buffer-file-name buffer-base-buffer] 9 (#$ . 7804)])
#@307 Use `outline-path-completion' to retrieve the ID of an entry.
TARGETS may be a setting for `org-refile-targets' to define
eligible headlines. When omitted, all headlines in the current
file are eligible. This function returns the ID of the entry.
If necessary, the ID is created.
(fn &optional TARGETS)
(defalias 'org-id-get-with-outline-path-completion #[256 "\211\206 \303\211@@\203 \304\202 \305\306\307\310!\211\205& \311 \3128\313A@!\223\314\315\"\306\211\223\210+\207" [org-refile-targets org-refile-use-outline-path org-refile-target-verify-function ((nil :maxlevel . 10)) file t nil org-refile-get-location "Entry" make-marker 3 get-file-buffer org-id-get create] 8 (#$ . 8590)])
#@206 Use an outline-cycling interface to retrieve the ID of an entry.
This only finds entries in the current buffer, using `org-goto-location'.
It returns the ID of the entry. If necessary, the ID is created.
(defalias 'org-id-get-with-outline-drilling #[0 "\300 \211\205\f \301 @\302\223\303\304\"\302\211\223\210\207" [org-goto-location make-marker nil org-id-get create] 6 (#$ . 9298)])
#@110 Switch to the buffer containing the entry with id ID.
Move the cursor to that entry in that buffer.
(fn ID)
(defalias 'org-id-goto #[257 "\300\301\"\211\204
\302\303\"\210\304\305!!\210\211b\210\211\306\211\223\210\307 \207" [org-id-find marker error "Cannot find entry with ID \"%s\"" pop-to-buffer-same-window marker-buffer nil org-show-context] 5 (#$ . 9694) "sID: "])
#@244 Return the location of the entry with the id ID.
The return value is a cons cell (file-name . position), or nil
if there is no entry with that ID.
With optional argument MARKERP, return the position as a new marker.
(fn ID &optional MARKERP)
(defalias 'org-id-find #[513 "9\203
\301!\262\202 \247\203 \302!\262\303!\304\211\203* \305#\262\211\204D \306\304\307\"\210\303!\262\203D \305#\262)\207" [org-agenda-new-buffers symbol-name number-to-string org-id-find-id-file nil org-id-find-id-in-file org-id-update-id-locations t] 9 (#$ . 10078)])
#@425 Create a new globally unique ID.
An ID consists of two parts separated by a colon:
- a prefix
- a unique part that will be created according to `org-id-method'.
PREFIX can specify the prefix, the default is given by the variable
`org-id-prefix'. However, if PREFIX is the symbol `none', don't use any
prefix even if `org-id-prefix' specifies one.
So a typical ID could look like "Org:4nd91V40HI".
(fn &optional PREFIX)
(defalias 'org-id-new #[256 "\211\304=\203\n \305\202 \211\206 \306P\307\306\232\203 \305\262 \310\267\202w \311\n!\307\312\203. \313\202/ \314\305\312\315\305##\266\202\262\316!\204{ \317 \262\202{ \320\321 ! \205X \322\323!\210\324\325 PP\266\203\202{ \326\327! \205o \322\323!\210\324\325 PP\266\203\202{ \330\331!\210P\207" [org-id-prefix org-id-method org-id-uuid-program org-id-include-domain none "" ":" nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (uuidgen 33 uuid 33 org 72 ts 96)) shell-command-to-string replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "[ \n
]+\\'" org-uuidgen-p org-id-uuid org-reverse-string org-id-time-to-b36 require message "@" message-make-fqdn format-time-string "%Y%m%dT%H%M%S.%6N" error "Invalid `org-id-method'"] 12 (#$ . 10656)])
#@45 Return string with random (version 4) UUID.
(defalias 'org-id-uuid #[0 "\301\302\303\304 \305\306\307\"\262\310 \311 \312 \313 &!\302\314\315\316\317#\315\317\320#\315\321\322#\302\323\324\325\326\327\330\315
\322\331#\322\"\"\"\"\315\331\332#\315\332\333#&\207" [user-mail-address md5 format "%s%s%s%s%s%s%s" random nil time-convert list user-uid emacs-pid user-full-name recent-keys "%s-%s-4%s-%s%s-%s" substring 0 8 12 13 16 "%x" logior 128 logand 191 string-to-number 18 20 32] 17 (#$ . 11928)])
#@84 Turn an integer between 0 and 61 into a single character 0..9, A..Z, a..z.
(fn I)
(defalias 'org-id-int-to-b36-one-digit #[257 "\211\300W\203\n \301\\\207\211\302W\203 \303\304\305#\207\306\307!\207" [10 48 36 + 97 -10 error "Larger that 35"] 5 (#$ . 12447)])
#@123 Turn a character 0..9, A..Z, a..z into a number 0..61.
The input I may be a character, or a single-letter string.
(fn I)
(defalias 'org-id-b36-to-int-one-digit #[257 "\211;\203\n \300!\262\211\301Y\203 \211\302X\203 \211\301Z\207\211\303Y\203, \211\304X\203, \211\303Z\305\\\207\306\307!\207" [string-to-char 48 57 97 122 10 error "Invalid b36 letter"] 3 (#$ . 12718)])
#@90 Convert an integer to a base-36 number represented as a string.
(fn I &optional LENGTH)
(defalias 'org-id-int-to-b36 #[513 "\300\301V\203 \302\303\304\305\"!!P\262\305\245\262\202 \306\206! \306]\262\211GW\2036 \307GZ\310\"P\262\211\207" ["" 0 char-to-string org-id-int-to-b36-one-digit mod 36 1 make-string 48] 8 (#$ . 13099)])
#@66 Convert a base-36 string into the corresponding integer.
(fn S)
(defalias 'org-id-b36-to-int #[257 "\300C\301\302\303\304\305\306!\307\"\310\311%\"\210\211\242\207" [0 mapc make-byte-code 257 "\300\211\242\301_\302!\\\240\207" vconcat vector [36 org-id-b36-to-int-one-digit] 5 "\n\n(fn I)"] 9 (#$ . 13450)])
#@151 Encode TIME as a 12-digit string.
This string holds the time to micro-second accuracy, and can be decoded
using `org-id-decode'.
(fn &optional TIME)
(defalias 'org-id-time-to-b36 #[256 "\300\301\302\"\262\262\303@\304\"\303A@\304\"\303\3058\304\"Q\207" [nil time-convert list org-id-int-to-b36 4 2] 6 (#$ . 13770)])
#@195 Split ID into the prefix and the time value that was used to create it.
The return value is (prefix . time) where PREFIX is nil or a string,
and TIME is a Lisp time value (HI LO USEC).
(fn ID)
(defalias 'org-id-decode #[257 "\300\211\211\301\302\"\262\211G\303U\203 \211@\262\211A@\262\202# \300\262\211@\262\304!\262\305\306\307\310#!\305\306\310\311#!\305\306\311\312#!E\262B\207" [nil org-split-string ":" 2 org-reverse-string org-id-b36-to-int substring 0 4 8 12] 11 (#$ . 14100)])
#@274 Scan relevant files for IDs.
Store the relation between files and corresponding IDs.
This will scan all agenda files, all associated archives, and all
files currently mentioned in `org-id-locations'.
When FILES is given, scan also these files.
(fn &optional FILES SILENT)
(defalias 'org-id-update-id-locations #[512 "\204 \306\307!\210\310\311\312\313\314\315\316\317\320\n\" 9\203 J\202 \f\n$\"\"!\211G\321\310\322\211\211\203\313 \211@\323!\203\304 \204J T\262\324\325 $\210r\326\320\"q\210\310\320 \327\212\330!\203a \331!q\210\212\214~\210\211\206j `b\210\332\310\320#\203\205 \333 \203l \334`\335\"B\262\202l \203\277 \336!B B\211\203\276 \211@\211 \235\204\250 \211 B\262 \202\267 \f\204\267 \324\337\"\210T\262A\266\202\202\222 \210+\210)\210)A\266\202\202- \210\312\340 \"\341 \210\342 !\204\350 \322V\203\350 \343\344\"\210\324\345\fG\346 !$\210 \207" [org-id-track-globally org-id-locations org-id-search-archives org-id-extra-files org-id-files case-fold-search error "Please turn on `org-id-track-globally' if you want to track IDs" nil delete-dups mapcar file-truename cl-remove-if-not stringp append org-agenda-files t "^[ ]*:ID: +[^ ]" 0 file-exists-p message "Finding ID locations (%d/%d files): %s" find-file-noselect 1 markerp marker-buffer re-search-forward org-at-property-p org-entry-get "ID" abbreviate-file-name "Duplicate ID %S" car org-id-locations-save org-id-alist-to-hash warn "WARNING: %d duplicate IDs found, check *Messages* buffer" "%d files scanned, %d files contains IDs, and %d IDs found." hash-table-count] 17 (#$ . 14609) nil])
#@53 Save `org-id-locations' in `org-id-locations-file'.
(defalias 'org-id-locations-save #[0 "\205Q \205Q \306 !\203 \307 !\202 \n\203# \211\203# \310\311\"\262 \312\313!\314\315\316\317\320!\321\"\322$\216r\211q\210\323\211 \324p\"+rq\210\325\323\211\323\315%\210*\266\202\262\207" [org-id-track-globally org-id-locations org-id-locations-file-relative org-id-locations-file print-length print-level hash-table-p org-id-hash-to-alist mapcar #[257 "\301@!\203 \302@\303!\"AB\207\207" [org-id-locations-file file-name-absolute-p file-relative-name file-name-directory] 5 "\n\n(fn ITEM)"] generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil print write-region] 10 (#$ . 16228)])
#@45 Read the data from `org-id-locations-file'.
(defalias 'org-id-locations-load #[0 "\304 \205P \305\306!r\211q\210\307\310\311\312\313!\314\"\315$\216\3161> \317\n!\210\320p!\321\n!\322\307\323\324\312\313!\325\"\326\327%\"\2620\202C \210\330\331\n\"\210*\210\332\333\"\334!\211\207" [org-id-locations org-id-track-globally org-id-locations-file org-id-files nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) insert-file-contents read file-name-directory mapc 257 "\301@!?\205 \211\211\302@\300\"\240\262\207" [file-name-absolute-p expand-file-name] 6 "\n\n(fn ITEM)" message "Could not read org-id-values from %s. Setting it to nil." mapcar car org-id-alist-to-hash] 9 (#$ . 17003)])
#@78 Add the ID with location FILE to the database of ID locations.
(fn ID FILE)
(defalias 'org-id-add-location #[514 "\211\204 \303\304!\210\305!\2056 \2056 \204 \306 \210\307 #\210\211\n\235?\2056 \211\n\235\2031 \n\2026 \211\nB\211\207" [org-id-track-globally org-id-locations org-id-files error "bug: org-id-get expects a file-visiting buffer" abbreviate-file-name org-id-locations-load puthash] 7 (#$ . 17791)])
(byte-code "\204 \301\302\303\"\210\301\207" [noninteractive add-hook kill-emacs-hook org-id-locations-save] 3)
#@84 Turn an org-id hash into an alist, so that it can be written to a file.
(fn HASH)
(defalias 'org-id-hash-to-alist #[257 "\300C\300C\301\302\303\304\305\306\"\307\"\310\311%\"\210\242\207" [nil maphash make-byte-code 514 "\301\302\300\242\"\240\203 \301\242\301\242AB\241\207\300D\300\242B\240\207" vconcat vector [assoc] 6 "\n\n(fn K V)"] 11 (#$ . 18333)])
#@60 Turn an org-id location list into a hash table.
(fn LIST)
(defalias 'org-id-alist-to-hash #[257 "\300\301\302\303\304\305\306\307\"\"$\310C\311\312\313\314\315\316\"\317\"\320\321%\"\210\207" [make-hash-table :test equal :size apply + mapcar length nil mapc make-byte-code 257 "\301@\240\210\302\303\304\305\306\307\300\301\"\310\"\311\312%A\"\207" vconcat vector [mapc make-byte-code 257 "\302\301\242\300#\207" vconcat vector [puthash] 5 "\n\n(fn I)"] 9 "\n\n(fn X)"] 11 (#$ . 18708)])
#@93 Update any IDs in TXT and assign BUFFER-OR-FILE to them.
(fn TXT &optional BUFFER-OR-FILE)
(defalias 'org-id-paste-tracker #[513 "\205S \301 \302\303\304\305\306!\307\"\310$\216\206 p\262\311!\203- \312!\206& \262\313!\262\205P \314!\303\315\316#\205N \303\225\262\317\320\321\"\"\210\2025 \266\202)\262\207" [org-id-track-globally match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 bufferp buffer-base-buffer buffer-file-name abbreviate-file-name string-match "^[ ]*:ID:[ ]+\\([^ \n
]+\\)" org-id-add-location match-string 1] 9 (#$ . 19214)])
#@74 Query the id database for the file in which this ID is located.
(fn ID)
(defalias 'org-id-find-id-file #[257 "\204 \301 \210\203 \302!\203 \303\"\206! \304\305p!\206 p!\207" [org-id-locations org-id-locations-load hash-table-p gethash buffer-file-name buffer-base-buffer] 4 (#$ . 19831)])
#@289 Return the position of the entry ID in FILE.
If that files does not exist, or if it does not contain this ID,
return nil.
The position is returned as a cons cell (file-name . position). With
optional argument MARKERP, return the position as a new marker.
(fn ID FILE &optional MARKERP)
(defalias 'org-id-find-id-in-file #[770 "\301\211\211\204
\301\202: \302!\204 \301\202: r\303!\211\262q\210\304!\262\211\2059 \2036 \305 \223\2029 B))\207" [org-agenda-new-buffers nil file-exists-p org-get-agenda-file-buffer org-find-entry-with-id make-marker] 9 (#$ . 20137)])
#@50 Store a link to the current entry, using its ID.
(defalias 'org-id-store-link #[0 "\302\303 !\205M \304\305!\205M \306\307 P\310\212\311\312!\210\313 \203& \314\302\303 !!\206> \315 !\203= \316\225\2037 \317\316!\202: \317\320!\206> \211)\321\322\323\324\325&\210)\266\202\207" [case-fold-search org-complex-heading-regexp buffer-file-name buffer-base-buffer derived-mode-p org-mode "id:" org-id-get-create nil org-back-to-heading-or-point-min t org-before-first-heading-p file-name-nondirectory looking-at 4 match-string 0 org-link-store-props :link :description :type "id"] 9 (#$ . 20725) nil])
#@40 Go to the entry with id ID.
(fn ID _)
(defalias 'org-id-open #[514 "\301 \210\302\303\"\304\204 \305\306\"\210\307\236A\310\236A\206 \311\262p\312!\232\204, \211\312!!\210b\210\304\211\223\210\313 \207" [org-link-frame-setup org-mark-ring-push org-id-find marker nil error "Cannot find entry with ID \"%s\"" file ((find-file . switch-to-buffer) (find-file-other-window . switch-to-buffer-other-window) (find-file-other-frame . switch-to-buffer-other-frame)) switch-to-buffer-other-window marker-buffer org-show-context] 7 (#$ . 21333)])
(byte-code "\300\301\302\303#\210\304\305!\207" [org-link-set-parameters "id" :follow org-id-open provide org-id] 4)
Mini Shell