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

Style Khoj search org buffer via elisp instead of in-buffer settings

Browse Source
This commit is contained in:
Debanjum Singh Solanky
2023-03-26 06:34:18 +07:00
parent 4f655d20ae
commit e281a498b4
1 changed files with 22 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -196,7 +196,6 @@ Use `which-key` if available, else display simple message in echo area"
(defun khoj--extract-entries-as-org (json-response query) (defun khoj--extract-entries-as-org (json-response query)
"Convert JSON-RESPONSE, QUERY from API to `org-mode' entries." "Convert JSON-RESPONSE, QUERY from API to `org-mode' entries."
(let ((org-results-buffer-format-str "* %s\n%s\n#+STARTUP: showall hidestars inlineimages"))
(thread-last (thread-last
json-response json-response
;; Extract and render each org-mode entry from response ;; Extract and render each org-mode entry from response
@@ -209,9 +208,9 @@ Use `which-key` if available, else display simple message in echo area"
;; Standardize results to 2nd level heading for consistent rendering ;; Standardize results to 2nd level heading for consistent rendering
(replace-regexp-in-string "^\*+" "**")))) (replace-regexp-in-string "^\*+" "**"))))
;; Render entries into org formatted string with query set as as top level heading ;; Render entries into org formatted string with query set as as top level heading
(format org-results-buffer-format-str query) (format "* %s\n%s\n" query)
;; remove leading (, ) or SPC from extracted entries string ;; remove leading (, ) or SPC from extracted entries string
(replace-regexp-in-string "^[\(\) ]" "")))) (replace-regexp-in-string "^[\(\) ]" "")))
(defun khoj--extract-entries-as-ledger (json-response query) (defun khoj--extract-entries-as-ledger (json-response query)
"Convert JSON-RESPONSE, QUERY from API to ledger entries." "Convert JSON-RESPONSE, QUERY from API to ledger entries."
@@ -319,8 +318,13 @@ Render results in BUFFER-NAME using QUERY, CONTENT-TYPE."
((equal content-type "ledger") (khoj--extract-entries-as-ledger json-response query)) ((equal content-type "ledger") (khoj--extract-entries-as-ledger json-response query))
((equal content-type "image") (khoj--extract-entries-as-images json-response query)) ((equal content-type "image") (khoj--extract-entries-as-images json-response query))
(t (khoj--extract-entries json-response query)))) (t (khoj--extract-entries json-response query))))
(cond ((equal content-type "org") (progn (org-mode) (cond ((equal content-type "org") (progn (visual-line-mode)
(visual-line-mode))) (org-mode)
(setq-local
org-startup-folded "showall"
org-hide-leading-stars t
org-startup-with-inline-images t)
(org-set-startup-visibility)))
((equal content-type "markdown") (progn (markdown-mode) ((equal content-type "markdown") (progn (markdown-mode)
(visual-line-mode))) (visual-line-mode)))
((equal content-type "ledger") (beancount-mode)) ((equal content-type "ledger") (beancount-mode))