From 4ba6e874ae77eea94485f6163a923f8cef69d5ae Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Thu, 23 May 2024 00:11:18 +0300
Subject: [PATCH] emacs: update prompts

---
 .emacs.d/init.el | 7 +++++--
 Emacs.org        | 5 +++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 47e14a2..e29decc 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -4785,7 +4785,8 @@ KEYS is a list of cons cells like (<label> . <time>)."
                                     (- start-of-day
                                        (* 21 24 60 60)))
                                    (_ (error "Unsupported kind: %s" kind)))
-                     :location 'section)))
+                     :location 'section
+                     :order 'descending)))
     (if query-res
         (org-journal-tag-reference-date (car query-res))
       (pcase kind
@@ -7828,6 +7829,7 @@ base toot."
 
 (use-package gptel
   :straight t
+  :if (not my/is-termux)
   :init
   (my-leader-def
     :infix "ai"
@@ -7857,6 +7859,7 @@ base toot."
 
 (use-package ellama
   :straight t
+  :if (not my/is-termux)
   :init
   (setq ellama-language "English")
   :config
@@ -7956,7 +7959,7 @@ base toot."
      (message "Error: %s" err))))
 
 (setq my/ellama-proof-read-prompt
-      "Proof-read the following text. Fix any errors but keep the original style. Print the changed text and nothing else, not even \"Here's the proof-read text\".\n\n %s")
+      "Proof-read the following text. Fix any errors but keep the original style and punctuation, including linebreaks. Print the changed text and nothing else, not even \"Here's the proof-read text\".\n\n %s")
 
 (defun my/ellama--text ()
   (if (region-active-p)
diff --git a/Emacs.org b/Emacs.org
index 38e197a..8600a35 100644
--- a/Emacs.org
+++ b/Emacs.org
@@ -6588,7 +6588,8 @@ I'll use data from git to get the list of what I've been working on. The directo
                                     (- start-of-day
                                        (* 21 24 60 60)))
                                    (_ (error "Unsupported kind: %s" kind)))
-                     :location 'section)))
+                     :location 'section
+                     :order 'descending)))
     (if query-res
         (org-journal-tag-reference-date (car query-res))
       (pcase kind
@@ -10911,7 +10912,7 @@ And the function to do the prompting iself. Llama tends to output in Markdown, s
 As for prompts, I like the following prompt to proof-read text. It's pretty conservative, but good for fixing typos, missing commas, articles, etc.
 #+begin_src emacs-lisp
 (setq my/ellama-proof-read-prompt
-      "Proof-read the following text. Fix any errors but keep the original style. Print the changed text and nothing else, not even \"Here's the proof-read text\".\n\n %s")
+      "Proof-read the following text. Fix any errors but keep the original style and punctuation, including linebreaks. Print the changed text and nothing else, not even \"Here's the proof-read text\".\n\n %s")
 
 (defun my/ellama--text ()
   (if (region-active-p)