+(defun riece-lsdb-add-user (user full-name)
+ (interactive
+ (let ((completion-ignore-case t)
+ (table lsdb-hash-table))
+ (unless (vectorp table)
+ (setq table (make-vector 29 0))
+ (lsdb-maphash (lambda (key value)
+ (intern key table))
+ lsdb-hash-table))
+ (list (riece-completing-read-identity
+ "User: "
+ (riece-get-users-on-server (riece-current-server-name)))
+ (completing-read "Full name: " table))))
+ (let* ((record (lsdb-gethash full-name lsdb-hash-table))
+ (irc (riece-format-identity user t))
+ (old (cdr (assq 'irc record))))
+ ;; Remove all properties before adding entry.
+ (set-text-properties 0 (length irc) nil irc)
+ (unless (member irc old)
+ (lsdb-update-record (list full-name
+ ;; LSDB does not allow empty 'net entry.
+ (or (nth 1 (assq 'net (lsdb-lookup-records
+ full-name)))
+ ""))
+ (list (cons 'irc (cons irc old)))))))
+