* net/xesam.el (xesam-search-engines): Add Debbugs hit fields.

(xesam-refresh-entry): Add Debbugs handling.  Insert a widget
"DONE", when all hits are retrieved.
(xesam-search): autoload it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c38aed8e9c29e06bbcf63bbe087ffec4043c23de..73eafca52a0c38cae3d5f883cbb0f0ce7b983c89 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-08-10  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/xesam.el (xesam-search-engines): Add Debbugs hit fields.
+       (xesam-refresh-entry): Add Debbugs handling.  Insert a widget
+       "DONE", when all hits are retrieved.
+       (xesam-search): autoload it.
+
 2008-08-11  John Paul Wallington  <jpw@pobox.com>
 
        * ibuffer.el (ibuffer-buffer-file-name): Return nil rather than

diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index f17f28f3ded5a24fd70bedca03493ebe60e5a243..e7d563419080f744ab53ad6a804a0d3aa00c22cf 100644 (file)
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -22,7 +22,7 @@
 
 ;;; Commentary:
 
-;; This package provides an interface to the Xesam, a D-Bus based "eXtEnsible
+;; This package provides an interface to Xesam, a D-Bus based "eXtEnsible
 ;; Search And Metadata specification".  It has been tested with
 ;;
 ;; xesam-glib 0.3.4, xesam-tools 0.6.1
@@ -32,7 +32,7 @@
 ;; The precondition for this package is a D-Bus aware Emacs.  This is
 ;; configured per default, when Emacs is built on a machine running
 ;; D-Bus.  Furthermore, there must be at least one search engine
-;; running, which support the Xesam interface.  Beagle and strigi have
+;; running, which supports the Xesam interface.  Beagle and strigi have
 ;; been tested; tracker, pinot and recoll are also said to support
 ;; Xesam.  You can check the existence of such a search engine by
 ;;
@@ -380,20 +380,25 @@ If there is no registered search engine at all, the function returns `nil'."
        ;; That is not the case now, so we set it ourselves.
        ;; Hopefully, this will change later.
        (setq hit-fields
-             (cond
-              ((string-equal vendor-id "Beagle")
-               '("xesam:mimeType" "xesam:url"))
-              ((string-equal vendor-id "Strigi")
-               '("xesam:author" "xesam:cc" "xesam:charset"
-                 "xesam:contentType" "xesam:fileExtension" "xesam:id"
-                 "xesam:lineCount" "xesam:links" "xesam:mimeType" "xesam:name"
-                 "xesam:size" "xesam:sourceModified" "xesam:subject"
-                 "xesam:to" "xesam:url"))
-              ((string-equal vendor-id "TrackerXesamSession")
-               '("xesam:relevancyRating" "xesam:url"))
-              ;; xesam-tools yahoo service.
-              (t '("xesam:contentModified" "xesam:mimeType" "xesam:summary"
-                   "xesam:title" "xesam:url" "yahoo:displayUrl"))))
+             (case (intern vendor-id)
+               ('Beagle
+                '("xesam:mimeType" "xesam:url"))
+               ('Strigi
+                '("xesam:author" "xesam:cc" "xesam:charset"
+                  "xesam:contentType" "xesam:fileExtension"
+                  "xesam:id" "xesam:lineCount" "xesam:links"
+                  "xesam:mimeType" "xesam:name" "xesam:size"
+                  "xesam:sourceModified" "xesam:subject" "xesam:to"
+                  "xesam:url"))
+               ('TrackerXesamSession
+                '("xesam:relevancyRating" "xesam:url"))
+               ('Debbugs
+                '("xesam:keyword" "xesam:owner" "xesam:title"
+                  "xesam:url" "xesam:sourceModified" "xesam:mimeType"
+                  "debbugs:key"))
+               ;; xesam-tools yahoo service.
+               (t '("xesam:contentModified" "xesam:mimeType" "xesam:summary"
+                    "xesam:title" "xesam:url" "yahoo:displayUrl"))))
 
        (xesam-set-property engine "hit.fields" hit-fields)
        (xesam-set-property engine "hit.fields.extended" '("xesam:snippet"))
@@ -560,6 +565,39 @@ SEARCH is the search identification in that engine.  Both must be strings."
           (string-equal "text/html" (widget-get widget :xesam:mimeType)))
       (setcar widget 'url-link))
 
+     ;; Debbugs hits shall be displayed.
+     ((and (widget-member widget :xesam:mimeType)
+          (string-equal "application/x-debbugs"
+                        (widget-get widget :xesam:mimeType)))
+      (widget-put
+       widget :notify
+       '(lambda (widget &rest ignore)
+         ;; We toggle.  If there are already children, we delete them.
+         (if (widget-get widget :children)
+             (widget-children-value-delete widget)
+
+           ;; No children.  Let's display the messages.
+           (widget-end-of-line)
+           ;; Get hit data.  Loop over results.
+           (dolist (data
+                    ;; "GetHitData" returns a list.  But we have
+                    ;; requested just one element only.
+                    (car
+                     (xesam-dbus-call-method
+                      :session (car xesam-engine) xesam-path-search
+                      xesam-interface-search "GetHitData" xesam-search
+                      (list (widget-get widget :debbugs:key))
+                      '("debbugs:key"))))
+             (let ((child
+                    (widget-create-child-and-convert
+                     ;; The result is a variant.  So we must apply `car'.
+                     widget '(link) :format "\n%h" :doc (car data))))
+               ;; Add child to parent's list.  Needed, in order to be
+               ;; able to delete it next toggle.
+               (widget-put
+                widget
+                :children (cons child (widget-get widget :children)))))))))
+
      ;; For local files, we will open the file as default action.
      ((string-match "file"
                    (url-type (url-generic-parse-url
@@ -654,6 +692,12 @@ SEARCH is the search identification in that engine.  Both must be strings."
                    (- (min (+ xesam-hits-per-page xesam-to) xesam-count)
                       (length xesam-objects))))))
 
+           ;; Add "DONE" widget.
+           (when (= xesam-current xesam-count)
+             (goto-char (point-max))
+             (widget-create 'link :notify 'ignore "DONE")
+             (widget-beginning-of-line))
+
        ;; Return with save settings.
        (setq xesam-refreshing nil)))))
 
@@ -762,6 +806,7 @@ search, is returned."
     ;; Return search id.
     search))
 
+;;;###autoload
 (defun xesam-search (engine query)
   "Perform an interactive search.
 ENGINE is the Xesam search engine to be applied, it must be one of the