From bc4b35a13d869f41d23e0506176e0a4b05f29825 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <id@ypei.org>
Date: Tue, 18 Mar 2025 19:16:04 +1100
Subject: [emacs] Fix org-recoll buffer a bit

---
 emacs/.emacs.d/lisp/my/my-consult-recoll.el |  3 ++
 emacs/.emacs.d/lisp/my/my-nov.el            |  8 ++++++
 emacs/.emacs.d/lisp/my/my-org.el            | 44 +++++++++++++++++++++++------
 3 files changed, 46 insertions(+), 9 deletions(-)
 create mode 100644 emacs/.emacs.d/lisp/my/my-consult-recoll.el

(limited to 'emacs/.emacs.d/lisp/my')

diff --git a/emacs/.emacs.d/lisp/my/my-consult-recoll.el b/emacs/.emacs.d/lisp/my/my-consult-recoll.el
new file mode 100644
index 0000000..1754ad4
--- /dev/null
+++ b/emacs/.emacs.d/lisp/my/my-consult-recoll.el
@@ -0,0 +1,3 @@
+(defun my-consult-recoll-open-in-pdf-tools (filename &optional page)
+  (find-file filename)
+  (when page (pdf-view-goto-page page)))
diff --git a/emacs/.emacs.d/lisp/my/my-nov.el b/emacs/.emacs.d/lisp/my/my-nov.el
index 816afc6..9a819c7 100644
--- a/emacs/.emacs.d/lisp/my/my-nov.el
+++ b/emacs/.emacs.d/lisp/my/my-nov.el
@@ -45,6 +45,14 @@ chapter title."
 	        (concat title ": " chapter-title))
     ))
 
+(defun my-nov-find-file-with-ipath (file-name ipath)
+  "Find epub file and goto IPATH.
+
+Useful for recoll."
+  (find-file file-name)
+  (unless (derived-mode-p 'nov-mode) (nov-mode))
+  (nov-goto-document (nov-find-document (lambda (p) (eq ipath (car p))))))
+
 (defun my-nov-scroll-up (arg)
   "Scroll with `scroll-up' or visit next chapter if at bottom."
   (interactive "P")
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: ")
-- 
cgit v1.2.3