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-bbdb.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:41 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-bbdb.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-bbdb.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require org custom-declare-group org-bbdb-anniversaries nil "Customizations for including anniversaries from BBDB into Agenda." :group org-bbdb] 6)
#@28 Default anniversary class.
(custom-declare-variable 'org-bbdb-default-anniversary-format '"birthday" '(#$ . 816) :type 'string :group 'org-bbdb-anniversaries :require 'bbdb)
#@635 How different types of anniversaries should be formatted.
An alist of elements (STRING . FORMAT) where STRING is the name of an
anniversary class and format is either:
1) A format string with the following substitutions (in order):
    * the name of the record containing this anniversary
    * the number of years
    * an ordinal suffix (st, nd, rd, th) for the year

2) A function to be called with three arguments: NAME YEARS SUFFIX
   (string int string) returning a string for the diary or nil.

3) An Emacs Lisp form that should evaluate to a string (or nil) in the
   scope of variables NAME, YEARS and SUFFIX (among others).
(custom-declare-variable 'org-bbdb-anniversary-format-alist ''(("birthday" lambda (name years suffix) (concat "Birthday: [[bbdb:" name "][" name " (" (number-to-string years) suffix ")]]")) ("wedding" lambda (name years suffix) (concat "[[bbdb:" name "][" name "'s " (number-to-string years) suffix " wedding anniversary]]"))) '(#$ . 997) :type 'sexp :group 'org-bbdb-anniversaries :require 'bbdb)
#@446 The BBDB field which contains anniversaries.
The anniversaries are stored in the following format

YYYY-MM-DD Class-or-Format-String

where class is one of the customized classes for anniversaries;
birthday and wedding are predefined.  Format-String can take three
substitutions 1) the name of the record containing this
anniversary, 2) the number of years, and 3) an ordinal suffix for
the year.

Multiple anniversaries can be separated by \n.
(custom-declare-variable 'org-bbdb-anniversary-field ''anniversary '(#$ . 2036) :type 'symbol :group 'org-bbdb-anniversaries :require 'bbdb)
#@201 How to retrieve `month date year' from the anniversary field.

Customize if you have already filled your BBDB with dates
different from YYYY-MM-DD.  The function must return a list (month
date year).
(custom-declare-variable 'org-bbdb-extract-date-fun ''org-bbdb-anniv-extract-date '(#$ . 2629) :type 'function :group 'org-bbdb-anniversaries :require 'bbdb)
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [org-add-link-type "bbdb" org-bbdb-open org-bbdb-export add-hook org-store-link-functions org-bbdb-store-link] 4)
#@40 Store a link to a BBDB database entry.
(defalias 'org-bbdb-store-link #[nil "\304=\205&�\305\306 !\307\306 \302\"\310\311	\"\312\313\314\315	\316\n\317\320	&\n\210+\207" [major-mode name company link bbdb-mode bbdb-record-name bbdb-current-record bbdb-record-getprop org-make-link "bbdb:" org-store-link-props :type "bbdb" :name :company :link :description] 11 (#$ . 3160)])
#@183 Create the export version of a BBDB link specified by PATH or DESC.
If exporting to either HTML or LaTeX FORMAT the link will be
italicised, in all other cases it is left unchanged.
(defalias 'org-bbdb-export #[(path desc format) "\303=\203�\300\304	\206
�\n\"\207\305=\203�\300\306	\206�\n\"\207	\206#�\n\207" [format desc path html "<i>%s</i>" latex "\\textit{%s}"] 3 (#$ . 3548)])
#@29 Follow a BBDB link to NAME.
(defalias 'org-bbdb-open #[(name) "\303\304!\210?\305\306\307\215*\207" [debug-on-error bbdb-electric-p inhibit-redisplay require bbdb nil exit (byte-code "\301\302\303Q\304\"\210\305\306\307\310!!W\203�\311\312\304\"\210\313\302\303Q\304\"\210\305\306\307\310!!W\203.�\311\312\304\"\210\301\304\"\210\305\306\307\310!!W\203B�\311\312\304\"\210\313\304\"\210\305\306\307\310!!W\203V�\311\312\304\"\210\314\304\"\210\306\307\310!!\305U\205n�\315\316\310!!\210\317\320!\207" [name bbdb-name "\\`" "\\'" nil 0 buffer-size get-buffer "*BBDB*" throw exit bbdb-company bbdb delete-window get-buffer-window error "No matching BBDB record"] 4)] 2 (#$ . 3943)])
#@94 Convert YYYY-MM-DD to (month date year).
Argument TIME-STR is the value retrieved from BBDB.
(defalias 'org-bbdb-anniv-extract-date #[(time-str) "\305\306\"\211@	A@\307	8\310!\310\f!\310\n!E,\207" [time-str #1=#:--cl-var-- y m d bbdb-split "-" 2 string-to-number] 5 (#$ . 4639)])
#@102 Split multiple entries in the BBDB anniversary field.
Argument STR is the anniversary field in BBDB.
(defalias 'org-bbdb-anniv-split #[(str) "\302\303\"\211\203�\304	O\305	\306O!D\202�\306D)\207" [str pos string-match "[ 	]" 0 bbdb-string-trim nil] 6 (#$ . 4932)])
#@91 A hash holding anniversaries extracted from BBDB.
The hash table is created on first use.
(defvar org-bbdb-anniv-hash nil (#$ . 5210))
#@72 This is non-nil if BBDB has been updated since we last built the hash.
(defvar org-bbdb-updated-p t (#$ . 5351))
#@145 Create a hash with anniversaries extracted from BBDB, for fast access.
The anniversaries are assumed to be stored `org-bbdb-anniversary-field'.
(defalias 'org-bbdb-make-anniv-hash #[nil "\306\211\211\307!\210\310 \306\211\203t�
@\311\f\"\211\203m�\312\313\"\203m�\314\211A@!\n@!\211@A@\3158\316D\"\317D\320\f!\n\211A@)E	B#\210,\202%�
A\211\204�-\306\211\207" [annivs tmp split org-bbdb-anniv-hash rec #1=#:--cl-dolist-temp-- nil clrhash bbdb-records bbdb-record-getprop bbdb-split "\n" org-bbdb-anniv-split 2 gethash puthash bbdb-record-name org-bbdb-anniversary-field org-bbdb-extract-date-fun #2=#:--cl-var-- m d y x org-bbdb-updated-p] 6 (#$ . 5471)])
#@106 Record the fact that BBDB has been updated.
This is used by Org to re-create the anniversary hash table.
(defalias 'org-bbdb-updated #[(rec) "\301\211\207" [org-bbdb-updated-p t] 2 (#$ . 6182)])
(add-hook 'bbdb-after-change-hook 'org-bbdb-updated)
#@60 Extract anniversaries from BBDB for display in the agenda.
(defalias 'org-bbdb-anniversaries #[nil "\306\307!\210\306\310!\210\311!\204�\312\313\314\315\316$	\204!�\317!\320U\203$�\321 \210\n@\nA@\322\n8\323\fD\"$\324\211%&\324'\325U\203z�\f\326U\203z�\323\322\327D\"\203z�\330
!\204z�\323\322\327D\"''\211A'@\211&\203z�&$B$\202c�$\203
$\211A$@\211&\203
&\203�\322&8\206\232�()\331)*\"A\206\250�)+&A@,
&@Z-\332-!.\333+!\203\320�+,-.#\202\347�+<\203\335�\334+!\202\347�\335+,-.$/\336/\324\337,$\210%\203\340%/C\"%\202/C%.\202�%\205\341\342%\343#.\207" [org-bbdb-anniv-hash org-bbdb-updated-p date m d y require bbdb diary-lib hash-table-p make-hash-table :test equal :size 366 hash-table-count 0 org-bbdb-make-anniv-hash 2 gethash nil 3 1 29 calendar-leap-year-p assoc diary-ordinal-suffix functionp eval format org-add-props org-bbdb-name append mapconcat identity "; " annivs text rec recs org-bbdb-default-anniversary-format class org-bbdb-anniversary-format-alist form name years suffix tmp] 6 (#$ . 6437)])
(provide 'org-bbdb)

${this.title}

Code Editor : org-bbdb.elc