sij/khoj
1
0
Fork 0
mirror of https://github.com/khoj-ai/khoj.git synced 2024-11-23 23:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions 16

Resolve build issues found by melpazoid

Browse source
This commit is contained in:
Debanjum Singh Solanky 2023-03-23 02:25:34 +04:00
parent e9ca04af0d
commit 863933daaa
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/interface/emacs/khoj.el
View file

@ -6,7 +6,7 @@
;; Description: Natural, Incremental Search for your Second Brain ;; Description: Natural, Incremental Search for your Second Brain
;; Keywords: search, org-mode, outlines, markdown, beancount, ledger, image ;; Keywords: search, org-mode, outlines, markdown, beancount, ledger, image
;; Version: 0.4.1 ;; Version: 0.4.1
;; Package-Requires: ((emacs "27.1") (transient "0.3.0") (dash "2.19.1") (org "9.0.0")) ;; Package-Requires: ((emacs "27.1") (transient "0.3.0") (dash "2.19.1"))
;; URL: https://github.com/debanjum/khoj/tree/master/src/interface/emacs ;; URL: https://github.com/debanjum/khoj/tree/master/src/interface/emacs
;; This file is NOT part of GNU Emacs. ;; This file is NOT part of GNU Emacs.
@ -287,7 +287,7 @@ Use `which-key` if available, else display simple message in echo area"
(url-insert-file-contents config-url) (url-insert-file-contents config-url)
(thread-last (thread-last
(json-parse-buffer :object-type 'alist) (json-parse-buffer :object-type 'alist)
(mapcar 'intern))))) (mapcar #'intern)))))
(defun khoj--construct-search-api-query (query content-type &optional rerank) (defun khoj--construct-search-api-query (query content-type &optional rerank)
"Construct Search API Query. "Construct Search API Query.
@ -349,7 +349,7 @@ Render results in BUFFER-NAME using QUERY, CONTENT-TYPE."
;; generate chat messages from Khoj Chat API response ;; generate chat messages from Khoj Chat API response
(mapcar #'khoj--render-chat-response) (mapcar #'khoj--render-chat-response)
;; insert chat messages into Khoj Chat Buffer ;; insert chat messages into Khoj Chat Buffer
(mapcar #'insert)) (mapc #'insert))
(progn (org-mode) (progn (org-mode)
(visual-line-mode) (visual-line-mode)
(read-only-mode t))))) (read-only-mode t)))))
@ -389,7 +389,7 @@ RECEIVE-DATE is the message receive date."
(rest-message-lines (string-join (cdr (split-string message "\n" t)) "\n ")) (rest-message-lines (string-join (cdr (split-string message "\n" t)) "\n "))
(heading-level (if (equal sender "you") "**" "***")) (heading-level (if (equal sender "you") "**" "***"))
(emojified-by (if (equal sender "you") "🤔 *You*" "🦅 *Khoj*")) (emojified-by (if (equal sender "you") "🤔 *You*" "🦅 *Khoj*"))
(received (or receive-date (format-time-string "%Y-%m-%d %H:%M:%S")))) (received (or receive-date (format-time-string "%F %T"))))
(format "%s %s: %s\n :PROPERTIES:\n :RECEIVED: [%s]\n :END:\n %s\n" (format "%s %s: %s\n :PROPERTIES:\n :RECEIVED: [%s]\n :END:\n %s\n"
heading-level heading-level
emojified-by emojified-by
@ -605,7 +605,7 @@ Paragraph only starts at first text after blank line."
(setq khoj--content-type content-type) (setq khoj--content-type content-type)
(url-retrieve update-url (lambda (_) (message "Khoj %s index %supdated!" content-type (if (member "--force-update" args) "force " ""))))))) (url-retrieve update-url (lambda (_) (message "Khoj %s index %supdated!" content-type (if (member "--force-update" args) "force " "")))))))
(transient-define-suffix khoj--chat-command (&optional args) (transient-define-suffix khoj--chat-command (&optional _)
"Command to Chat with Khoj." "Command to Chat with Khoj."
(interactive (list (transient-args transient-current-command))) (interactive (list (transient-args transient-current-command)))
(khoj--chat)) (khoj--chat))