gptel: Bookkeeping updates

* NEWS: (0.9.8.5): Reduce from 0.9.9 in preparation for upcoming
release.

* gptel-transient.el: Add headers to section defining EIEIO
classes.

* gptel.el (gptel--openai-models): Update pricing change for o3.

Author: karthink

NEWS

@@ -1,6 +1,6 @@
 # -*- mode: org; -*-
 
-* 0.9.9
+* 0.9.8.5
 
 ** Breaking changes
 

gptel-transient.el

@@ -448,6 +448,8 @@ which see."
 
 ;; * Transient classes and methods for gptel
 
+;; ** Class for generic gptel elisp variables
+
 (defclass gptel-lisp-variable (transient-lisp-variable)
   ((display-nil :initarg :display-nil)  ;String to display if value if nil
    (display-map :initarg :display-map :initform nil)) ;Display string from alist display-map
@@ -469,6 +471,8 @@ which see."
            (oset obj value value)
            gptel--set-buffer-locally))
 
+;; ** Class for managing gptel tools
+
 (defclass gptel--switch (transient-switch)
   ((category :initarg :category))
   "Class used for arguments that share a category.")
@@ -491,6 +495,8 @@ It is a list of the category and argument, e.g.
       (oset obj value nil))
     (oset transient--prefix scope state)))
 
+;; ** Class for managing gptel tool categories
+
 (defclass gptel--switch-category (transient-switch)
   ((category :initarg :category))
   "Class used for arguments that switch a group of other arguments.
@@ -544,6 +550,8 @@ Their own value is ignored")
   ;; Finally set the "value" of the category itself
   (oset obj value value))
 
+;; ** Class for gptel options that are three-way switches
+
 (defclass gptel--switches (gptel-lisp-variable)
   ((display-if-true :initarg :display-if-true :initform "True")
    (display-if-false :initarg :display-if-false :initform "False"))
@@ -564,6 +572,8 @@ Their own value is ignored")
         (propertize display-if-true
                     'face (if value 'transient-value 'transient-inactive-value))))))
 
+;; ** Class for gptel's scope management, singleton
+
 (defclass gptel--scope (gptel--switches)
   ((display-if-true :initarg :display-if-true :initform "buffer")
    (display-if-false :initarg :display-if-false :initform "global"))
@@ -599,6 +609,8 @@ This is used only for setting this variable via `gptel-menu'.")
            (oref obj variable)
            (oset obj value value)))
 
+;; ** Class for managing gptel's backend and model, singleton
+
 (defclass gptel-provider-variable (transient-lisp-variable)
   ((backend       :initarg :backend)
    (backend-value :initarg :backend-value)
@@ -625,6 +637,8 @@ This is used only for setting this variable via `gptel-menu'.")
              gptel--set-buffer-locally))
   (transient-setup))
 
+;; ** Class for infix options with in-buffer overlay display
+
 (defclass gptel-option-overlaid (transient-option)
   ((display-nil :initarg :display-nil)
    (overlay :initarg :overlay))

gptel.el

@@ -663,8 +663,8 @@ the same as t."
      :capabilities (reasoning media tool-use json url)
      :mime-types ("image/jpeg" "image/png" "image/gif" "image/webp")
      :context-window 200
-     :input-cost 10
-     :output-cost 40
+     :input-cost 2
+     :output-cost 8
      :cutoff-date "2024-05")
     (o3-mini
      :description "High intelligence at the same cost and latency targets of o1-mini"