summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/calendar/dotemacs.tex
blob: e46fb2c99086b42300ee74c722f6ded46d963e69 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
;; Essential add-on for BBDB
(defun bbdb-create-external ()
  "Prompt for and create a record.  Hacked from bbdb-read-new-record."
  (interactive)
  (let ((name (bbdb-read-string "Name: "))
(company (bbdb-read-string "Company: "))
(net (bbdb-split (bbdb-read-string "Network Address: ") ","))
(addrs
 (let (L L-tail str addr)
   (while
       (not
(string=
 ""
 (setq str
       (bbdb-read-string
"Address Description [RET when no more addrs]: "))))
     (setq addr (make-vector bbdb-address-length nil))
     (bbdb-record-edit-address addr str)
     (if L
 (progn (setcdr L-tail (cons addr nil))
(setq L-tail (cdr L-tail)))
       (setq L (cons addr nil)
     L-tail L)))
   L))
(phones
 (let (L L-tail str)
   (while
       (not
(string=
 ""
 (setq str
       (bbdb-read-string
"Phone Location [RET when no more phones]: "))))
     (let* ((phonelist
     (bbdb-error-retry
      (bbdb-parse-phone-number
       (read-string
"Phone: "
(and
 bbdb-default-area-code
 (format "(%03d) " bbdb-default-area-code))))))
    (phone (apply 'vector str
  (if (= 3 (length phonelist))
      (nconc phonelist '(0))
    phonelist))))
       (if L
   (progn (setcdr L-tail (cons phone nil))
  (setq L-tail (cdr L-tail)))
 (setq L (cons phone nil)
       L-tail L))))
   L))
(notes (bbdb-read-string "Additional Comments: " "[M][F]")))
    (if (string= company "") (setq company nil))
    (if (string= name "") (setq name nil))
    (if (string= notes "") (setq notes nil))
    (bbdb-display-records
     (list
      (bbdb-create-internal name company net addrs phones notes)))))

(global-set-key [f12] 'bbdb-create-external)