BBDB: Print birthdates
Posted on January 15th, 2007 by Sacha Chua
This snippet goes through all the records in my Big Brother Database, prints out birthdate and a link to the record, and then sorts the results.
(defun sacha/bbdb-insert-birthdates ()
"Insert a list of birthdates, sorted by month.
For best effect, dates should be of the form yyyy.mm.dd."
(insert
(with-temp-buffer
(mapcar
(lambda (rec)
(when (bbdb-record-getprop rec 'birthdate)
(insert
(if (string-match "..\\...$" (bbdb-record-getprop rec 'birthdate))
(match-string 0 (bbdb-record-getprop rec 'birthdate))
(bbdb-record-getprop rec 'birthdate))
" | "
(planner-make-link
(concat "bbdb://"
(planner-replace-regexp-in-string
" " "." (bbdb-record-name rec)))
(bbdb-record-name rec))
"\n")))
(bbdb-records))
(sort-lines nil (point-min) (point-max))
(buffer-string)))
nil)
On Technorati: emacs, pimpmyemacs, bbdb, crm
Random Emacs symbol: find-tag-noselect - Command: Find tag (in current tags table) whose name contains TAGNAME.
Save to - del.icio.us - Digg it - reddit - StumbleUpon
No comments yet.