Emacs + AI 折腾日志

(defun gptel-explain-code (bounds &optional directive)
    "Send the selected code from expression to GPT for explanation."
    (interactive
     (list
      (cond
       ;; if it's a region
       ((use-region-p) (cons (region-beginning) (region-end)))
       ;; if it's in text mode, get sentence at point
       ((derived-mode-p 'text-mode)
        (list (bounds-of-thing-at-point 'sentence)))
       ;; otherwise get the line
       (t (cons (line-beginning-position) (line-end-position))))
      (and current-prefix-arg
           (read-string "ChatGPT Directive: "
                        "请帮我总结和解释这段代码的作用。"))))
    (gptel-request
        (buffer-substring-no-properties (car bounds) (cdr bounds)) ;the prompt
      :system (or directive "请帮我总结和解释这段代码的作用。")
      :buffer (current-buffer)
      :context (cons (set-marker (make-marker) (car bounds))
                     (set-marker (make-marker) (cdr bounds)))
      :callback
      (lambda (response info)
        (if (not response)
            (message "ChatGPT response failed with: %s" (plist-get info :status))
          (with-current-buffer (get-buffer-create "*gptel-lookup*")
            (let ((inhibit-read-only t))
           (erase-buffer)
           (insert response))
            (special-mode)
            (display-buffer (current-buffer)
                            `((display-buffer-in-side-window)
                              (side . bottom)
                              (window-height . ,#'fit-window-to-buffer)))))))

    )

(define-key embark-region-map (kbd "0") 'gptel-explain-code)