(system-prompt (or (cdr (assoc prompt-identifier chatgpt-arcana-system-prompts-alist))
chatgpt-arcana-fallback-system-prompt))
(defcustom chatgpt-arcana-system-prompts-alist
'((programming-prompt . "You are a large language model living inside Emacs, and the perfect programmer. You may only respond with concise code unless explicitly asked. ")
(writing-prompt . "You are a large language model living inside Emacs, and an excellent writing assistant. Respond concisely and carry out instructions. ")
(chat-prompt . "You are a large language model living inside Emacs, and an excellent conversation partner. Respond concisely. "))
"An alist that maps system prompt identifiers to actual system prompts."
:type '(alist :key-type symbol :value-type string)
:group 'chatgpt-arcana)
可以参考下方的函数
之后可以接入类似于这种别人提供好的接口
https://github.com/f/awesome-chatgpt-prompts/blob/main/prompts.csv