Chore: Add region location info with git relative path in prompts (#48)

* Add region location info with git relative path in prompts

* Update ai-code-discussion.el

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

* Update ai-code-change.el

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

* Update ai-code-change.el

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

---------

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

Author: 3 people

ai-code-change.el

@@ -20,6 +20,7 @@
 (declare-function ai-code-read-string "ai-code-input")
 (declare-function ai-code--insert-prompt "ai-code-prompt-mode")
 (declare-function ai-code--get-clipboard-text "ai-code-interface")
+(declare-function ai-code--get-git-relative-paths "ai-code-discussion")
 
 (defun ai-code--is-comment-line (line)
   "Check if LINE is a comment line based on current buffer's comment syntax.
@@ -99,6 +100,12 @@ Argument ARG is the prefix argument."
                         (buffer-substring-no-properties (region-beginning) (region-end))))
          (region-start-line (when region-active
                               (line-number-at-pos (region-beginning))))
+         (region-end-line (when region-active
+                           (line-number-at-pos (region-end))))
+         (git-relative-path (when (and region-active buffer-file-name)
+                             (car (ai-code--get-git-relative-paths (list buffer-file-name)))))
+         (region-location-info (when (and region-active git-relative-path region-start-line region-end-line)
+                                (format "%s#L%d-L%d" git-relative-path region-start-line region-end-line)))
          (prompt-label
           (cond
            ((and clipboard-context
@@ -123,13 +130,21 @@ Argument ARG is the prefix argument."
          (final-prompt
           (concat initial-prompt
                   (when region-text
-                    (format "\nCode from line %d:\n%s" region-start-line region-text))
+                    (concat "\nSelected region:\n"
+                            (cond
+                             (region-location-info
+                              (concat region-location-info "\n"))
+                             (region-start-line
+                              (format "Start line: %d\n" region-start-line)))
+                            region-text))
                   (when function-name (format "\nFunction: %s" function-name))
                   files-context-string
                   (when (and clipboard-context
                             (string-match-p "\\S-" clipboard-context))
                     (concat "\n\nClipboard context:\n" clipboard-context))
-                  "\nNote: Please make the code change described above.")))
+                  (if region-text
+                      "\nNote: Please apply the code change to the selected region specified above."
+                    "\nNote: Please make the code change described above."))))
     (ai-code--insert-prompt final-prompt)))
 
 ;;;###autoload

ai-code-discussion.el

@@ -91,6 +91,14 @@ CLIPBOARD-CONTEXT is optional clipboard text to append as context."
          (region-active (region-active-p))
          (region-text (when region-active
                         (buffer-substring-no-properties (region-beginning) (region-end))))
+         (region-start-line (when region-active
+                             (line-number-at-pos (region-beginning))))
+         (region-end-line (when region-active
+                           (line-number-at-pos (region-end))))
+         (git-relative-path (when (and region-active buffer-file-name)
+                             (car (ai-code--get-git-relative-paths (list buffer-file-name)))))
+         (region-location-info (when (and region-active git-relative-path region-start-line region-end-line)
+                                (format "%s#L%d-L%d" git-relative-path region-start-line region-end-line)))
          (prompt-label
           (cond
            ((and clipboard-context
@@ -119,14 +127,19 @@ CLIPBOARD-CONTEXT is optional clipboard text to append as context."
          (final-prompt
           (concat question
                   (when region-text
-                    (concat "\n" region-text))
+                    (concat "\nSelected region:\n"
+                            (when region-location-info
+                              (concat region-location-info "\n"))
+                            region-text))
                   (when function-name
                     (format "\nFunction: %s" function-name))
                   files-context-string
                   (when (and clipboard-context
                             (string-match-p "\\S-" clipboard-context))
                     (concat "\n\nClipboard context:\n" clipboard-context))
-                  "\nNote: This is a question only - please do not modify the code.")))
+                  (if region-text
+                      "\nNote: This is a question about the selected region - please do not modify the code."
+                    "\nNote: This is a question only - please do not modify the code."))))
     (ai-code--insert-prompt final-prompt)))
 
 (defun ai-code--get-git-relative-paths (file-paths)