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

Keep chat messages at 1 empty line visible distance in khoj.el

Browse Source 
- Clean redundant concat, format string
- Improve variable name to emojified sender
This commit is contained in:
Debanjum Singh Solanky
2023-03-24 21:24:42 +07:00
parent 27217a330d
commit b08745b541
1 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -417,14 +417,16 @@ RECEIVE-DATE is the message receive date."
(let ((first-message-line (car (split-string message "\n" t))) (let ((first-message-line (car (split-string message "\n" t)))
(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-sender (if (equal sender "you") "🤔 *You*" "🦅 *Khoj*"))
(suffix-newlines (if (equal sender "khoj") "\n\n" ""))
(received (or receive-date (format-time-string "%F %T")))) (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%s"
heading-level heading-level
emojified-by emojified-sender
first-message-line first-message-line
received received
rest-message-lines))) rest-message-lines
suffix-newlines)))
(defun khoj--generate-reference (reference) (defun khoj--generate-reference (reference)
"Create `org-mode' footnotes with REFERENCE." "Create `org-mode' footnotes with REFERENCE."
@@ -447,13 +449,15 @@ RECEIVE-DATE is the message receive date."
(footnote-links (mapcar #'car footnotes)) (footnote-links (mapcar #'car footnotes))
(footnote-defs (mapcar #'cdr footnotes))) (footnote-defs (mapcar #'cdr footnotes)))
(thread-first (thread-first
;; extract khoj message from API response and make it bold ;; concatenate khoj message and references from API
(format "%s" message) (concat
;; append reference links to khoj message ;; extract khoj message from API response and make it bold
(concat (string-join footnote-links "")) message
;; append reference sub-section to khoj message ;; append reference links to khoj message
(concat (if footnote-defs "\n**** References\n:PROPERTIES:\n:VISIBILITY: folded\n:END:" "")) (string-join footnote-links "")
(concat (string-join footnote-defs " ")) ;; append reference sub-section to khoj message and fold it
(if footnote-defs "\n**** References\n:PROPERTIES:\n:VISIBILITY: folded\n:END:" "")
(string-join footnote-defs " "))
;; Render chat message using data obtained from API ;; Render chat message using data obtained from API
(khoj--render-chat-message sender receive-date)))) (khoj--render-chat-message sender receive-date))))