;; simple claude code shell command
(defun my/claude-shell-command (prompt)
  "Execute claude command asynchronously and display the output."
  (interactive "sClaude prompt: ")
  (let* ((output-buffer-name "*Claude Output*")
         (output-buffer (get-buffer-create output-buffer-name))
         (shell-program (or (getenv "SHELL") shell-file-name))
         ;; Use shell-quote-argument
         (command-str (format "claude -p %s" (shell-quote-argument prompt))))
    (with-current-buffer output-buffer
      (setq buffer-read-only nil)
      (erase-buffer)
      (setq-local header-line-format (format "Claude Output for prompt: %s" prompt)))
    ;; (display-buffer output-buffer) ; Show the buffer immediately
    (message "Claude command running asynchronously...")
    ;; Start the async process
    (let ((process (start-process "claude-process"
                                  output-buffer-name
                                  shell-program
                                  "-lc"
                                  command-str)))
      ;; Set a function to be called when the process finishes
      (set-process-sentinel process #'my/claude-process-sentinel))))

(defun my/claude-process-sentinel (process _event)
  "Sentinel for the claude async process. Handles success and error cases."
  (when (memq (process-status process) '(exit signal))
    (let* ((buffer (process-buffer process))
           (exit-code (process-exit-status process)))
      (cond
       ;; Case 1: Process failed (non-zero exit code)
       ((/= exit-code 0)
        (kill-buffer buffer)
        (if (= exit-code 127)
            (message "Error: 'claude' command not found. Please ensure it's in your shell's PATH.")
          (message "Error: Claude command failed with exit code %d." exit-code)))

       ;; Case 2: Process succeeded but produced no output
       ((zerop (with-current-buffer buffer (buffer-size)))
        (kill-buffer buffer)
        (message "Claude command finished with no output."))

       ;; Case 3: Success
       (t
        (with-current-buffer buffer
          (setq buffer-read-only t)
          (goto-char (point-min)))
        (display-buffer buffer)
        (message "Claude command finished."))))))

(require 'org-protocol)
(require 'gptel)

(require 'server)
(unless (server-running-p)
  (server-start))

;; Handler for gptel queries from browser
(defun my/gptel-org-protocol-handler (info)
  "Handle gptel query from org-protocol.
INFO is the data passed by org-protocol."
  (let ((text (plist-get info :text)))
    (when (and text (not (string-empty-p text)))
      (let ((query (decode-coding-string (url-unhex-string text) 'utf-8)))
        (message "Received gptel query: %s" query)
        ;; Create or switch to gptel buffer
        (let ((buffer (get-buffer-create "*gptel-browser*")))
          (with-current-buffer buffer
            (unless (eq major-mode 'gptel-default-mode)
              (funcall gptel-default-mode))
            (gptel-mode 1)
            (goto-char (point-max))
            (insert "\n\n--- From Browser ---\n")
            (insert query)
            (insert "\n")
            (goto-char (point-max))
            ;; Send the query to gptel
            (gptel-send)
            (display-buffer buffer)))))))

;; Register the protocol handler
(setq org-protocol-protocol-alist
      (append org-protocol-protocol-alist
              '(("gptel-browser"
                 :protocol "gptel"
                 :function my/gptel-org-protocol-handler))))

;; JavaScript bookmarklet for browser (copy this as bookmark URL):
;; Basic version:
;; javascript:(function(){const selectedText=window.getSelection().toString().trim();if(!selectedText){alert('Please select some text first');return;}const pageTitle=document.title;const pageUrl=window.location.href;const fullText=`From: ${pageTitle}\nURL: ${pageUrl}\n\nSelected text:\n${selectedText}`;const encodedText=encodeURIComponent(fullText);const protocolUrl=`org-protocol://gptel?text=${encodedText}`;window.location.href=protocolUrl;})();

;; Enhanced version with prompt for question:
;; javascript:(function(){const selectedText=window.getSelection().toString().trim();if(!selectedText){alert('Please select some text first');return;}const pageTitle=document.title;const pageUrl=window.location.href;const userQuestion=prompt('Optional: Add a question or context:');let fullText=`From: ${pageTitle}\nURL: ${pageUrl}\n\n`;if(userQuestion){fullText+=`Question: ${userQuestion}\n\n`;}fullText+=`Selected text:\n${selectedText}`;const encodedText=encodeURIComponent(fullText);const protocolUrl=`org-protocol://gptel?text=${encodedText}`;window.location.href=protocolUrl;})();