1 files changed, 35 insertions, 9 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el
index 5d7203f..f870d4f 100644
--- a/emacs/.emacs.d/lisp/my/my-org.el
+++ b/emacs/.emacs.d/lisp/my/my-org.el
@@ -1155,21 +1155,47 @@ On success, also move everything from staging to to-dir."
   (require 'org-recoll)
   "Format recoll results in buffer."
   ;; Format results in org format and tidy up
-  (org-recoll-regexp-replace-in-buffer
-   "^.*?\\[\\(.*?\\)\\]\\s-*\\[\\(.*?\\)\\]\\(.*\\)$"
-   "* [[\\1][\\2]] <\\1>\\3")
-  (org-recoll-regexp-replace-in-buffer
-   (format "<file://.*?%s\\(.*/\\).*>" (substring my-docs-root-dir 1))
-   "(\\1)")
+  (org-recoll-regexp-replace-in-buffer "file://" "file:")
+  (goto-char (point-min))
+  (delete-trailing-whitespace)
+  (while (re-search-forward
+          "^.*?\\[\\(.*?\\)\\]\\s-*\\[\\(.*?\\)\\]\\(.*\\)$" nil t)
+    (let ((file-name (match-string 1))
+          (title (match-string 2))
+          (size (match-string 3)))
+      (replace-match
+       (format "* %s (%s)%s"
+               (org-link-make-string file-name title)
+               (file-name-nondirectory file-name)
+               size)
+       t
+       t)))
   (org-recoll-regexp-replace-in-buffer "\\/ABSTRACT" "")
   (org-recoll-regexp-replace-in-buffer "ABSTRACT" "")
   ;; Justify results
   (goto-char (point-min))
   (org-recoll-fill-region-paragraphs)
   ;; Add emphasis
-  (highlight-phrase (org-recoll-reformat-for-file-search
-                     org-recoll-search-query)
-                    'bold-italic))
+  (let ((search-whitespace-regexp "[ 	]+"))
+    (highlight-phrase (org-recoll-reformat-for-file-search
+                       org-recoll-search-query)
+                      'bold-italic)))
+
+(defun my-org-recoll-query (query)
+  ;; caddr contains number of results
+  (seq-map
+   (lambda (line)
+     (pcase-let ((`(,title ,filename ,ipath ,abstract)
+                  (seq-map 'base64-decode-string (split-string line " "))))
+       `((title . ,title)
+         (filename . ,filename)
+         (ipath . ,ipath)
+         (abstract . ,abstract))))
+   (cdddr
+    (string-lines
+     (my-call-process-out
+      "recollq" "-F" "title filename ipath abstract" "-n" "0-40" "-q" query))))
+  )
 
 (defun my-org-recoll-mdn (query)
   (interactive "sSearch mdn: ")