;ELC ;;; Compiled by nelhage@localhost.localdomain on Tue Dec 13 12:19:27 2005 ;;; from file /home/nelhage/Desktop/bbdb-2.34/lisp/bbdb-ftp.el ;;; in Emacs version 22.0.50.7 ;;; 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 "`bbdb-ftp.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\203\300\304!\210\202\300\305!\210\300\207" [require bbdb featurep efs-cu efs ange-ftp] 2) #@41 *The default login to use when ftp-ing. (custom-declare-variable 'bbdb-default-ftp-user '"anonymous" '(#$ . -726) :group 'bbdb-utilities-ftp :type 'string) #@46 *The default directory to open when ftp-ing. (custom-declare-variable 'bbdb-default-ftp-dir '"/" '(#$ . -888) :group 'bbdb-utilities-ftp :type 'string) #@75 *The prefix that all ftp sites in the bbdb will have in their name field. (custom-declare-variable 'bbdb-ftp-site-name-designator-prefix '"Ftp Site: " '(#$ . -1046) :group 'bbdb-utilities-ftp :type 'string) #@65 Expands into an accessor function for slots in the notes alist. (defalias 'defun-bbdb-raw-notes-accessor '(macro . #[(slot) "\302\303\304!P!\305 \306C\307\310\311D\312\306DEDF)\207" [slot fn-name intern "bbdb-record-" symbol-name defun record cdr assoc quote bbdb-record-raw-notes] 8 (#$ . 1259)])) (defalias 'bbdb-record-ftp-dir #[(record) "\301\302\303H\"A\207" [record assoc ftp-dir 7] 4]) (defalias 'bbdb-record-ftp-user #[(record) "\301\302\303H\"A\207" [record assoc ftp-user 7] 4]) #@73 Acessor Function. Returns the ftp-site field of the BBDB record or nil. (defalias 'bbdb-record-ftp-site #[(record) "\304!\n\305P\306 \"\205 \307\225\310O*\207" [record name bbdb-ftp-site-name-designator-prefix ftp-pfx-regexp bbdb-record-name " *" string-match 0 nil] 4 (#$ . 1759)]) #@62 Remove any spaces or tabs from only the start of the string. (defalias 'remove-leading-whitespace #[(string) "\304\305!\306\307 \205(\310 \234\n\"\204\310 \234 \"\203$T\202\f \311O+\207" [index tab-char-code space-char-code string string-to-char " " 9 0 char-equal nil] 3 (#$ . 2054)]) #@193 Use ange-ftp to open an ftp-connection to a BBDB record's name. If this command is executed from the *BBDB* buffer, ftp the site of the record at point; otherwise, it prompts for an ftp-site. (defalias 'bbdb-ftp #[(bbdb-record &optional which) "\302!\203\n\303!\207\304\305\306\307\310 #\"!\207" [bbdb-record which bbdb-record-ftp-site bbdb-ftp-internal find-file-other-window read-string "fetch: " bbdb-get-field ftp] 7 (#$ . 2360) (list (bbdb-get-record "Visit (FTP): ") (or current-prefix-arg 0))]) (defalias 'bbdb-ftp-internal #[(bbdb-record) "\306!\307!\206 \n\310!\206\f\311 \312 \313 \260\203)\314\315D!\210 \2034\316!\2027\317\320!,\207" [bbdb-record site bbdb-default-ftp-dir dir bbdb-default-ftp-user user bbdb-record-ftp-site bbdb-record-ftp-dir bbdb-record-ftp-user "/" "@" ":" bbdb-electric-throw-to-execute bbdb-ftp-internal find-file-other-window error "Not an ftp site. Check bbdb-ftp-site-name-designator-prefix" file-string bbdb-inside-electric-display] 6]) #@212 Prompt for and return a completely new BBDB record that is specifically an ftp site entry. Doesn't insert it in to the database or update the hashtables, but does insure that there will not be name collisions. (defalias 'bbdb-read-new-ftp-site-record #[nil "\306 \210\203 \307\310!\210\311\312\313\215\210\314\315\n\"\314\316\f\"\314\317!\314\320!\321 !\211@A@ \f\230\203<\311\322\230\203F\311 \n\230\204R \323\230\203T\311\324\230\203^\311\325\311\311\211\211\326\205t\327BC \205|\330 BC \205\204\331 BC#\332\311\"& .\207" [bbdb-readonly-p site bbdb-default-ftp-dir dir bbdb-default-ftp-user user bbdb-records error "The Insidious Big Brother Database is read-only." nil --bbdb-error-retry-- (byte-code "\300\301\302\217\210\202" [--c-- (byte-code "\306\307\310\311! P\n\205/\312\227r\313 q\210 \205!\314\315\316\f!!!\212\317\213+\"J\205/\320\321\"\"\207" [site bbdb-ftp-site-name-designator-prefix bbdb-no-duplicates-p bbdb-debug bbdb-file w throw --bbdb-error-retry-- bbdb-read-string "Ftp Site: " intern-soft bbdb-buffer get-buffer-window buffer-name get-buffer ((byte-code "\203\302!\210\303\304\305\"\210 \207" [w bbdb-hashtable select-window bbdb-records nil t] 3)) error "%s is already in the database"] 8) ((error (byte-code "\302 \210\303\304 \305\"\210\306\307!\210)\305\207" [cursor-in-echo-area --c-- ding t bbdb-display-error nil sit-for 2] 3)))] 3) bbdb-read-string "Ftp Directory: " "Ftp Username: " "Company: " "Additional Comments: " bbdb-divide-name "" "" "" vector append notes ftp-dir ftp-user make-vector company names firstname lastname bbdb-cache-length] 14 (#$ . 3368)]) #@156 Add a new ftp-site entry to the bbdb database. Prompts for all relevant info using the echo area, inserts the new record in the db, sorted alphabetically. (defalias 'bbdb-create-ftp-site #[(record) "\301\302\"\210\303\304\"\210\305C!\207" [record bbdb-invoke-hook bbdb-create-hook bbdb-change-record t bbdb-display-records] 3 (#$ . 5036) (list (bbdb-read-new-ftp-site-record))]) (provide 'bbdb-ftp)