feat(gptel): Add reasoning buffer

lisp/init-completion.el

@@ -45,7 +45,9 @@
 		    "Diff"
 		    "straight"
 		    "\\*Messages\\*"
-		    "\\*Chinese-word-segmentation\\*")
+		    "\\*Chinese-word-segmentation\\*"
+		    "\\*gptel-reasoning\\*"
+		    "\\*gptel-log\\*")
 		  :test 'equal)))
 
 ;; embark，快捷指令

lisp/init-gptel.el

@@ -6,8 +6,9 @@
 
 (use-package gptel
   :config
-  (setq gptel-log-level t)
-  (setq gptel-default-mode 'org-mode)
+  (setq gptel-log-level t
+	gptel-default-mode 'org-mode
+	gptel-include-reasoning "*gptel-reasoning*")
   (add-hook 'gptel-post-response-functions 'gptel-end-of-response)
   (add-hook 'gptel-post-stream-hook 'gptel-auto-scroll)
   (setq gptel-prompt-prefix-alist '((markdown-mode . "## User: ") (org-mode . "** User: ") (text-mode . "## User: ")))