From ada3ec05936206ee02af743a9d2330180bc4a167 Mon Sep 17 00:00:00 2001 From: Grant Horner Date: Sat, 10 Jan 2026 13:11:32 -0500 Subject: [PATCH] codex: properly prefix functions --- local-lisp/codex.el | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/local-lisp/codex.el b/local-lisp/codex.el index eef430d..4b89042 100644 --- a/local-lisp/codex.el +++ b/local-lisp/codex.el @@ -149,8 +149,8 @@ http_headers = { (insert-file-contents history-file) (goto-char (point-max)) (unless (codex--set-prompt-start-from-buffer) - (user-prompt))) - (user-prompt))))) + (codex--user-prompt))) + (codex--user-prompt))))) (defun list->hash-set (list &optional test) "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) ,@body)) -(defun prompt-delimiter () +(defun codex--prompt-delimiter () (newline) (insert "---") (newline)) -(defun user-prompt () - (prompt-delimiter) +(defun codex--user-prompt () + (codex--prompt-delimiter) (insert "User:") (newline) (setq codex--prompt-start (point-marker))) @@ -179,7 +179,7 @@ http_headers = { (insert "Codex:") (newline) (insert msg) - (user-prompt) + (codex--user-prompt) (codex--save-session-history))) (defun codex--parse-session-id (jsons) @@ -219,12 +219,6 @@ http_headers = { (unless (member codex--session-id (mapcar #'cdr 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) "Sends a prompt to codex." (let* ((buf (generate-new-buffer "*codex--send*")) @@ -250,7 +244,6 @@ http_headers = { (thread-first (buffer-string) codex--parse-msg-from-response - codex--format-response codex--write-to-chat) (codex--ensure-session-in-sessions-file prompt) (kill-buffer)))