gpt-dictionary-sentence

gpt-dictionary-sentence.el

(defun lt/gpt-dictionary-sentence ()
      "Provide a separate translation and dictionary look-up for all Chinese words in the current sentence, including pinyin."
      (interactive)
      (set-mark (point))
      (forward-sentence)
      (unless (region-active-p)
        (user-error "No region active"))
      (let ((buffer (get-buffer-create "*ChatGPT Chinese Dictionary*"))
	    (prompt "You emulate a traditional dictionary. Provide a separate translation for all (!) words in the Chinese sentence that follows the final colon. The format of the translation should be: Chinese characters &nbsp (pinyin) - English. Add a line break after each translation. Add a translation of the whole sentence at the end, but don't start this translation with Translation: : ")
	    (buffer-text (buffer-substring-no-properties (region-beginning) (region-end))))
	(with-current-buffer buffer
	  (erase-buffer)
	  (insert (chatgpt-shell-post-prompt (concat prompt buffer-text)))
	(display-buffer buffer t))))