;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\302\303\304\305\306\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\327$\207" [require ebdb-format custom-declare-group ebdb-html nil "Customization options for EBDB with HTML." :group ebdb defalias ebdb-html-formatter-p eieio-make-class-predicate ebdb-html-formatter ebdb-html-formatter--eieio-childp eieio-make-child-predicate ebdb-html-formatter-child-p make-obsolete "use (cl-typep ... \\='ebdb-html-formatter) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-formatter) ((post-format-function :initform #'html-mode)) (:abstract t :documentation "Formatter responsible for HTML-specific field\n formatting.")] 6) #@77 You cannot create a new object of type `ebdb-html-formatter'. (fn &rest _) (defalias 'ebdb-html-formatter #[128 "\300\301!\207" [error "Class ebdb-html-formatter is abstract"] 3 (#$ . 1168)]) (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-html-formatter-html5-p eieio-make-class-predicate ebdb-html-formatter-html5 ebdb-html-formatter-html5--eieio-childp eieio-make-child-predicate ebdb-html-formatter-html5-child-p make-obsolete "use (cl-typep ... \\='ebdb-html-formatter-html5) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-html-formatter ebdb-formatter-freeform) ((header :initform '((ebdb-record-person ebdb-field-notes)))) (:documentation "HTML formatter for \"block-style\" HTML\n formatting.")] 6) #@82 Create a new object of class type `ebdb-html-formatter-html5'. (fn &rest SLOTS) (defalias 'ebdb-html-formatter-html5 #[128 "\300\301\302#\207" [apply make-instance ebdb-html-formatter-html5] 5 (#$ . 2030)]) (byte-code "\300\301\302\303#\300\207" [function-put ebdb-html-formatter-html5 compiler-macro ebdb-html-formatter-html5--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ebdb-html-formatter-html5--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 (#$ . 2382)]) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\307\311%\210\300\312\307\313\307\314%\210\300\315\307\316\307\317%\210\320\321\322\323!\"\210\320\324\325\323!\"\210\320\326\324\"\210\327\326\330\331#\210\332\323\333\324#\334\323\335\336\307$\207" [cl-generic-define-method ebdb-fmt-record (:around) ((_fmt ebdb-html-formatter-html5) (_rec ebdb-record)) t #[771 "\300 \301Q\207" ["
\n" "\n
\n"] 6 "\n\n(fn CL--CNM FMT REC)"] ebdb-fmt-record-header nil ((fmt ebdb-html-formatter-html5) (rec ebdb-record) header-fields) #[771 "\301\302\303\304\305\"\306!>\204\307\310\311D\"\210\211\312H\262\"\313\314\315\316\317\320\n\n\"\321\"\322\323%\324#\325R\207" [cl-struct-ebdb-record-cache-tags "
\n" format "

%s

\n" slot-value cache type-of signal wrong-type-argument ebdb-record-cache 1 mapconcat make-byte-code 257 "\302\303\"\302\304\"\302\305\"\211\306\307\310\311\312\313\314\315\300\301\n#\316\"\317\320%\321#\"\266\203\207" vconcat vector [map-elt style inst _class format "

%s

" mapconcat make-byte-code 257 "\303\300\302\301$\207" vconcat vector [ebdb-fmt-field] 6 "\n\n(fn F)" ", "] 18 "\n\n(fn ARG0)" "\n" "
\n"] 13 "\n\n(fn FMT REC HEADER-FIELDS)"] ebdb-fmt-compose-fields ((fmt ebdb-html-formatter-html5) (rec ebdb-record) &optional field-list _depth) #[1026 "\205\300\301\302\303\304\305\306\n\n\"\307\"\310\311%\312#\313Q\207" ["
\n" mapconcat make-byte-code 257 "\302\303\"\302\304\"\302\305\"\211\306\307\310\300G\311U\203@\202!\301$\"\312\313\314\315\316\317\300\301 #\320\"\321\322%\323#P\266\203\207" vconcat vector [map-elt style inst class format "
%s
" ebdb-fmt-field-label 1 mapconcat make-byte-code 257 "\303\304\305\300\302\301$\"\207" vconcat vector [format "
%s
" ebdb-fmt-field] 8 "\n\n(fn F)" "\n"] 17 "\n\n(fn ARG0)" "\n" "
\n"] 13 "This particular implementation uses description lists (
).\n\n(fn FMT REC &optional FIELD-LIST DEPTH)"] ebdb-fmt-field ((_fmt ebdb-html-formatter) (field ebdb-field-mail) _style (_rec ebdb-record)) #[1028 "\300\301\302\303\"\302\304\"\206\302\303\"#\207" [format "%s" slot-value mail aka] 11 "\n\n(fn FMT FIELD STYLE REC)"] defalias ebdb-html-formatter-tabular-p eieio-make-class-predicate ebdb-html-formatter-tabular ebdb-html-formatter-tabular--eieio-childp eieio-make-child-predicate ebdb-html-formatter-tabular-child-p make-obsolete "use (cl-typep ... \\='ebdb-html-formatter-tabular) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-formatter-tabular ebdb-html-formatter) ((record-separator :initform "") (field-separator :initform ""))] 6) #@84 Create a new object of class type `ebdb-html-formatter-tabular'. (fn &rest SLOTS) (defalias 'ebdb-html-formatter-tabular #[128 "\300\301\302#\207" [apply make-instance ebdb-html-formatter-tabular] 5 (#$ . 5346)]) (byte-code "\300\301\302\303#\300\207" [function-put ebdb-html-formatter-tabular compiler-macro ebdb-html-formatter-tabular--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ebdb-html-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 (#$ . 5708)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\314\315\316\317\316\320%\210\314\321\316\322\316\323%\210\314\324\316\325\326\327%\210\314\330\331\332\326\333%\210\334\335!\207" [custom-declare-variable ebdb-html-default-formatter-tabular funcall function #[0 "\300\301\302\303\304\305%\207" [make-instance ebdb-html-formatter-tabular :label "html table" :fields (mail-primary)] 6] "The default HTML table formatter." :type ebdb-html-formatter-tabular ebdb-html-default-formatter-html5 #[0 "\300\301\302\303\304\305%\207" [make-instance ebdb-html-formatter-html5 :label "html5 block" :include (mail-primary ebdb-field-phone ebdb-field-address ebdb-field-notes)] 6] "The default HTML5 block formatter." ebdb-html-formatter-html5 cl-generic-define-method ebdb-fmt-header nil ((fmt ebdb-html-formatter-tabular) _records) #[514 "\300\301\302\303\304\305\306 !\307\"\310\311%\312\313\"\314#\315Q\207" ["\n\n"] 11 "\n\n(fn FMT RECORDS)"] ebdb-fmt-footer ((_fmt ebdb-html-formatter-tabular) _records) #[514 "\300\207" ["\n
Name" mapconcat make-byte-code 257 "\211;\203\207\301!\204\302!\203\303\300\304#\207\2119\205 \305!\207" vconcat vector [class-p eieio-object-p ebdb-fmt-field-label normal symbol-name] 5 "\n\n(fn F)" slot-value fields "" "
"] 3 "\n\n(fn FMT RECORDS)"] ebdb-fmt-record ((_fmt ebdb-html-formatter-tabular) (_rec ebdb-record)) t #[771 "\300 \301Q\207" ["" ""] 6 "Wrap records in elements.\nThis is done in lieu of a `record-separator' slot, since it's\naround each record, not between records.\n\n(fn CL--CNM FMT REC)"] ebdb-fmt-compose-fields (:around) ((_fmt ebdb-html-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)"] provide ebdb-html] 6)