From 42718849cad130c539d3893672320fbdb528caae Mon Sep 17 00:00:00 2001
From: "bnmcgn@gmail.com" <bnmcgn@gmail.com>
Date: Fri, 21 Feb 2025 09:30:13 -0800
Subject: [PATCH] Added external-format support to ipfs-call
Obviously this could be accomplished with
(let ((drakma:*drakma-default-external-format* :utf-8))
...
but that feels a little too hackish. I suppose that an :external-format
parameter should be added to a bunch of the API methods, but for now the
*external-format* dynamic var is good enough for me.
---
main.lisp | 11 ++++++++---
package.lisp | 3 ++-
2 files changed, 10 insertions(+), 4 deletions(-)
diff --git a/main.lisp b/main.lisp
index 98f2a14..af02dd3 100644
--- a/main.lisp
+++ b/main.lisp
@@ -15,17 +15,21 @@
;; only necessary if yours deviates from the
;; default path. only used for #'pubsub-*
-
+(defparameter *external-format* drakma:*drakma-default-external-format*
+ "Allows control of the external format used when reading from ipfs. The
+ default, borrowed from drakma, is :latin-1. :utf-8 will cause the the
+ resource to be treated as unicode UTF 8. A list of all available formats
+ can be found at https://edicl.github.io/flexi-streams/#external-formats")
;; —————————————————————————————————————
;; BASE
;; STRING LIST [:LIST :BOOLEAN :SYMBOL] → STRING | ALIST | (NIL STRING)
(defun ipfs-call (call arguments &key (parameters nil) (want-stream nil)
- (method :POST))
+ (method :POST) (external-format *external-format*))
"Make an IPFS HTTP API call. Quite commonly used.
Some calls return strings/raw data, and others return JSON.
- When strings/arbitrary data are recieved, they're returned verbatim.
+ When strings/arbitrary data are received, they're returned verbatim.
But, when JSON is returned, it is parsed into a hashtable.
If the JSON is 'error JSON', I.E., it signals that an error has been
recieved, two values are returned: NIL and the string-error-message."
@@ -36,6 +40,7 @@
:method method
:url-encoder #'ipfs::url-encode
:parameters parameters
+ :external-format-in external-format
:want-stream want-stream))))
(if want-stream
(car result)
diff --git a/package.lisp b/package.lisp
index cad7346..d600ee9 100644
--- a/package.lisp
+++ b/package.lisp
@@ -169,4 +169,5 @@
;; version calls
:version
:version-deps
- #:with-files-write))
+ #:with-files-write
+ #:*external-format*))