refactor: Extract DeepSeek API key reading into reusable functions

lisp/init-ai.el

@@ -3,6 +3,16 @@
 
 ;;; Code:
 
+(defun deepseek-api-key-path ()
+  "Return the path to the DeepSeek API key file."
+  (expand-file-name "~/.config/llm/deepseek/api_key.txt"))
+
+(defun read-deepseek-api-key ()
+  "Read and return the DeepSeek API key from the configured file."
+  (with-temp-buffer
+    (insert-file-contents (deepseek-api-key-path))
+    (string-trim (buffer-string))))
+
 (use-package gptel
   :ensure t
   :config
@@ -12,18 +22,14 @@
           :host "api.deepseek.com"
           :endpoint "/chat/completions"
           :stream t
-	  :key (with-temp-buffer
+          :key (read-deepseek-api-key)
-		 (insert-file-contents "~/.config/llm/deepseek/api_key.txt")
-		 (string-trim (buffer-string)))
           :models '("deepseek-chat" "deepseek-coder"))))
 
 ;; aider.el
 (add-to-list 'load-path "~/.emacs.d/site-lisp/aider/")
 (require 'aider)
 (setq aider-args '("--model" "deepseek/deepseek-coder"))
-(setenv "DEEPSEEK_API_KEY" (with-temp-buffer
+(setenv "DEEPSEEK_API_KEY" (read-deepseek-api-key))
-                            (insert-file-contents "~/.config/llm/deepseek/api_key.txt")
-                            (string-trim (buffer-string))))
 
 (provide 'init-ai)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;