[elpa] externals/consult-recoll 714810486a 1/3: changelog.org and version bump

[ELPA Syncer]

branch: externals/consult-recoll
commit 714810486a13bb6adba5be0eaaca7eabe3298927
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    changelog.org and version bump
---
 changelog.org     | 34 ++++++++++++++++++++++++++++++++++
 consult-recoll.el | 12 +++++++++++-
 2 files changed, 45 insertions(+), 1 deletion(-)

diff --git a/changelog.org b/changelog.org
new file mode 100644
index 0000000000..ca91c4a8b3
--- /dev/null
+++ b/changelog.org
@@ -0,0 +1,34 @@
+* Version 0.7 on 2022-08-20
+
+  + Search for snippet text when opening text or message files, since they
+    cannot be located by page number.  The search might fail if emacs refills
+    the contents (for instance when rendering HTML), but it's better than
+    nothing.
+
+  + Use ~eww-open-file~ as the default function to open =text/html= documents,
+    rather than ~find-file~.
+
+  + New function ~consult-recoll-embark-setup~ for optional Embark integration,
+    so that one can use ~embark-collect~.
+
+* Version 0.6.2 on 2022-08-07
+
+  + First release in GNU ELPA, with FSF copyright.
+
+* Version 0.6.1 on 2022-08-05
+
+  + Fixes for inline snippet display.
+
+* Version 0.6 on 2022-08-04
+
+  + Inline snippets in the completion buffer, as selectable search results.
+
+  + Grouping of search results by MIME type.
+
+* Version 0.5 on 2022-07-22
+
+  + Live previews of search results, including snippets when available.
+
+* Versions 0.3 to 0.4
+
+  + Initial feature set stabilisation.
diff --git a/consult-recoll.el b/consult-recoll.el
index 85ce1432ed..12a7ddd21d 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -4,7 +4,7 @@
 ;; Maintainer: Jose A Ortega Ruiz <jao@gnu.org>
 ;; Keywords: docs, convenience
 ;; License: GPL-3.0-or-later
-;; Version: 0.6.2
+;; Version: 0.7
 ;; Package-Requires: ((emacs "26.1") (consult "0.18"))
 ;; Homepage: https://codeberg.org/jao/consult-recoll
 
@@ -234,6 +234,15 @@ Set to nil to use the default 'title (path)' format."
   "If TRANSFORM return candidate, othewise extract mime-type."
   (if transform candidate (consult-recoll--candidate-mime candidate)))
 
+(defun consult-recoll--annotation (candidate)
+  "Annotation for the given CANDIDATE (its size by default)"
+  (let* ((head (not (consult-recoll--candidate-page candidate)))
+         (size (consult-recoll--candidate-size candidate))
+         (mime (if head
+                   ""
+                 (format ", %s" (consult-recoll--candidate-mime candidate)))))
+    (format "     (%s bytes%s)" size mime)))
+
 (defun consult-recoll--search (&optional initial)
   "Perform an asynchronous recoll search via `consult--read'.
 If given, use INITIAL as the starting point of the query."
@@ -241,6 +250,7 @@ If given, use INITIAL as the starting point of the query."
                      #'consult-recoll--command
                    (consult--async-filter #'identity)
                    (consult--async-map #'consult-recoll--transformer))
+                 :annotate #'consult-recoll--annotation
                  :prompt consult-recoll-prompt
                  :require-match t
                  :lookup #'consult--lookup-member