;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-latex nil "Options for EBDB and LaTeX." :group ebdb defalias ebdb-latex-formatter-p eieio-make-class-predicate ebdb-latex-formatter ebdb-latex-formatter--eieio-childp eieio-make-child-predicate ebdb-latex-formatter-child-p make-obsolete "use (cl-typep ... \\='ebdb-latex-formatter) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-formatter) ((post-format-function :initform #'latex-mode)) (:abstract t :documentation "")] 6) #@78 You cannot create a new object of type `ebdb-latex-formatter'. (fn &rest _) (defalias 'ebdb-latex-formatter #[128 "\300\301!\207" [error "Class ebdb-latex-formatter is abstract"] 3 (#$ . 1101)]) (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\302$\207" [cl-generic-define-method ebdb-fmt-field nil ((_fmt ebdb-latex-formatter) (field ebdb-field-mail) _style (_rec ebdb-record)) #[1028 "\300\301\302\303\"\302\304\"\206\302\303\"#\207" [format "\\href{mailto:%s}{%s}" slot-value mail aka] 11 "\n\n(fn FMT FIELD STYLE REC)"] defalias ebdb-latex-formatter-tabular-p eieio-make-class-predicate ebdb-latex-formatter-tabular ebdb-latex-formatter-tabular--eieio-childp eieio-make-child-predicate ebdb-latex-formatter-tabular-child-p make-obsolete "use (cl-typep ... \\='ebdb-latex-formatter-tabular) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ebdb-latex-formatter ebdb-formatter-tabular) ((record-separator :initform " \\\\\n") (field-separator :initform " & ") (table-environment :initform "tabular") (table-spec :type (or string null) :initarg :table-spec :initform nil))] 6) #@85 Create a new object of class type `ebdb-latex-formatter-tabular'. (fn &rest SLOTS) (defalias 'ebdb-latex-formatter-tabular #[128 "\300\301\302#\207" [apply make-instance ebdb-latex-formatter-tabular] 5 (#$ . 2335)]) (byte-code "\300\301\302\303#\300\207" [function-put ebdb-latex-formatter-tabular compiler-macro ebdb-latex-formatter-tabular--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'ebdb-latex-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 (#$ . 2702)]) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\314\315\316\317\320DD\321\322\323%\210\324\325!\207" [cl-generic-define-method ebdb-fmt-field nil ((_fmt ebdb-latex-formatter-tabular) (_field ebdb-field) _style (_rec ebdb-record)) t #[1285 "\300\301\302 #\207" [replace-regexp-in-string "\\([^\\]\\)&" "\\1\\\\&"] 9 "Escape column separators in field strings.\n\n(fn CL--CNM FMT FIELD STYLE REC)"] ebdb-fmt-header ((fmt ebdb-latex-formatter-tabular) _recs) #[514 "\300\301\302\303\"\"\302\304\"\205\300\305\302\304\"\"\306Q\207" [format "\\begin{%s}" slot-value table-environment table-spec "%s" "\n"] 9 "\n\n(fn FMT RECS)"] ebdb-fmt-footer ((fmt ebdb-latex-formatter-tabular) _recs) #[514 "\300\301\302\303\"\"\207" [format "\\end{%s}" slot-value table-environment] 8 "\n\n(fn FMT RECS)"] custom-declare-variable ebdb-latex-default-tabular-formatter funcall function #[0 "\300\301\302\303\304\305%\207" [make-instance ebdb-latex-formatter-tabular :label "latex table" :fields (mail-primary)] 6] "Default LaTeX tabular formatter." :type ebdb-formatter-tabular provide ebdb-latex] 6)