Gecko [ 122.154.134.11 ]

Name	Size	Permission
org-agenda.elc	214.7 KB	-rw-r--r--
org-archive.elc	11.75 KB	-rw-r--r--
org-attach.elc	14.21 KB	-rw-r--r--
org-bbdb.elc	7.37 KB	-rw-r--r--
org-bibtex.elc	4.13 KB	-rw-r--r--
org-clock.elc	35.05 KB	-rw-r--r--
org-colview.elc	41.45 KB	-rw-r--r--
org-compat.elc	7.48 KB	-rw-r--r--
org-exp.elc	149.66 KB	-rw-r--r--
org-export-latex.elc	44.23 KB	-rw-r--r--
org-faces.elc	20.18 KB	-rw-r--r--
org-footnote.elc	13.77 KB	-rw-r--r--
org-gnus.elc	5.74 KB	-rw-r--r--
org-id.elc	16.92 KB	-rw-r--r--
org-info.elc	1.68 KB	-rw-r--r--
org-install.elc	635 B	-rw-r--r--
org-irc.elc	5.89 KB	-rw-r--r--
org-jsinfo.elc	5.39 KB	-rw-r--r--
org-list.elc	32.5 KB	-rw-r--r--
org-mac-message.elc	2.27 KB	-rw-r--r--
org-macs.elc	7.83 KB	-rw-r--r--
org-mew.elc	2.92 KB	-rw-r--r--
org-mhe.elc	5.16 KB	-rw-r--r--
org-mouse.elc	32.83 KB	-rw-r--r--
org-plot.elc	10.28 KB	-rw-r--r--
org-publish.elc	20.43 KB	-rw-r--r--
org-remember.elc	31.7 KB	-rw-r--r--
org-rmail.elc	2.82 KB	-rw-r--r--
org-table.elc	136.62 KB	-rw-r--r--
org-timer.elc	7.61 KB	-rw-r--r--
org-vm.elc	2.91 KB	-rw-r--r--
org-w3m.elc	3.88 KB	-rw-r--r--
org-wl.elc	2.82 KB	-rw-r--r--
org.elc	505.8 KB	-rw-r--r--

Code Editor : org-id.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:45 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-id.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`org-id.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\207" [require org custom-declare-group org-id nil "Options concerning global entry identifiers in Org-mode." :tag "Org ID" :group] 8)
#@589 The method that should be used to create new IDs.

If `uuidgen' is available on the system, it will be used as the default method.
if not, the method `org' is used.
An ID will consist of the optional prefix specified in `org-id-prefix',
and a unique part created by the method this variable specifies.

Allowed values are:

org        Org's own internal method, using an encoding of the current time to
           microsecond accuracy, and optionally the current domain of the
           computer.  See the variable `org-id-include-domain'.

uuidgen    Call the external command uuidgen.
(custom-declare-variable 'org-id-method '(condition-case nil (if (string-match "\\`[-0-9a-fA-F]\\{36\\}\\'" (org-trim (shell-command-to-string "uuidgen"))) 'uuidgen 'org) (error 'org)) '(#$ . 802) :group 'org-id :type '(choice (const :tag "Org's internal method" org) (const :tag "external: uuidgen" uuidgen)))
#@216 The prefix for IDs.

This may be a string, or it can be nil to indicate that no prefix is required.
When a string, the string should have no space characters as IDs are expected
to have no space characters in them.
(custom-declare-variable 'org-id-prefix 'nil '(#$ . 1708) :group 'org-id :type '(choice (const :tag "No prefix") (string :tag "Prefix")))
#@434 Non-nil means, add the domain name to new IDs.
This ensures global uniqueness of IDs, and is also suggested by
RFC 2445 in combination with RFC 822.  This is only relevant if
`org-id-method' is `org'.  When uuidgen is used, the domain will never
be added.
The default is to not use this because we have no really good way to get
the true domain, and Org entries will normally not be shared with enough
people to make this necessary.
(custom-declare-variable 'org-id-include-domain 'nil '(#$ . 2068) :group 'org-id :type 'boolean)
#@452 Non-nil means, track IDs through files, so that links work globally.
This work by maintaining a hash table for IDs and writing this table
to disk when exiting Emacs.  Because of this, it works best if you use
a single Emacs process, not many.

When nil, IDs are not tracked.  Links to IDs will still work within
a buffer, but not if the entry is located in another file.
IDs can still be used if the entry with the id is in the same file as
the link.
(custom-declare-variable 'org-id-track-globally 't '(#$ . 2605) :group 'org-id :type 'boolean)
#@127 The file for remembering in which file an ID was defined.
This variable is only relevant when `org-id-track-globally' is set.
(custom-declare-variable 'org-id-locations-file '(convert-standard-filename "~/.emacs.d/.org-id-locations") '(#$ . 3158) :group 'org-id :type 'file)
#@123 List of files with IDs in those files.
Depending on `org-id-use-hash' this can also be a hash table mapping IDs
to files.
(defvar org-id-locations nil (#$ . 3440))
#@33 List of files that contain IDs.
(defvar org-id-files nil (#$ . 3610))
#@434 Files to be searched for IDs, besides the agenda files.
When Org reparses files to remake the list of files and IDs it is tracking,
it will normally scan the agenda files, the archives related to agenda files,
any files that are listed as ID containing in the current register, and
any Org-mode files currently visited by Emacs.
You can list additional files here.
This variable is only relevant when `org-id-track-globally' is set.
(custom-declare-variable 'org-id-extra-files ''org-agenda-text-search-extra-files '(#$ . 3687) :group 'org-id :type '(choice (symbol :tag "Variable") (repeat :tag "List of files" (file))))
#@263 Non-nil means, search also the archive files of agenda files for entries.
This is a possibility to reduce overhead, but it means that entries moved
to the archives can no longer be found by ID.
This variable is only relevant when `org-id-track-globally' is set.
(custom-declare-variable 'org-id-search-archives 't '(#$ . 4316) :group 'org-id :type 'boolean)
#@161 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.
(defalias 'org-id-get-create #[(&optional force) "\203\n�\301`\302\303#\210\304`\305\"\207" [force org-entry-put "ID" nil org-id-get create] 4 (#$ . 4681) "P"])
#@80 Copy the ID of the entry at point to the kill ring.
Create an ID if necessary.
(defalias 'org-id-copy #[nil "\300\301\302\303\"!\207" [kill-new org-id-get nil create] 4 (#$ . 5009) nil])
#@329 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.
(defalias 'org-id-get #[(&optional pom create prefix) "\304\305\"\211\203�	;\203�\306\307	\"\203�	\2024�\n\2033�\310!\311\305	#\210\312	\313\314 !\"\210	\2024�\315)\207" [pom id create prefix org-entry-get "ID" string-match "\\S-" org-id-new org-entry-put org-id-add-location buffer-file-name buffer-base-buffer nil] 5 (#$ . 5203)])
#@274 Use outline-path-completion to retrieve the ID of an entry.
TARGETS may be a setting for `org-refile-targets' to define the eligible
headlines.  When omitted, all headlines in all agenda files are
eligible.
It returns the ID of the entry.  If necessary, the ID is created.
(defalias 'org-id-get-with-outline-path-completion #[(&optional targets) "\206�\306\211\211@@)\203�\307\202�\310\311\312!\211\205(�\313 \314\f8\315\fA@!\223\316
\317\"
\320\211\223\210,\207" [targets org-refile-targets x org-refile-use-outline-path spos pom ((nil :maxlevel . 10)) file t org-refile-get-location "Entry: " make-marker 3 get-file-buffer org-id-get create nil] 5 (#$ . 5879)])
#@205 Use an outline-cycling interface to retrieve the ID of an entry.
This only finds entries in the current buffer, using `org-get-location'.
It returns the ID of the entry.  If necessary, the ID is created.
(defalias 'org-id-get-with-outline-drilling #[(&optional targets) "\303p\"\211\205�\304 	@\305\223\306\n\307\"\n\305\211\223\210*\207" [org-goto-help spos pom org-get-location make-marker nil org-id-get create] 5 (#$ . 6559)])
#@101 Switch to the buffer containing the entry with id ID.
Move the cursor to that entry in that buffer.
(defalias 'org-id-goto #[(id) "\302\303\"\211\204�\304\305\"\210\306\307	!!\210	b\210	\310\211\223\210\311 )\207" [id m org-id-find marker error "Cannot find entry with ID \"%s\"" switch-to-buffer marker-buffer nil org-show-context] 4 (#$ . 7001) "sID: "])
#@217 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.
(defalias 'org-id-find #[(id &optional markerp) "9\203\f�\305!\202�\247\203�\306!\307!\310\211\211\203'�\311\f#	\204<�\312 \210\307!\211\203<�\311\f#	+\207" [id where org-agenda-new-buffers file markerp symbol-name number-to-string org-id-find-id-file nil org-id-find-id-in-file org-id-update-id-locations] 5 (#$ . 7369)])
#@402 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".
(defalias 'org-id-new #[(&optional prefix) "\306=\203\n�\307\202�\206�	\310P\311\310\232\203�\307\312=\203+�\313\314\315!!\202Q�\316=\203M�\317\320 !
\205B�\321\322!\210\323\324 P\fP*\202Q�\325\326!\210\nP*\207" [prefix org-id-prefix unique org-id-method etime org-id-include-domain none "" ":" nil uuidgen org-trim shell-command-to-string "uuidgen" org org-id-reverse-string org-id-time-to-b36 require message "@" message-make-fqdn error "Invalid `org-id-method'" postfix] 3 (#$ . 7935)])
(defalias 'org-id-reverse-string #[(s) "\302\303\304	\305\")\237\306#\207" [s string mapconcat char-to-string append nil ""] 5])
#@76 Turn an integer between 0 and 61 into a single character 0..9, A..Z, a..z.
(defalias 'org-id-int-to-b36-one-digit #[(i) "\301W\203\n�\302\\\207\303W\203�\304\305\306#\207\307\310!\207" [i 10 48 36 + 97 -10 error "Larger that 35"] 4 (#$ . 8982)])
#@115 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.
(defalias 'org-id-b36-to-int-one-digit #[(i) ";\203	�\301!\302Y\203�\303X\203�\302Z\207\304Y\203+�\305X\203+�\304Z\306\\\207\307\310!\207" [i string-to-char 48 57 97 122 10 error "Invalid b36 letter"] 2 (#$ . 9240)])
#@65 Convert an integer to a base-36 number represented as a string.
(defalias 'org-id-int-to-b36 #[(i &optional length) "\303	\304V\203�\305\306\307	\310\"!!P	\310\245\211\202�\311\n\206!�\311]G\nW\2034�\312\nGZ\313\"P)\207" [s i length "" 0 char-to-string org-id-int-to-b36-one-digit mod 36 1 make-string 48] 6 (#$ . 9588)])
#@58 Convert a base-36 string into the corresponding integer.
(defalias 'org-id-b36-to-int #[(s) "\302\303\304	\"\210)\207" [r s 0 mapc #[(i) "\302_\303	!\\\211\207" [r i 36 org-id-b36-to-int-one-digit] 3]] 3 (#$ . 9928)])
#@130 Encode TIME as a 10-digit string.
This string holds the time to micro-second accuracy, and can be decoded
using `org-id-decode'.
(defalias 'org-id-time-to-b36 #[(&optional time) "\206�\301 \302@\303\"\302A@\303\"\302\3048\206�\305\303\"Q\207" [time current-time org-id-int-to-b36 4 2 0] 5 (#$ . 10157)])
#@202 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 the usual three-integer representation of time.
(defalias 'org-id-decode #[(id) "\304\211\211\305\306\"\211G\307U\203�@A@\202!�\304@\310	!\311	\312\313O!\311	\313\314O!\311	\314\315O!E\n	+B\207" [parts time prefix id nil org-split-string ":" 2 org-id-reverse-string org-id-b36-to-int 0 4 8 12] 7 (#$ . 10475)])
#@319 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 these files instead.
When CHECK is given, prepare detailed information about duplicate IDs.
(defalias 'org-id-update-id-locations #[(&optional files) "\204�\306\307!\207	\206&�\310\311\312\n\"9\203�J\202�\313\314\315\316\317 \"\"\f$\314\211\211\211\211\211\211\211\211\320&'()*+,-.\211G,	\211A@\211-\203\356�\321\322,	GZ,-$\210\323-!+\324-!\203H�+&\235\204H�+&B&\314*r\325-!q\210\212\214~\210eb\210\326\327\314\312#\203\336�\330\314/0\3310/\"*\211'(\235\203\315�\321\332'\313\314\315\333)\"\"@#\210
\320U\203\307�\334 \210\335\336!\210
T\202\215�'(B('*B*\202\215�\337-!*B)B)+\202H�\340.!\210\314.)1\315\3411\"\342 \210\3431!1
\320V\203\321\344
\"\210\202\321\345\fG\"\2101.\207" [org-id-track-globally files org-id-search-archives org-id-extra-files org-id-files ndup error "Please turn on `org-id-track-globally' if you want to track IDs." append org-agenda-files t delq nil mapcar #[(b) "rq\210	\302=\205\f�\303 )\207" [b major-mode org-mode buffer-file-name] 2] buffer-list 0 message "Finding ID locations (%d/%d files): %s" file-truename file-exists-p org-get-agenda-file-buffer re-search-forward "^[ 	]*:ID:[ 	]+\$\\S-+\$[ 	]*$" 1 match-string-no-properties "Duplicate ID \"%s\", also in file %s" #[(x) "	A\235\205	�	@\207" [id x] 2] ding sit-for 2 abbreviate-file-name org-release-buffers car org-id-locations-save org-id-alist-to-hash "WARNING: %d duplicate IDs found, check *Messages* buffer" "%d unique files scanned for IDs" seen id found reg ids tfile nfiles file org-agenda-new-buffers string num org-id-locations] 12 (#$ . 10961) nil])
#@53 Save `org-id-locations' in `org-id-locations-file'.
(defalias 'org-id-locations-save #[nil "\2052�\306	!\203�\307	!\202�	\310\311\312!!\313\216r\fq\210\314\np\")r\fq\210\315\316\211
\316\317%\210-\207" [org-id-track-globally org-id-locations out org-id-locations-file #1=#:temp-buffer #2=#:temp-file hash-table-p org-id-hash-to-alist get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) print write-region nil 0] 7 (#$ . 12813)])
#@45 Read the data from `org-id-locations-file'.
(defalias 'org-id-locations-load #[nil "\304	\205 �\305\306!r\nq\210\307\216\304\310\311\217\210+\312\313\"\314!\211\207" [org-id-locations org-id-track-globally #1=#:temp-buffer org-id-files nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) (byte-code "\302!\210eb\210\303p!\302\207" [org-id-locations-file org-id-locations insert-file-contents-literally read] 2) ((error (message "Could not read org-id-values from %s. Setting it to nil." org-id-locations-file))) mapcar car org-id-alist-to-hash] 3 (#$ . 13341)])
#@64 Add the ID with location FILE to the database of ID locations.
(defalias 'org-id-add-location #[(id file) "\205!�	\205!�\n\205!�\204�\304 \210\305	\306\n!#\210\307\310\306\n!\"\207" [org-id-track-globally id file org-id-locations org-id-locations-load puthash abbreviate-file-name add-to-list org-id-files] 4 (#$ . 13979)])
(add-hook 'kill-emacs-hook 'org-id-locations-save)
#@73 Turn an org-id hash into an alist, so that it can be written to a file.
(defalias 'org-id-hash-to-alist #[(hash) "\303\211\304\305\n\"\210	*\207" [x res hash nil maphash #[(k v) "	\235\211\203�\n\nAB\241\207D	B\211\207" [v res x k] 3]] 3 (#$ . 14364)])
#@49 Turn an org-id location list into a hash table.
(defalias 'org-id-alist-to-hash #[(list) "\303\304\305\306\307\310\311\312\"\"$\313\314\315\"\210\n*\207" [list f res make-hash-table :test equal :size apply + mapcar length nil mapc #[(x) "@\302\303A\"\207" [x f mapc #[(i) "\303	\n#\207" [i f res puthash] 4]] 3]] 9 (#$ . 14632)])
#@58 Update any IDs in TXT and assign BUFFER-OR-FILE to them.
(defalias 'org-id-paste-tracker #[(txt &optional buffer-or-file) "\205C�\306 \307\216\n\206�p\310\n!\203!�\311\n!\206�\n\312\n!\n\205B�\313\n!\314\315\316
#\205A�\314\225\317\320\321
\"\f\"\210\202+�**\207" [org-id-track-globally save-match-data-internal buffer-or-file s fname txt match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) bufferp buffer-base-buffer buffer-file-name abbreviate-file-name 0 string-match "^[ 	]*:ID:[ 	]+\$[^ 	\n
]+\$" org-id-add-location match-string 1] 4 (#$ . 14976)])
#@65 Query the id database for the file in which this ID is located.
(defalias 'org-id-find-id-file #[(id) "\204�\302 \210\303	\"\206�\304\305p!\206�p!\207" [org-id-locations id org-id-locations-load gethash buffer-file-name buffer-base-buffer] 3 (#$ . 15595)])
#@257 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.
(defalias 'org-id-find-id-in-file #[(id file &optional markerp) "\306\211\211\204�\306\2028�\307!\204�\306\2028�r\310!\211q\210\311\f!\211\2057�
\2034�\312 	\223\2027�B)+\207" [pos buf org-agenda-new-buffers file id markerp nil file-exists-p org-get-agenda-file-buffer org-find-entry-with-id make-marker] 4 (#$ . 15864)])
#@51 Store a link to the current entry, using it's ID.
(defalias 'org-id-store-link #[nil "\303\304\305 \"\212\306\307!\210\310	!\203\"�\311\225\203�\312\311!\202�\312\313!\206#�)\314\315\316\n\317\320&\210*\207" [link org-complex-heading-regexp desc org-make-link "id:" org-id-get-create org-back-to-heading t looking-at 4 match-string 0 org-store-link-props :link :description :type "id"] 7 (#$ . 16461) nil])
#@29 Go to the entry with id ID.
(defalias 'org-id-open #[(id) "\302 \210\303\304\"\211\204�\305\306\"\210p\307	!\232\204�\310\307	!!\210	b\210	\311\211\223\210\312 )\207" [id m org-mark-ring-push org-id-find marker error "Cannot find entry with ID \"%s\"" marker-buffer switch-to-buffer-other-window nil org-show-context] 4 (#$ . 16882)])
(byte-code "\300\301\302\"\210\303\304!\207" [org-add-link-type "id" org-id-open provide org-id] 3)

${this.title}

Code Editor : org-id.elc