klbr/khoj
1
0
Fork 0
mirror of https://github.com/khoaliber/khoj.git synced 2026-03-03 21:29:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Get current entry text when point at heading for Find Similar in khoj.el

Browse Source 
Previously if cursor was at heading of current entry, it would find entries
similar to the previous outline heading, instead of the current one
This commit is contained in:
Debanjum Singh Solanky
2023-01-23 10:01:25 -03:00
parent 013c7c10a4
commit a0b03c8bb1
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/interface/emacs/khoj.el
View File

@@ -395,9 +395,16 @@ Use `which-key` if available, else display simple message in echo area"
(replace-regexp-in-string
"[ \t\n]*$" ""
;; get text of current outline entry
(buffer-substring-no-properties
(save-excursion (outline-previous-heading) (point))
(save-excursion (outline-next-heading) (point)))))))
(cond
;; when at heading of entry
((looking-at outline-regexp)
(buffer-substring-no-properties
(point)
(save-excursion (outline-next-heading) (point))))
;; when within entry
(t (buffer-substring-no-properties
(save-excursion (outline-previous-heading) (point))
(save-excursion (outline-next-heading) (point)))))))))
(defun khoj--get-current-paragraph-text ()
"Get text in current paragraph at point."