procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

EUDC: Use "Surname" instead of "Name" in prompts

Browse source 
* lisp/net/eudc-vars.el (eudc-user-attribute-names-alist): Add
name/"Surname" association.
* lisp/net/eudc.el (eudc-get-email): Prompt for surname.
* lisp/net/eudc.el (eudc-get-phone): Likewise.
This commit is contained in:
Thomas Fitzsimmons 2022-06-29 21:53:39 -04:00
parent e161b5fa3c
commit 76e4179774
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/net/eudc-vars.el
View file

@ -283,6 +283,7 @@ If nil, query all servers available from `eudc-inline-expansion-servers'."
(firstname . "First Name")
(cn . "Full Name")
(sn . "Surname")
(name . "Surname")
(givenname . "First Name")
(ou . "Unit")
(labeledurl . "URL")

4
lisp/net/eudc.el
View file

@ -721,7 +721,7 @@ server for future sessions."
(defun eudc-get-email (name &optional error)
"Get the email field of NAME from the directory server.
If ERROR is non-nil, report an error if there is none."
(interactive "sName: \np")
(interactive "sSurname: \np")
(or eudc-server
(call-interactively 'eudc-set-server))
(let ((result (eudc-query (list (cons 'name name)) '(email)))
@ -739,7 +739,7 @@ If ERROR is non-nil, report an error if there is none."
(defun eudc-get-phone (name &optional error)
"Get the phone field of NAME from the directory server.
If ERROR is non-nil, report an error if there is none."
(interactive "sName: \np")
(interactive "sSurname: \np")
(or eudc-server
(call-interactively 'eudc-set-server))
(let ((result (eudc-query (list (cons 'name name)) '(phone)))