|
65 | 65 | "Alist bucket key for items not yet assigned to any shell.") |
66 | 66 |
|
67 | 67 | (declare-function shell-maker-busy "shell-maker") |
68 | | -(declare-function agent-shell-subscribe-to "agent-shell") |
69 | | -(declare-function agent-shell-unsubscribe "agent-shell") |
70 | 68 | (declare-function markdown-mode "markdown-mode") |
71 | 69 | (declare-function yaml-encode "yaml") |
72 | 70 | (declare-function yaml-parse-string "yaml") |
@@ -734,7 +732,6 @@ Installed as :before advice on `shell-maker-submit'." |
734 | 732 | (advice-add 'shell-maker-submit :before #'agent-shell-queue--on-submit-intercept) |
735 | 733 |
|
736 | 734 | (declare-function shell-maker-busy "shell-maker") |
737 | | -(declare-function agent-shell-queue-only-mode "agent-shell-queue") |
738 | 735 |
|
739 | 736 | (defun agent-shell-queue--intercept-clear () |
740 | 737 | (when (overlayp agent-shell-queue--intercept-overlay) |
@@ -846,10 +843,6 @@ Enforces mutual exclusivity and updates the prompt indicator." |
846 | 843 | (agent-shell-queue--refresh-buffer) |
847 | 844 | (message "agent-shell-queue: queue-intercept disabled in %d buffer(s)" (length cleared)))) |
848 | 845 |
|
849 | | -(declare-function agent-shell-queue--default-state-file "agent-shell-queue-persistence") |
850 | | -(declare-function agent-shell-queue--default-archive-file "agent-shell-queue-persistence") |
851 | | -(declare-function agent-shell-queue--archive-file "agent-shell-queue-persistence") |
852 | | - |
853 | 846 | (defun agent-shell-queue--default-pick-buffer (prompt) |
854 | 847 | "Pick a live agent-shell buffer using PROMPT via `completing-read'." |
855 | 848 | (when-let* ((bufs (agent-shell-buffers))) |
@@ -1007,23 +1000,6 @@ but that yields \"0d\" for a zero delta instead of \"0s\"." |
1007 | 1000 |
|
1008 | 1001 | ;;; Persistence — implementation in agent-shell-queue-persistence.el |
1009 | 1002 |
|
1010 | | -(declare-function agent-shell-queue--serialize-plist "agent-shell-queue-persistence") |
1011 | | -(declare-function agent-shell-queue--deserialize-plist "agent-shell-queue-persistence") |
1012 | | -(declare-function agent-shell-queue--serialize-json "agent-shell-queue-persistence") |
1013 | | -(declare-function agent-shell-queue--deserialize-json "agent-shell-queue-persistence") |
1014 | | -(declare-function agent-shell-queue--serialize-yaml "agent-shell-queue-persistence") |
1015 | | -(declare-function agent-shell-queue--deserialize-yaml "agent-shell-queue-persistence") |
1016 | | -(declare-function agent-shell-queue--safe-save-directory "agent-shell-queue-persistence") |
1017 | | -(declare-function agent-shell-queue-serialize "agent-shell-queue-persistence") |
1018 | | -(declare-function agent-shell-queue-deserialize "agent-shell-queue-persistence") |
1019 | | -(declare-function agent-shell-queue-register-format "agent-shell-queue-persistence") |
1020 | | -(declare-function agent-shell-queue-format-file-extension "agent-shell-queue-persistence") |
1021 | | -(declare-function agent-shell-queue--append-done-log "agent-shell-queue-persistence") |
1022 | | -(declare-function agent-shell-queue--write-archive "agent-shell-queue-persistence") |
1023 | | -(declare-function agent-shell-queue--log-write "agent-shell-queue-persistence") |
1024 | | -(declare-function agent-shell-queue--load "agent-shell-queue-persistence") |
1025 | | -(declare-function agent-shell-queue--migrate-queue-struct "agent-shell-queue-persistence") |
1026 | | - |
1027 | 1003 | ;;;###autoload |
1028 | 1004 | (defun agent-shell-queue-buffer-archive () |
1029 | 1005 | "Archive the item at point to the archive file and remove it from the queue. |
@@ -4907,8 +4883,6 @@ how the window was opened (i.e. independent of `quit-restore' state)." |
4907 | 4883 | (progn (delete-window win) (kill-buffer buf)) |
4908 | 4884 | (kill-buffer buf)))) |
4909 | 4885 |
|
4910 | | -(declare-function agent-shell-set-session-mode "agent-shell") |
4911 | | - |
4912 | 4886 | (defun agent-shell-queue--capture-plan-mode-choice (buf) |
4913 | 4887 | "When BUF's session is in a blocking mode, prompt for what to do. |
4914 | 4888 | Returns non-nil if the item should be queued as `blocked.skip'. |
@@ -5045,8 +5019,6 @@ If a draft was previously saved from this buffer it is updated in place." |
5045 | 5019 | (thing-at-point 'word t))))) |
5046 | 5020 | (insert thing))) |
5047 | 5021 |
|
5048 | | -(declare-function annotated-completing-read-context-from-point "annotated-completing-read") |
5049 | | - |
5050 | 5022 | (defun agent-shell-queue-capture-select-context () |
5051 | 5023 | "Select a string from the origin buffer's context via completing-read and insert it." |
5052 | 5024 | (interactive) |
@@ -5543,9 +5515,6 @@ For each item whose ID already exists, prompts to keep, replace, or assign new I |
5543 | 5515 | `new' creates a clean new session via `agent-shell-new-shell'. |
5544 | 5516 | `fork' uses the ACP fork session option via `agent-shell-fork'.") |
5545 | 5517 |
|
5546 | | -(declare-function agent-shell-new-shell "agent-shell") |
5547 | | -(declare-function agent-shell-fork "agent-shell") |
5548 | | - |
5549 | 5518 | (defmacro agent-shell-queue-with-paused-session (buf &rest body) |
5550 | 5519 | "Execute BODY with BUF's queue session paused, then always resume it. |
5551 | 5520 | BUF can be a buffer object or buffer name string. |
@@ -6182,8 +6151,6 @@ interjection buffer is already pending." |
6182 | 6151 |
|
6183 | 6152 | ;;; Queue-only mode |
6184 | 6153 |
|
6185 | | -(declare-function shell-maker-busy "shell-maker") |
6186 | | - |
6187 | 6154 | (defcustom agent-shell-queue-input-mode-default 'default |
6188 | 6155 | "Default input routing mode for new agent-shell sessions. |
6189 | 6156 | One of `default' (normal shell input), `queue-intercept' (capture user |
|
0 commit comments