;ELC ;;; compiled by amu@mit.edu on Fri May 16 19:37:09 1997 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/bbdb-1.50/bbdb-print.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`bbdb-print.el' was compiled for Emacs 19.29 or later")) (byte-code "!!\f#" [require bbdb bbdb-com define-key bbdb-mode-map "P" bbdb-print] 4) #@52 *Default file name for printouts of BBDB database. (defvar bbdb-print-file-name "~/bbdb.tex" (#$ . -587)) #@172 *Name of file containing TeX formatting commands for printing BBDB databases. If this filename is not absolute, the file must be located somewhere that TeX will find it. (defvar bbdb-print-format-file-name "bbdb-print.tex" (#$ . -700)) #@97 *List of fields NOT to print when printing an address list. See also bbdb-print-no-bare-names. (defvar bbdb-print-elide (quote (tex-name aka mail-alias nic nic-updated)) (#$ . -943)) #@158 *If nonnil, `bare names' will not be printed. A name is bare if the record contains no non-elided fields other than name and company (see bbdb-print-elide). (defvar bbdb-print-no-bare-names t (#$ . -1134)) #@69 *TeX statements to include at the beginning of the bbdb-print file. (defvar bbdb-print-prolog (concat "%%%% ====== Phone/Address list in -*-TeX-*- Format =====\n" "%%%% produced by bbdb-print, version 2.3\n" "\\input " bbdb-print-format-file-name "\n\n") (#$ . -1346)) #@63 *TeX statements to include at the end of the bbdb-print file. (defvar bbdb-print-epilog "\\vfill\\byecolumns\\bye\n" (#$ . -1628)) #@33 Print the selected BBDB entries (defalias 'bbdb-print #[(to-file) " !\fq \n!ed|-@@\"Aeb\ncdb ceb*" [expand-file-name to-file bbdb-print-file-name t bbdb-buffer-name bbdb-records records current-letter find-file bbdb-print-format-record bbdb-print-prolog bbdb-print-epilog] 4 (#$ . 1765) (list (read-file-name "Print To File: " bbdb-print-file-name))]) #@383 Insert the bbdb RECORD in TeX format. Optional CURRENT-LETTER is the section we're in -- if this is non-nil and the first letter of the sortkey of the record differs from it, a new section heading will be output (an arg of t will always produce a heading). The new current-letter is the return value of this function. Someday, optional third arg BRIEF will produce one-line format. (defalias 'bbdb-print-format-record #[(record &optional current-letter brief) " HH!) !PO ?>=> == >?)N \"N !! ?m=m =l >?)t H ?= = >?) H ?= = >?) H ?= = >?) H H `!\"#\n#\n!\"c\"c--!\"c\\@H@!*+\"+\"!*!#cA*-@!0110#1̉O1̕OQ1̕\\0k\"1\"c*@7\"7H\"7H\"7H\"7H7H?7H?7H\"7!!\"c)A ; BC  c @>@ ?(=( =' >?)Y\">@=D>A!\"cY@ӁA>@!!>A!#c) A \"p!`|yBc##.\n" [bbdb-debug t debug-on-error record 8 3 error "plus ungood: tex formatting deleted record" bbdb-print-elide bbdb-elided-display bbdb-record-sortkey "?" 0 1 first-letter name field bbdb-record-getprop tex-name bbdb-print-tex-quote bbdb-record-name company comp net 6 phone 4 phones address 5 addrs 7 notes begin bare current-letter format "\\separator{%s}\n\n" "\\beginrecord\n\\name{%s}\n" "" "\\comp{%s}\n" bbdb-phone-string number place nil "\\phone{%s%s}\n" bbdb-print-if-not-blank ": " start net-addr string-match "\\." ".\\-" 2 "\\email{%s}\n" addr "\\address{%s}\n" "\\\\\n" ", " " " bbdb-address-zip-string "\\\\" thisnote "\\notes{%s}\n" "\\note{%s}{%s}\n" symbol-name "\\endrecord\n\n"] 12 (#$ . 2161)]) #@166 Quote any unquoted TeX special characters that appear in STRING. In other words, # alone will be replaced by #, but 0will be left for TeX to process as an accent. (defalias 'bbdb-print-tex-quote #[(string) "m!qed|cebmj!%!!:`Sf=:!!O`Sf=O!!d`Sf=d!u )" [string get-buffer-create " bbdb-print-tex-quote" looking-at "[<>=]+" replace-match "$\\&$" "[#$%&~_]" 92 "\\\\\\&" "[{}]" "$\\\\\\&$" "\\^" "\\\\^{ }" 1 buffer-string] 2 (#$ . 4005)]) #@157 If STRING is not null, then return it concatenated with rest of arguments. If it is null, then all arguments are ignored and the null string is returned. (defalias 'bbdb-print-if-not-blank #[(string &rest more) "\n\f\f#" [string "" apply concat more] 4 (#$ . 4518)]) #@313 Display all entries in the bbdb database whose phone numbers match the regexp STRING. Matches against the formatted version of the phone number, so that, eg, `(212)' will match only people who have a phone number in the 212 area code. If STRING is null, will match all entries that have a phone number listed. (defalias 'bbdb-phone #[(string elidep) " =?\f\n  X @\nH\fN\f@!\"E\nBʼn\f(\fA\f+* A +!)" [elidep 0 bbdb-elided-display bbdb-display-records bbdb-records nil bbdb-case-fold-search case-fold-search matches records record 4 phones string-match string bbdb-phone-string] 6 (#$ . 4808) "sRegular Expression: \nP"]) (provide (quote bbdb-print))