Add Secrets API search examples.

* auth-source.el (auth-source-secrets-search): Add examples.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c9aced6..208b8a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-02-06  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * auth-source.el (auth-source-secrets-search): Add examples.
+
 2011-02-06  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * nntp.el (nntp-finish-retrieve-group-infos): Protect against the first

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index dde4cad..0283233 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -862,6 +862,7 @@ See `auth-source-search' for details on SPEC."
 ;;; (let ((auth-sources '(default))) (auth-source-search :max 1 :delete t))
 ;;; (let ((auth-sources '(default))) (auth-source-search :max 1))
 ;;; (let ((auth-sources '("secrets:login"))) (auth-source-search :max 1))
+;;; (let ((auth-sources '("secrets:login"))) (auth-source-search :max 1 :signon_realm "https://git.gnus.org/Git"))
 
 (defun* auth-source-secrets-search (&rest
                                     spec
@@ -879,7 +880,25 @@ matching, do a wider search and narrow it down yourself.
 
 You'll get back all the properties of the token as a plist.
 
-TODO: Example."
+Here's an example that looks for the first item in the 'login'
+Secrets collection:
+
+ \(let ((auth-sources '(\"secrets:login\")))
+    (auth-source-search :max 1)
+
+Here's another that looks for the first item in the 'login'
+Secrets collection whose label contains 'gnus':
+
+ \(let ((auth-sources '(\"secrets:login\")))
+    (auth-source-search :max 1 :label \"gnus\")
+
+And this one looks for the first item in the 'login' Secrets
+collection that's a Google Chrome entry for the git.gnus.org site
+login:
+
+ \(let ((auth-sources '(\"secrets:login\")))
+    (auth-source-search :max 1 :signon_realm \"https://git.gnus.org/Git\"))
+"
 
   ;; TODO
   (assert (not create) nil