iframe-proxy | Sunbelt Computer Software

This repository was archived by the owner on Dec 30, 2025. It is now read-only.

Repository navigation

History

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

;;; ai-code-interface.el --- AI code interface for editing AI prompt files -*- lexical-binding: t; -*-

;; Author: Kang Tu <tninja@gmail.com>

;; Version: 0.22

;; Package-Requires: ((emacs "26.1") (transient "0.8.0") (magit "2.1.0"))

;; SPDX-License-Identifier: Apache-2.0

;;; Commentary:

;; This file provides a major mode for editing AI prompt files.

;;; Code:

(require 'org)

(require 'which-func)

(require 'magit)

(require 'transient)

(require 'seq)

(require 'ai-code-backends)

(require 'ai-code-input)

(require 'ai-code-prompt-mode)

(require 'ai-code-agile)

(require 'ai-code-git)

(require 'ai-code-change)

(require 'ai-code-discussion)

(require 'ai-code-codex-cli)

(require 'ai-code-github-copilot-cli)

(require 'ai-code-file)

;; Forward declarations for dynamically defined backend functions

(declare-function ai-code-cli-start "ai-code-backends")

(declare-function ai-code-cli-switch-to-buffer "ai-code-backends")

(declare-function ai-code-cli-send-command "ai-code-backends" (command))

(declare-function ai-code-current-backend-label "ai-code-backends")

(declare-function ai-code-open-backend-config "ai-code-backends")

(declare-function ai-code--process-word-for-filepath "ai-code-prompt-mode" (word git-root-truename))

;; Default aliases are set when a backend is applied via `ai-code-select-backend`.

;;;###autoload

(defcustom ai-code-use-gptel-headline nil

"Whether to use GPTel to generate headlines for prompt sections.

If non-nil, call `gptel-get-answer` from gptel-assistant.el to generate

headlines instead of using the current time string."

:type 'boolean

:group 'ai-code)

;;;###autoload

(defcustom ai-code-prompt-suffix nil

"Suffix text to append to prompts after a new line.

If non-nil, this text will be appended to the end of each prompt

with a newline separator."

:type '(choice (const nil) string)

:group 'ai-code)

(defcustom ai-code-use-prompt-suffix t

"When non-nil, append `ai-code-prompt-suffix` where supported."

:type 'boolean

:group 'ai-code)

;;;###autoload

(defcustom ai-code-cli "claude"

"The command-line AI tool to use for `ai-code-apply-prompt-on-current-file`."

:type 'string

:group 'ai-code)

;;;###autoload

(defun ai-code-send-command ()

"Read a prompt from the user and send it to the AI service."

(interactive)

(let ((initial-input (when (use-region-p)

(string-trim-right

(buffer-substring-no-properties (region-beginning)

(region-end))

"\n"))))

(when-let ((prompt (ai-code-read-string "Send to AI: " initial-input)))

(ai-code--insert-prompt prompt))))

;;;###autoload

(defun ai-code-cli-switch-to-buffer-or-hide ()

"Hide current buffer if its name starts and ends with '*', otherwise switch to AI CLI buffer."

(interactive)

(if (and (string-prefix-p "*" (buffer-name))

(string-suffix-p "*" (buffer-name)))

(quit-window)

(ai-code-cli-switch-to-buffer)))

(defclass ai-code--use-prompt-suffix-type (transient-lisp-variable)

((variable :initform 'ai-code-use-prompt-suffix)

(format :initform "%k %d %v")

(reader :initform #'transient-lisp-variable--read-value))

"Toggle helper for `ai-code-use-prompt-suffix`.")

(transient-define-infix ai-code--infix-toggle-suffix ()

"Toggle `ai-code-use-prompt-suffix`."

:class 'ai-code--use-prompt-suffix-type

:key "^"

:description "Use prompt suffix:"

:reader (lambda (_prompt _initial-input _history)

(not ai-code-use-prompt-suffix)))

(defun ai-code--select-backend-description (&rest _)

"Dynamic description for the Select Backend menu item.

Shows the current backend label to the right."

(format "Select Backend (%s)" (ai-code-current-backend-label)))

;;;###autoload

(transient-define-prefix ai-code-menu ()

"Transient menu for AI Code Interface interactive functions."

["AI Code Commands"

["AI CLI session"

("a" "Start AI CLI" ai-code-cli-start)

("R" "Resume AI CLI" ai-code-cli-resume)

("z" "Switch to AI CLI" ai-code-cli-switch-to-buffer-or-hide)

("s" ai-code--select-backend-description ai-code-select-backend)

("g" "Open backend config (eg. add mcp)" ai-code-open-backend-config)

]

["AI Code Actions"

(ai-code--infix-toggle-suffix)

("c" "Code change (C-u: global)" ai-code-code-change)

("i" "Implement TODO (C-u: keep it)" ai-code-implement-todo)

("q" "Ask question (C-u: global)" ai-code-ask-question)

("x" "Explain code" ai-code-explain)

("<SPC>" "Send command to AI" ai-code-send-command)

]

["AI Agile Development"

("r" "Refactor Code" ai-code-refactor-book-method)

("t" "Test Driven Development" ai-code-tdd-cycle)

("v" "Pull or Review Code Change" ai-code-pull-or-review-diff-file)

("p" "Open prompt file" ai-code-open-prompt-file)

("b" "Send prompt block to AI" ai-code-prompt-send-block)

("!" "Run Current File or Command" ai-code-run-current-file-or-shell-cmd)

]

["Other Tools"

("e" "Debug exception (C-u: global)" ai-code-investigate-exception)

("f" "Fix Flycheck errors in scope" ai-code-flycheck-fix-errors-in-scope)

("k" "Copy Cur File Name (C-u: full)" ai-code-copy-buffer-file-name-to-clipboard)

("o" "Open Clipboard file dir" ai-code-open-clipboard-file-path-as-dired)

("|" "Apply prompt on file" ai-code-apply-prompt-on-current-file)

]

])

;;;###autoload

(global-set-key (kbd "C-c a") #'ai-code-menu)

;; When in a special buffer (e.g., *claude-code*) and using evil-mode,

;; pressing SPC in normal state will send the prompt.

;; following code is buggy

(defvar ai-code--original-spc-command-in-evil-normal-state nil

"Original command for SPC in `evil-normal-state`.")

(defun ai-code-spc-command-for-special-buffer-in-evil ()

"In special buffers (*...*), run `ai-code-send-command`.

Otherwise, run the original command for SPC."

(interactive)

(if (and (string-prefix-p "*" (buffer-name))

(string-suffix-p "*" (buffer-name)))

(call-interactively #'ai-code-send-command)

(when ai-code--original-spc-command-in-evil-normal-state

(call-interactively ai-code--original-spc-command-in-evil-normal-state))))

(with-eval-after-load 'evil

(when (boundp 'evil-normal-state-map)

(unless ai-code--original-spc-command-in-evil-normal-state

(setq ai-code--original-spc-command-in-evil-normal-state

(lookup-key evil-normal-state-map (kbd "SPC"))))

(when ai-code--original-spc-command-in-evil-normal-state

(define-key evil-normal-state-map (kbd "SPC")

#'ai-code-spc-command-for-special-buffer-in-evil))))

(provide 'ai-code-interface)

;;; ai-code-interface.el ends here

Sunbelt Computer Software

PL/B Language Development and Support

Navigation Menu

Repository navigation

ai-code-interface.el

ai-code-interface.el

Sunbelt Computer Software

PL/B Language Development and Support

FilesExpand file tree

ai-code-interface.el

Latest commit

History

ai-code-interface.el

File metadata and controls