gptel: Name gptel buffer according to backend

* gptel.el (gptel-default-session, gptel): Name the gptel buffer
according to the default backend.  Delete the variable
`gptel-default-session`.  Fix #174.

* gptel-openai.el (gptel-make-openai): Don't specify a key by
default. Fix #170.

gptel-openai.el

@@ -113,8 +113,7 @@
 
 ;;;###autoload
 (cl-defun gptel-make-openai
-    (name &key header models stream
-          (key 'gptel-api-key)
+    (name &key header models stream key
           (host "api.openai.com")
           (protocol "https")
           (endpoint "/v1/chat/completions"))

gptel-transient.el

@@ -132,7 +132,9 @@ which see."
      :reader
      (lambda (prompt _ history)
        (read-string
-        prompt (generate-new-buffer-name "*ChatGPT*") history)))
+        prompt (generate-new-buffer-name
+                (concat "*" (gptel-backend-name gptel-backend) "*"))
+        history)))
     ("e" "Existing session" "e"
      :class transient-option
      :prompt "Existing session: "

gptel.el

@@ -236,7 +236,6 @@ to the LLM, and after a text insertion."
   :group 'gptel
   :type 'hook)
 
-(defvar gptel-default-session "*ChatGPT*")
 (defcustom gptel-default-mode (if (fboundp 'markdown-mode)
                                'markdown-mode
                              'text-mode)
@@ -1104,22 +1103,26 @@ If region is active, use it as the INITIAL prompt.  Returns the
 buffer created or switched to.
 
 INTERACTIVEP is t when gptel is called interactively."
-  (interactive (list (if current-prefix-arg
-                         (read-string "Session name: " (generate-new-buffer-name gptel-default-session))
-                       gptel-default-session)
-                     (let ((backend (default-value 'gptel-backend)))
+  (interactive
+   (let* ((backend (default-value 'gptel-backend))
+          (backend-name
+           (format "*%s*" (gptel-backend-name backend))))
+     (list (if current-prefix-arg
+               (read-string "Session name: "
+                            (generate-new-buffer-name
+                             backend-name))
+             backend-name)
            (condition-case nil
                (gptel--get-api-key
                 (gptel-backend-key backend))
              ((error user-error)
               (setq gptel-api-key
                     (read-passwd
-                                 (format "%s API key: "
-                                         (gptel-backend-name backend)))))))
+                     (format "%s API key: " backend-name)))))
            (and (use-region-p)
                 (buffer-substring (region-beginning)
                                   (region-end)))
-                     t))
+           t)))
   (with-current-buffer (get-buffer-create name)
     (cond ;Set major mode
      ((eq major-mode gptel-default-mode))