sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: update prompts

Browse source
This commit is contained in:
Pavel Korytov 2024-05-23 00:11:18 +03:00
parent 79e0ce4173
commit 4ba6e874ae
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
.emacs.d/init.el
View file

@ -4785,7 +4785,8 @@ KEYS is a list of cons cells like (<label> . <time>)."
(- start-of-day (- start-of-day
(* 21 24 60 60))) (* 21 24 60 60)))
(_ (error "Unsupported kind: %s" kind))) (_ (error "Unsupported kind: %s" kind)))
:location 'section))) :location 'section
:order 'descending)))
(if query-res (if query-res
(org-journal-tag-reference-date (car query-res)) (org-journal-tag-reference-date (car query-res))
(pcase kind (pcase kind
@ -7828,6 +7829,7 @@ base toot."
(use-package gptel (use-package gptel
:straight t :straight t
:if (not my/is-termux)
:init :init
(my-leader-def (my-leader-def
:infix "ai" :infix "ai"
@ -7857,6 +7859,7 @@ base toot."
(use-package ellama (use-package ellama
:straight t :straight t
:if (not my/is-termux)
:init :init
(setq ellama-language "English") (setq ellama-language "English")
:config :config
@ -7956,7 +7959,7 @@ base toot."
(message "Error: %s" err)))) (message "Error: %s" err))))
(setq my/ellama-proof-read-prompt (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 () (defun my/ellama--text ()
(if (region-active-p) (if (region-active-p)

5
Emacs.org
View file

@ -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 (- start-of-day
(* 21 24 60 60))) (* 21 24 60 60)))
(_ (error "Unsupported kind: %s" kind))) (_ (error "Unsupported kind: %s" kind)))
:location 'section))) :location 'section
:order 'descending)))
(if query-res (if query-res
(org-journal-tag-reference-date (car query-res)) (org-journal-tag-reference-date (car query-res))
(pcase kind (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. 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 #+begin_src emacs-lisp
(setq my/ellama-proof-read-prompt (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 () (defun my/ellama--text ()
(if (region-active-p) (if (region-active-p)