;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\300\303!\210\300\304!\210\305\306\307\310\311\312%\210\313\314!\203. \314\315\316\317\320\321\322\323\324\325& \210\2029 \326\315\317\325#\210\327\330\323\"\210\307\207" [require ebdb-com ebdb-format org org-agenda custom-declare-group ebdb-org nil "Custom group for EBDB Org options." :group ebdb fboundp org-link-set-parameters "ebdb" :follow ebdb-org-open :complete #[0 "\302\303\304\305\306\211\204
\307 \210\203( \310\311\312\313\314\315\"\316\"\317\320% \"\266\202\202+ \266\202!!\"\207" [ebdb-db-list ebdb-record-tracker format "ebdb:uuid/%s" ebdb-record-uuid ebdb-prompt-for-record nil ebdb-load seq-filter make-byte-code 257 "\301\203 \302\300\"\207\303\300\"\207" vconcat vector [object-of-class-p same-class-p] 4 "\n\n(fn R)"] 14] :store ebdb-org-store-link :export ebdb-org-export org-add-link-type add-hook org-store-link-functions] 10)
#@34 Store a link to an EBDB contact.
(defalias 'ebdb-org-store-link #[0 "\302=\205A \303 \304!\305\306\"\307! >\204 \310\311\312D\"\210\211\313H\262\314\315\"\316\317!\2031 \317\2022 \320\321\322\323\324\325 &\210\266\203\207" [major-mode cl-struct-ebdb-record-cache-tags ebdb-mode ebdb-current-record ebdb-record-uuid slot-value cache type-of signal wrong-type-argument ebdb-record-cache 1 format "ebdb:uuid/%s" fboundp org-link-store-props org-store-link-props :type "ebdb" :name :link :description] 13 (#$ . 1308)])
#@32 Follow a EBDB link.
(fn LINK)
(defalias 'ebdb-org-open #[257 "\300!\211\203 \301\302\211\211\303 %\202 \304\305!\207" [ebdb-org-retrieve ebdb-display-records nil ebdb-popup-window message "No records found"] 8 (#$ . 1842)])
#@13
(fn LINK)
(defalias 'ebdb-org-retrieve #[257 "\302\303\304#\305:\205h@\211\306\232\203@ A\211:\2030 \211@A\211?\205+ \307\310\"C\262\266\202\202; \211\204: !\202; \311\262\202fA\211\204L !\202d\312\232\203\225 \211:\205d\211@A\211?\205\220 \313\311\211\204k \314 \210\203\206 \315\316\317\320\321\322\"\323\"\324\325% \"\266\202\202\211 \266\202\326DC\"\262\266\202\202d\327\232\203\336 \211:\205d\211@A\211?\205\331 \313\311\211\204\264 \314 \210\203\317 \315\316\317\320\321\322\"\323\"\324\325% \"\266\202\202\322 \266\202\330DC\"\262\266\202\202d\331\232\203'\211:\205d\211@A\211?\205\"\313\311\211\204\375 \314 \210\203\315\316\317\320\321\322\"\323\"\324\325% \"\266\202\202 \266\202\332DC\"\262\266\202\202d\333\232\203p\211:\205d\211@A\211?\205k\313\311\211\204F\314 \210\203a\315\316\317\320\321\322\"\323\"\324\325% \"\266\202\202d \266\202\334DC\"\262\266\202\202d\335\232\204 \336!\262\211=\203\370\211\337\340\"\262\203\322:\205@A\211?\205\315\313\311\211\204\250\314 \210\203\303\315\316\317\320\321\322\"\323\"\324\325% \"\266\202\202\306 \266\202DC\"\266\203\266\202\202:\203\364@\211\341=\205\357A\211?\205\355\342\343\"\262\262\262\202\311\202:\203@\211\341=\205A\211?\205\342\343\"\262\262\262\202\311\262\202d\211:\203c\211@A\211?\205^\313\311\211\2049\314 \210\203T\315\316\317\320\321\322\"\323\"\324\325% \"\266\202\202W \266\202\344DC\"\262\266\202\202d\311\262\262\207" [ebdb-db-list ebdb-record-tracker split-string "/" t #[257 "\302\303\211\204\n \304 \210\203% \305\306\307\310\311\312\"\313\"\314\315% \"\266\202\202( \266\202\316DC\"\207" [ebdb-db-list ebdb-record-tracker ebdb-search nil ebdb-load seq-filter make-byte-code 257 #1="\301\203 \302\300\"\207\303\300\"\207" vconcat vector #2=[object-of-class-p same-class-p] 4 #3="\n\n(fn R)" ebdb-field-name] 12 "\n\n(fn KEY)"] "uuid" ebdb-gethash uuid nil "mail" ebdb-search ebdb-load seq-filter make-byte-code 257 #1# vconcat vector #2# 4 #3# ebdb-field-mail "phone" ebdb-field-phone "address" ebdb-field-address "notes" ebdb-field-notes "tags" intern-soft child-of-class-p ebdb-field _ error "Unknown field search prefix: %s" ebdb-field-tags] 22 (#$ . 2077)])
#@206 Create the export version of a EBDB link specified by PATH or DESC.
If exporting to either HTML or LaTeX FORMAT the link will be
italicized, in all other cases it is left unchanged.
(fn PATH DESC FORMAT)
(defalias 'ebdb-org-export #[771 "\300\301\"\230\203\f \262\211\302=\203 \300\303\"\207\211\304=\203\" \300\305\"\207\211\306=\203- \300\307\"\207\207" [format "ebdb:%s" html "%s" latex "\\textit{%s}" odt "%s"] 7 (#$ . 4405)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ebdb-org-field-tags-p eieio-make-class-predicate ebdb-org-field-tags ebdb-org-field-tags--eieio-childp eieio-make-child-predicate ebdb-org-field-tags-child-p make-obsolete "use (cl-typep ... \\='ebdb-org-field-tags) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-field-tags) nil (:human-readable "org tags")] 6)
#@76 Create a new object of class type `ebdb-org-field-tags'.
(fn &rest SLOTS)
(defalias 'ebdb-org-field-tags #[128 "\300\301\302#\207" [apply make-instance ebdb-org-field-tags] 5 (#$ . 5413)])
(byte-code "\300\301\302\303#\300\207" [function-put ebdb-org-field-tags compiler-macro ebdb-org-field-tags--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'ebdb-org-field-tags--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5735)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\311%\207" [cl-generic-define-method make-instance (:around) ((_cls (subclass ebdb-org-field-tags)) &rest slots) t #[642 "\300\301#\207" [apply ebdb-field-tags] 7 "Return an instance of `ebdb-field-tags' instead.\n\n(fn CLS &rest SLOTS)"] ebdb-read nil ((field (subclass ebdb-field-tags)) &optional slots obj) #[1026 "\305\236A@\306\307\310 \"\311\211\211\312 \n\"\"\f\"\313\211\205 \314!\315&\316\317#\")\207" [ebdb-separator-alist crm-separator org-tag-alist org-tag-persistent-alist ebdb-tags ebdb-field-tags completing-read-multiple format "Tags (separate with \"%s\"): " org--tag-add-to-alist org-global-tags-completion-table nil ebdb-string org-tags-history plist-put :tags] 11 "\n\n(fn CL--CNM FIELD &optional SLOTS OBJ)"]] 6)
#@265 Pop up an *EBDB* buffer from an Org Agenda tags search.
Uses the tags searched for in the Agenda buffer to do an
equivalent tags search of EBDB records.
To do this automatically for every search, add this function to
`org-agenda-mode-hook'.
(fn &optional INTER)
(defalias 'ebdb-org-agenda-popup #[256 "\304\305!\203
\306\307\"\204 \211\205P \310\311!\207\312 !A\313\314\211\n\204# \315 \210\203> \316\317\320\321\322\323\"\324\"\325\326%\"\266\202\202A \266\202\327DC\"\330\314\211\211\331 %\266\202\207" [org-agenda-type org-agenda-query-string ebdb-db-list ebdb-record-tracker derived-mode-p org-agenda-mode eql tags message "Not in an Org Agenda tags search buffer" org-make-tags-matcher ebdb-search nil ebdb-load seq-filter make-byte-code 257 "\301\203 \302\300\"\207\303\300\"\207" vconcat vector [object-of-class-p same-class-p] 4 "\n\n(fn R)" ebdb-field-tags ebdb-display-records ebdb-popup-window] 13 (#$ . 6783) "p"])
(byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [cl-generic-define-method ebdb-make-buffer-name nil (&context (major-mode org-mode)) #[0 "\301\302\"\207" [ebdb-buffer-name format "*%s-Org*"] 3 "Use a separate EBDB buffer for Org-related contacts."] defalias ebdb-org-formatter-p eieio-make-class-predicate ebdb-org-formatter ebdb-org-formatter--eieio-childp eieio-make-child-predicate ebdb-org-formatter-child-p make-obsolete "use (cl-typep ... \\='ebdb-org-formatter) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-formatter) ((post-format-function :initform #'org-mode)) (:abstract t :documentation "Formatter responsible for Org-specific field\n formatting.")] 6)
#@76 You cannot create a new object of type `ebdb-org-formatter'.
(fn &rest _)
(defalias 'ebdb-org-formatter #[128 "\300\301!\207" [error "Class ebdb-org-formatter is abstract"] 3 (#$ . 8563)])
(cl-generic-define-method 'ebdb-fmt-field nil '((_fmt ebdb-org-formatter) (_field ebdb-field-mail) _style (_rec ebdb-record)) t #[1285 "\300 P\207" ["mailto:"] 7 "\n\n(fn CL--CNM FMT FIELD STYLE REC)"])
#@32 Align the formatted Org table.
(defalias 'ebdb-org-table-post-format #[0 "\300 \210eb\210\301u\210\302 \207" [org-mode nil org-table-align] 1 (#$ . 8963)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias ebdb-org-formatter-tabular-p eieio-make-class-predicate ebdb-org-formatter-tabular ebdb-org-formatter-tabular--eieio-childp eieio-make-child-predicate ebdb-org-formatter-tabular-child-p make-obsolete "use (cl-typep ... \\='ebdb-org-formatter-tabular) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-formatter-tabular ebdb-org-formatter) ((record-separator :initform "\n") (field-separator :initform " | ") (post-format-function :initform #'ebdb-org-table-post-format)) nil] 6)
#@83 Create a new object of class type `ebdb-org-formatter-tabular'.
(fn &rest SLOTS)
(defalias 'ebdb-org-formatter-tabular #[128 "\300\301\302#\207" [apply make-instance ebdb-org-formatter-tabular] 5 (#$ . 9791)])
(byte-code "\300\301\302\303#\300\207" [function-put ebdb-org-formatter-tabular compiler-macro ebdb-org-formatter-tabular--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'ebdb-org-formatter-tabular--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 10148)])
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\311%\210\312\313\314\315\316DD\317\320\321%\210\322\323!\207" [cl-generic-define-method ebdb-fmt-header (:around) ((_fmt ebdb-org-formatter-tabular) _records) t #[771 "\300 \301\302R\207" ["| " " |\n" "|---|\n"] 7 "\n\n(fn CL--CNM FMT RECORDS)"] ebdb-fmt-compose-fields (:around) ((_fmt ebdb-org-formatter-tabular) (_rec ebdb-record) &optional _field-list _depth) #[1283 "\300 \301Q\207" ["| " " |"] 8 "\n\n(fn CL--CNM FMT REC &optional FIELD-LIST DEPTH)"] custom-declare-variable ebdb-org-default-tabular-formatter funcall function #[0 "\300\301\302\303\304\305%\207" [make-instance ebdb-org-formatter-tabular :label "org table" :fields (mail-primary)] 6] "Default Org table formatter." :type ebdb-formatter-tabular provide ebdb-org] 6)