[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/llm 57cf82e4af 50/71: Update plz-media-type.el
From: |
ELPA Syncer |
Subject: |
[elpa] externals/llm 57cf82e4af 50/71: Update plz-media-type.el |
Date: |
Fri, 17 May 2024 00:58:48 -0400 (EDT) |
branch: externals/llm
commit 57cf82e4af46d41c7cdf03ff0ba371eeeeb88c75
Author: Roman Scherer <roman@burningswell.com>
Commit: Roman Scherer <roman@burningswell.com>
Update plz-media-type.el
---
plz-media-type.el | 27 ++++++++++++++++++---------
1 file changed, 18 insertions(+), 9 deletions(-)
diff --git a/plz-media-type.el b/plz-media-type.el
index c20855487d..4216cba7b9 100644
--- a/plz-media-type.el
+++ b/plz-media-type.el
@@ -204,19 +204,22 @@ HTTP responses. The media type sets the body slot of the
plz-response structure to the unmodified value of the HTTP response
body. It is used as the default media type processor.")
-(cl-defmethod plz-media-type-else ((media-type
plz-media-type:application/octet-stream) error)
+(cl-defmethod plz-media-type-else
+ ((media-type plz-media-type:application/octet-stream) error)
"Transform the ERROR into a format suitable for MEDIA-TYPE."
(when-let (response (plz-error-response error))
(setf (plz-error-response error) (plz-media-type-then media-type
response)))
error)
-(cl-defmethod plz-media-type-then ((media-type
plz-media-type:application/octet-stream) response)
+(cl-defmethod plz-media-type-then
+ ((media-type plz-media-type:application/octet-stream) response)
"Transform the RESPONSE into a format suitable for MEDIA-TYPE."
(ignore media-type)
(setf (plz-response-body response) (buffer-string))
response)
-(cl-defmethod plz-media-type-process ((media-type
plz-media-type:application/octet-stream) process chunk)
+(cl-defmethod plz-media-type-process
+ ((media-type plz-media-type:application/octet-stream) process chunk)
"Process the CHUNK according to MEDIA-TYPE using PROCESS."
(ignore media-type)
(save-excursion
@@ -267,7 +270,8 @@ accordingly.")
:null-object null-object
:object-type object-type)) )
-(cl-defmethod plz-media-type-then ((media-type
plz-media-type:application/json) response)
+(cl-defmethod plz-media-type-then
+ ((media-type plz-media-type:application/json) response)
"Transform the RESPONSE into a format suitable for MEDIA-TYPE."
(setf (plz-response-body response) (plz-media-type--parse-json-object
media-type))
response)
@@ -331,14 +335,16 @@ will always be set to nil.")
(funcall handler (cdr result)))
(setq result (plz-media-type:application/json-array--consume-next
media-type))))))
-(cl-defmethod plz-media-type-process ((media-type
plz-media-type:application/json-array) process chunk)
+(cl-defmethod plz-media-type-process
+ ((media-type plz-media-type:application/json-array) process chunk)
"Process the CHUNK according to MEDIA-TYPE using PROCESS."
(ignore media-type)
(cl-call-next-method media-type process chunk)
(plz-media-type:application/json-array--parse-stream media-type)
(set-marker (process-mark process) (point-max)))
-(cl-defmethod plz-media-type-then ((media-type
plz-media-type:application/json-array) response)
+(cl-defmethod plz-media-type-then
+ ((media-type plz-media-type:application/json-array) response)
"Transform the RESPONSE into a format suitable for MEDIA-TYPE."
(ignore media-type)
(plz-media-type:application/json-array--parse-stream media-type)
@@ -386,12 +392,14 @@ will always be set to nil.")
(funcall handler object))
(setq object (plz-media-type:application/x-ndjson--parse-line
media-type))))))
-(cl-defmethod plz-media-type-process ((media-type
plz-media-type:application/x-ndjson) process chunk)
+(cl-defmethod plz-media-type-process
+ ((media-type plz-media-type:application/x-ndjson) process chunk)
"Process the CHUNK according to MEDIA-TYPE using PROCESS."
(cl-call-next-method media-type process chunk)
(plz-media-type:application/x-ndjson--parse-stream media-type))
-(cl-defmethod plz-media-type-then ((media-type
plz-media-type:application/x-ndjson) response)
+(cl-defmethod plz-media-type-then
+ ((media-type plz-media-type:application/x-ndjson) response)
"Transform the RESPONSE into a format suitable for MEDIA-TYPE."
(plz-media-type:application/x-ndjson--parse-stream media-type)
(setf (plz-response-body response) nil)
@@ -408,7 +416,8 @@ body of the plz-response structure is set to the result of
parsing
the HTTP response body with the `libxml-parse-html-region'
function.")
-(cl-defmethod plz-media-type-then ((media-type plz-media-type:application/xml)
response)
+(cl-defmethod plz-media-type-then
+ ((media-type plz-media-type:application/xml) response)
"Transform the RESPONSE into a format suitable for MEDIA-TYPE."
(with-slots (array-type false-object null-object object-type) media-type
(setf (plz-response-body response)
- [elpa] externals/llm 29d7c3f6b8 55/71: Update media type and event source packages, (continued)
- [elpa] externals/llm 29d7c3f6b8 55/71: Update media type and event source packages, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 0f25d08218 66/71: Merge branch 'plz', ELPA Syncer, 2024/05/17
- [elpa] externals/llm 478afbcb41 71/71: Fix byte compilation errors, ELPA Syncer, 2024/05/17
- [elpa] externals/llm b438ae7a72 46/71: Merge pull request #35 from r0man/plz, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 7b2c89f087 41/71: Remove invalid media type usage and on-success-raw callback, ELPA Syncer, 2024/05/17
- [elpa] externals/llm ccfe066654 45/71: Widen before parsing the response, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 9d215d7ba2 58/71: Enable handling errors on streaming, and add requires, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 0fec127d01 60/71: Don't always return "Unknown error" in llm-chat-async, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 6408551c40 70/71: Add NEWS entry for the plz migration, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 7cb3dd4891 47/71: Merge branch 'main' into plz, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 57cf82e4af 50/71: Update plz-media-type.el,
ELPA Syncer <=
- [elpa] externals/llm 759f689fae 56/71: Merge pull request #40 from r0man/plz, ELPA Syncer, 2024/05/17
- [elpa] externals/llm 6054da6b58 65/71: Plz (#46), ELPA Syncer, 2024/05/17
- [elpa] externals/llm 54f38fef5b 63/71: Merge pull request #41 from r0man/plz-timer, ELPA Syncer, 2024/05/17