grant/emacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

codex: properly prefix functions

Browse Source
This commit is contained in:
Grant Horner
2026-01-10 13:11:32 -05:00
parent 3702c86f42
commit ada3ec0593
1 changed files with 6 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
local-lisp/codex.el
View File

@@ -149,8 +149,8 @@ http_headers = {
(insert-file-contents history-file) (insert-file-contents history-file)
(goto-char (point-max)) (goto-char (point-max))
(unless (codex--set-prompt-start-from-buffer) (unless (codex--set-prompt-start-from-buffer)
(user-prompt))) (codex--user-prompt)))
(user-prompt))))) (codex--user-prompt)))))
(defun list->hash-set (list &optional test) (defun list->hash-set (list &optional test)
"Return a hash table whose keys are the elements of LIST." "Return a hash table whose keys are the elements of LIST."
@@ -162,13 +162,13 @@ http_headers = {
`(with-current-buffer (get-buffer-create codex-buffer-name) `(with-current-buffer (get-buffer-create codex-buffer-name)
,@body)) ,@body))
(defun prompt-delimiter () (defun codex--prompt-delimiter ()
(newline) (newline)
(insert "---") (insert "---")
(newline)) (newline))
(defun user-prompt () (defun codex--user-prompt ()
(prompt-delimiter) (codex--prompt-delimiter)
(insert "User:") (insert "User:")
(newline) (newline)
(setq codex--prompt-start (point-marker))) (setq codex--prompt-start (point-marker)))
@@ -179,7 +179,7 @@ http_headers = {
(insert "Codex:") (insert "Codex:")
(newline) (newline)
(insert msg) (insert msg)
(user-prompt) (codex--user-prompt)
(codex--save-session-history))) (codex--save-session-history)))
(defun codex--parse-session-id (jsons) (defun codex--parse-session-id (jsons)
@@ -219,12 +219,6 @@ http_headers = {
(unless (member codex--session-id (mapcar #'cdr sessions)) (unless (member codex--session-id (mapcar #'cdr sessions))
(codex--write-sessions-file (cons (cons prompt codex--session-id) sessions))))) (codex--write-sessions-file (cons (cons prompt codex--session-id) sessions)))))
(defun codex--format-response (msg)
(with-temp-buffer
(insert msg)
(fill-region (point-min) (point-max))
(buffer-string)))
(defun codex--send (prompt) (defun codex--send (prompt)
"Sends a prompt to codex." "Sends a prompt to codex."
(let* ((buf (generate-new-buffer "*codex--send*")) (let* ((buf (generate-new-buffer "*codex--send*"))
@@ -250,7 +244,6 @@ http_headers = {
(thread-first (thread-first
(buffer-string) (buffer-string)
codex--parse-msg-from-response codex--parse-msg-from-response
codex--format-response
codex--write-to-chat) codex--write-to-chat)
(codex--ensure-session-in-sessions-file prompt) (codex--ensure-session-in-sessions-file prompt)
(kill-buffer))) (kill-buffer)))