;;; eudc-vars.el --- Emacs Unified Directory Client
-;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+;; 2005, 2006, 2007 Free Software Foundation, Inc.
-;; Author: Oscar Figueiredo <oscar@xemacs.org>
-;; Maintainer: Oscar Figueiredo <oscar@xemacs.org>
-;; Keywords: help
+;; Author: Oscar Figueiredo <oscar@cpe.fr>
+;; Maintainer: Pavel JanÃk <Pavel@Janik.cz>
+;; Keywords: comm
;; This file is part of GNU Emacs.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
;;; Code:
;;{{{ EUDC Main Custom Group
-(defgroup eudc nil
+(defgroup eudc nil
"Emacs Unified Directory Client."
+ :version "21.1"
+ :link '(info-link "(eudc)")
:group 'mail
:group 'comm)
A port number may be specified by appending a colon and a
number to the name of the server. Use `localhost' if the directory
server resides on your computer (BBDB backend)."
- :type '(string :tag "Server")
+ :type '(choice (string :tag "Server") (const :tag "None" nil))
:group 'eudc)
;; Known protocols (used in completion)
"*The directory protocol to use to query the server.
Supported protocols are specified by `eudc-supported-protocols'."
:type `(choice :menu-tag "Protocol"
- ,@(mapcar (lambda (s)
+ ,@(mapcar (lambda (s)
(list 'const ':tag (symbol-name s) s))
- eudc-known-protocols))
+ eudc-known-protocols)
+ (const :tag "None" nil))
:group 'eudc)
:type '(choice :menu-tag "Return Attributes"
(const :menu-tag "Server defaults (nil)" nil)
(const :menu-tag "All" all)
- (repeat :menu-tag "Attribute list"
+ (repeat :menu-tag "Attribute list"
:tag "Attribute name"
:value (nil)
(symbol :tag "Attribute name")))
(defcustom eudc-multiple-match-handling-method 'select
"*What to do when multiple entries match an inline expansion query.
-Possible values are:
+Possible values are:
`first' (equivalent to nil) which means keep the first match only,
`select' pop-up a selection buffer,
`all' expand to all matches,
`abort' the operation is aborted, an error is signaled."
:type '(choice :menu-tag "Method"
- (const :menu-tag "Use First"
+ (const :menu-tag "Use First"
:tag "Use First" first)
- (const :menu-tag "Select Interactively"
+ (const :menu-tag "Select Interactively"
:tag "Select Interactively" select)
- (const :menu-tag "Use All"
+ (const :menu-tag "Use All"
:tag "Use All" all)
- (const :menu-tag "Abort Operation"
+ (const :menu-tag "Abort Operation"
:tag "Abort Operation" abort)
- (const :menu-tag "Default (Use First)"
+ (const :menu-tag "Default (Use First)"
:tag "Default (Use First)" nil))
:group 'eudc)
`list' or nil lets the value of the attribute be a list of values,
`first' keeps the first value and discards the others,
`concat' concatenates the values into a single multiline string,
-`duplicate' duplicates the entire entry into as many instances as
+`duplicate' duplicates the entire entry into as many instances as
different values."
:type '(choice (const :menu-tag "List" list)
(const :menu-tag "First" first)
(const :menu-tag "Duplicate" duplicate)))))
:group 'eudc)
-(defcustom eudc-inline-query-format '((name)
+(defcustom eudc-inline-query-format '((name)
(firstname name))
"*Format of an inline expansion query.
-This is a list of FORMATs. A FORMAT is itself a list of one or more
+This is a list of FORMATs. A FORMAT is itself a list of one or more
EUDC attribute names. A FORMAT applies if it contains as many attributes as
there are individual words in the inline query string.
-If several FORMATs apply then they are tried in order until a match
-is found.
-If nil, all the words are mapped onto the default server or protocol
+If several FORMATs apply then they are tried in order until a match
+is found.
+If nil, all the words are mapped onto the default server or protocol
attribute name.
The attribute names in FORMATs are not restricted to EUDC attribute names
:group 'eudc)
(defcustom eudc-expansion-overwrites-query t
- "*If non nil, expanding a query overwrites the query string."
+ "*If non-nil, expanding a query overwrites the query string."
:type 'boolean
:group 'eudc)
the buffer. First element is a string passed to `format'. Remaining
elements are symbols indicating attribute names; the corresponding values
are passed as additional arguments to `format'."
- :type '(list
+ :type '(list
(string :tag "Format String")
(repeat :inline t
:tag "Attributes"
- (choice
+ (choice
:tag "Attribute"
(const :menu-tag "First Name" :tag "First Name" firstname)
(const :menu-tag "Surname" :tag "Surname" name)
Possible values are:
`current-server': the EUDC current server.
`hotlist': the servers of the hotlist in the order they appear,
- `server-then-hotlist': the current server and then the servers of
+ `server-then-hotlist': the current server and then the servers of
the hotlist."
:type '(choice :tag "Servers"
:menu-tag "Servers"
(defcustom eudc-query-form-attributes '(name firstname email phone)
"*A list of attributes presented in the query form."
:tag "Attributes in Query Forms"
- :type '(repeat
+ :type '(repeat
(choice
:tag "Attribute"
(const :menu-tag "First Name" :tag "First Name" firstname)
(uniqueidentifier . "ID")
(objectclass . "Object Class"))
"*Alist of user-defined names for directory attributes.
-These names are used as prompt strings in query/response forms
+These names are used as prompt strings in query/response forms
instead of the raw directory attribute names.
Prompt strings for attributes that are not listed here
are derived by splitting the attribute name
(defcustom eudc-attribute-display-method-alist nil
"*An alist specifying methods to display attribute values.
Each member of the list is of the form (NAME . FUNC) where NAME is a lowercased
-string naming a directory attribute (translated according to
-`eudc-user-attribute-names-alist' if `eudc-use-raw-directory-names' is
-non-nil) and FUNC a function that will be passed the corresponding
+string naming a directory attribute (translated according to
+`eudc-user-attribute-names-alist' if `eudc-use-raw-directory-names' is
+non-nil) and FUNC a function that will be passed the corresponding
attribute values for display."
:tag "Attribute Decoding Functions"
:type '(repeat (cons :tag "Attribute"
(symbol :tag "Display Function")))
:group 'eudc)
-(defcustom eudc-external-viewers '(("XV" "xv" "-")
- ("ImageMagick" "display" "-")
+(defcustom eudc-external-viewers '(("ImageMagick" "display" "-")
("ShowAudio" "showaudio"))
"*A list of viewer program specifications.
Viewers are programs which can be piped a directory attribute value for
-display or arbitrary processing. Each specification is a list whose
-first element is a string naming the viewer. The second element is the
+display or arbitrary processing. Each specification is a list whose
+first element is a string naming the viewer. The second element is the
executable program which should be invoked, and following elements are
arguments that should be passed to the program."
:tag "External Viewer Programs"
;;{{{ PH Custom Group
-(defgroup eudc-ph nil
+(defgroup eudc-ph nil
"Emacs Unified Directory Client - CCSO PH/QI Backend."
:group 'eudc)
a string evaluates to itself,
a symbol evaluates to the symbol value. Symbols naming PH/QI fields
present in the record evaluate to the value of the field in the record,
- a form is evaluated as a function. The argument list may contain PH/QI
+ a form is evaluated as a function. The argument list may contain PH/QI
field names which eval to the corresponding values in the
record. The form evaluation should return something appropriate for
the particular BBDB-FIELD (see `bbdb-create-internal').
;;{{{ LDAP Custom Group
-(defgroup eudc-ldap nil
+(defgroup eudc-ldap nil
"Emacs Unified Directory Client - LDAP Backend."
:group 'eudc)
a string evaluates to itself,
a symbol evaluates to the symbol value. Symbols naming LDAP attributes
present in the record evaluate to the value of the field in the record,
- a form is evaluated as a function. The argument list may contain LDAP
+ a form is evaluated as a function. The argument list may contain LDAP
field names which eval to the corresponding values in the
record. The form evaluation should return something appropriate for
the particular BBDB-FIELD (see `bbdb-create-internal').
;;{{{ BBDB Custom Group
-(defgroup eudc-bbdb nil
+(defgroup eudc-bbdb nil
"Emacs Unified Directory Client - BBDB Backend."
:group 'eudc)
(defcustom eudc-bbdb-use-locations-as-attribute-names t
"If non-nil, BBDB address and phone locations are used as attribute names.
This has no effect on queries (you can't search for a specific location)
-but influences the way records are displayed"
+but influences the way records are displayed."
:type 'boolean
:group 'eudc-bbdb)
(provide 'eudc-vars)
+;;; arch-tag: 80050575-b838-4246-8ebc-b2d7c5a2e482
;;; eudc-vars.el ends here