diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-07-05 20:01:37 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2012-07-05 20:01:37 +0200 |
| commit | 3e9b447b176843c37068e6d3b48699068c8cb48b (patch) | |
| tree | d7806044a9b8e792de557626dd847a5b19e27efc /helm-bbdb.el | |
| parent | 308e650053e5f147d201f4b2b4f4adce435fe38a (diff) | |
* helm-bbdb.el Add group and defcustoms.
Diffstat (limited to 'helm-bbdb.el')
| -rw-r--r-- | helm-bbdb.el | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/helm-bbdb.el b/helm-bbdb.el index e900008f..327b8446 100644 --- a/helm-bbdb.el +++ b/helm-bbdb.el @@ -33,6 +33,22 @@ (declare-function bbdb-records "ext:bbdb-com" (&optional dont-check-disk already-in-db-buffer)) +(defgroup helm-bbdb nil + "Commands and function for bbdb." + :group 'helm) + +(defcustom helm-bbdb-read-phone-locations + '("Home" "Office" "Work" "Mobile" "Other") + "Choice list for Phone entries locations." + :group 'helm-bbdb + :type '(repeat (choice string))) + +(defcustom helm-bbdb-read-address-locations + '("Home" "Office" "Work" "Other") + "Choice list for address entries locations." + :group 'helm-bbdb + :type '(repeat (choice string))) + (defun helm-c-bbdb-candidates () "Return a list of all names in the bbdb database. The format is \"Firstname Lastname\"." @@ -46,7 +62,8 @@ The format is \"Firstname Lastname\"." "Return a list of vector address objects. See docstring of `bbdb-create-internal' for more info on address entries." (loop with phone-list - with loc-list = '("[Exit when no more]" "Home" "Office" "Work" "Mobile" "Other") + with loc-list = (cons "[Exit when no more]" + helm-bbdb-read-phone-locations) with loc ; Defer count do (setq loc (helm-comp-read "Phone location: " loc-list @@ -75,7 +92,8 @@ If COUNT is non--nil add a number after each prompt." "Return a list of vector address objects. See docstring of `bbdb-create-internal' for more info on address entries." (loop with address-list - with loc-list = '("[Exit when no more]" "Home" "Office" "Work" "Other") + with loc-list = (cons "[Exit when no more]" + helm-bbdb-read-address-locations) with loc ; Defer count do (setq loc (helm-comp-read (format "Address description[%s]: " |