Feat: Add toggle buffer window dedication command (#69)

* add example games

* Improve Connect4 AI with minimax, alpha-beta pruning, and smarter
evaluation function

* Add toggle buffer window dedication command

* Update examples/battleship/game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/connect4/test_game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/test_game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/test_game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/test_fleet.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/game.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* Update examples/battleship/fleet.py

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

* bump version. add entry in HISTORY

---------

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

Author: tninja

HISTORY.org

@@ -3,6 +3,8 @@
 
 ** Main branch change
 
+- Feat: Add toggle buffer window dedication command
+- Chore: Make ai-code-implement-todo flexible to modify code in the context. When it is a pure new code block, place it after the comment.
 - Feat: Improve Implement TODO feature
   - ai-code-implement-todo (C-a i) on blank line will ask user and insert TODO comment.
   - After ai-code-implement-todo (C-a i) finishing code generation, mark TODO as DONE, instead of delete it

ai-code-change.el

@@ -110,43 +110,6 @@ Returns (TEXT START-POS END-POS) if TODO found, nil otherwise."
                     (if region-active (region-beginning) (line-beginning-position))
                     (if region-active (region-end) (line-end-position))))))))))
 
-(defun ai-code--handle-todo-implementation (todo-info arg)
-  "Handle TODO implementation with given TODO-INFO.
-ARG is the prefix argument for clipboard context."
-  (let* ((clipboard-context (when arg (ai-code--get-clipboard-text)))
-         (todo-content (nth 0 todo-info))
-         (todo-region-beg (nth 1 todo-info))
-         (todo-region-end (nth 2 todo-info))
-         (region-location-info (ai-code--get-region-location-info todo-region-beg todo-region-end))
-         (files-context-string (ai-code--get-context-files-string))
-         (function-name (ai-code--get-function-name-for-comment))
-         (function-context (if function-name
-                               (format "\nFunction: %s" function-name)
-                             ""))
-         (prompt-label (if (and clipboard-context
-                               (string-match-p "\\S-" clipboard-context))
-                          "Implement TODO in place (clipboard context): "
-                        "Implement TODO in place: "))
-         (initial-prompt
-          (format (concat "Please implement the requirement from the following TODO comment. "
-                          "After implementation, mark the original TODO comment as 'DONE'. "
-                          "For example, a comment `;; TODO: new feature` could become `;; DONE: new feature`.\n"
-                          "The TODO comment to implement is inside file %s.\n\n"
-                          "Context about the location:\n%s\n\n"
-                          "The TODO comment content:\n```\n%s\n```\n%s%s")
-                  (file-name-nondirectory buffer-file-name)
-                  region-location-info
-                  todo-content
-                  function-context
-                  files-context-string))
-         (prompt (ai-code-read-string prompt-label initial-prompt))
-         (final-prompt
-          (concat prompt
-                  (when (and clipboard-context
-                            (string-match-p "\\S-" clipboard-context))
-                    (concat "\n\nClipboard context:\n" clipboard-context)))))
-    (ai-code--insert-prompt final-prompt)))
-
 (defun ai-code--generate-prompt-label (clipboard-context region-active function-name)
   "Generate appropriate prompt label based on context."
   (cond
@@ -219,7 +182,7 @@ Argument ARG is the prefix argument."
   (let* ((region-active (region-active-p))
          (todo-info (ai-code--detect-todo-info region-active)))
     (if todo-info
-        (ai-code--handle-todo-implementation todo-info arg)
+        (ai-code-implement-todo arg)
       (ai-code--handle-regular-code-change arg region-active))))
 
 ;;;###autoload
@@ -356,13 +319,13 @@ ARG is the prefix argument for clipboard context."
            (region-text
             (unless (ai-code--is-comment-block region-text)
               (user-error "Selected region must be a comment block"))
-            (format (concat
-                     "Please implement code after this requirement comment block in the selected region. "
-                     "Keep the comment in place and ensure it begins with a DONE prefix (change TODO to DONE or prepend DONE if no prefix) before adding the implementation code after it. "
-                     "Keep the existing code structure and add the implementation after this specific block.\n%s\n%s%s%s")
+           (format (concat
+                     "Please implement code for this requirement comment block in the selected region. "
+                     "Keep the comment in place and ensure it begins with a DONE prefix (change TODO to DONE or prepend DONE if no prefix). "
+                     "If this is a pure new code block, place it after the comment; otherwise keep the existing structure and make corresponding change for the context.\n%s\n%s%s%s")
                     region-location-line region-text function-context files-context-string))
            (is-comment
-            (format "Please implement code after this requirement comment on line %d: '%s'. Keep the comment in place and ensure it begins with a DONE prefix (change TODO to DONE or prepend DONE if needed) before adding the implementation code after it. Keep the existing code structure and add the implementation after this specific comment.%s%s"
+            (format "Please implement code for this requirement comment on line %d: '%s'. Keep the comment in place and ensure it begins with a DONE prefix (change TODO to DONE or prepend DONE if needed). If this is a pure new code block, place it after the comment; otherwise keep the existing structure and make corresponding change for the context.%s%s"
                     current-line-number current-line function-context files-context-string))
            ;; (function-name
            ;;  (format "Please implement code after all TODO comments in function '%s'. The TODOs are TODO comments. Keep each comment in place and ensure each begins with a DONE prefix (change TODO to DONE or prepend DONE if needed) before adding implementation code after it. Keep the existing code structure and only add code after these marked items.%s"

ai-code-file.el

@@ -429,6 +429,28 @@ Includes stored context entries for the current Git repository if available."
                                (reverse entries)
                                "\n"))))))))
 
+;;;###autoload
+(defun ai-code-toggle-current-buffer-dedicated (arg)
+  "Toggle the dedicated state of the current buffer's window.
+When a window is dedicated, Emacs will not automatically reuse it for displaying other buffers.
+With prefix ARG (C-u), toggle dedication for every window in the current frame."
+  ;; DONE: if C-u pressed, toggle dedicate to all buffers inside current window
+  (interactive "P")
+  (let* ((targets (if arg
+                      (window-list nil 'no-minibuf)
+                    (list (selected-window))))
+         (results '()))
+    (dolist (window targets)
+      (let ((buffer (window-buffer window)))
+        (when (buffer-file-name buffer)
+          (let ((new-status (not (window-dedicated-p window))))
+            (set-window-dedicated-p window new-status)
+            (push (format "%s: %s" (buffer-name buffer) (if new-status "dedicated" "free")) results)))))
+    ;; DONE: show each affected buffer name and dedicate status
+    (if results
+        (message "Window dedication updated: %s" (mapconcat #'identity (nreverse results) ", "))
+      (message "No file buffers found in target windows"))))
+
 (provide 'ai-code-file)
 
 ;;; ai-code-file.el ends here 

ai-code-interface.el

@@ -1,7 +1,7 @@
 ;;; ai-code-interface.el --- AI code interface for editing AI prompt files -*- lexical-binding: t; -*-
 
 ;; Author: Kang Tu <tninja@gmail.com>
-;; Version: 0.61
+;; Version: 0.62
 ;; Package-Requires: ((emacs "26.1") (transient "0.8.0") (magit "2.1.0"))
 
 ;; SPDX-License-Identifier: Apache-2.0
@@ -174,7 +174,8 @@ Shows the current backend label to the right."
     ("e" "Debug exception (C-u: clipboard)" 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)
+    ("d" "Toggle current buffer dedicated" ai-code-toggle-current-buffer-dedicated)
+    ;; ("o" "Open Clipboard file dir" ai-code-open-clipboard-file-path-as-dired)
     ("m" "Debug python MCP server" ai-code-debug-mcp)
     ("n" "Take notes from AI session region" ai-code-take-notes)
     ]

examples/README.org

@@ -0,0 +1,16 @@
+
+Two games were written with the assistance of aider / aider.el
+
+- [[./battleship][battleship]] - https://en.wikipedia.org/wiki/Battleship_(game)
+  - 2.5h to write the game with human vs. human mode
+    - using DeepSeek model
+  - 1.5h to iterate and add human vs. computer mode
+    - using Claude model
+  - 1h to have a better AI
+    - using OpenAI o4-mini model
+- [[./connect4][connect4]] - https://en.wikipedia.org/wiki/Connect_Four
+  - 0.5h to write the game with basic human vs. computer mode
+  - 0.5h to iterate the AI and make it more effective
+  - all using Claude model
+
+- These games are CLI-based text games. In the future, I plan to create graphical versions using pygame, with the help of aider and aider.el