Client API: add a pretty printer

1 files changed, 19 insertions, 0 deletions

diff --git a/src/scm/webid-oidc/client/client.scm b/src/scm/webid-oidc/client/client.scm
index 66f8b74..1bf1c7c 100644
--- a/src/scm/webid-oidc/client/client.scm
+++ b/src/scm/webid-oidc/client/client.scm
@@ -34,6 +34,7 @@
   #:use-module (web http)
   #:use-module (ice-9 optargs)
   #:use-module (ice-9 receive)
+  #:use-module (ice-9 pretty-print)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-26)
@@ -52,6 +53,8 @@
    client-redirect-uri
 
    client
+
+   ->sexp
    )
   #:declarative? #t)
 
@@ -60,6 +63,22 @@
   (key-pair #:init-keyword #:key-pair #:getter client-key-pair)
   (redirect-uri #:init-keyword #:redirect-uri #:getter client-redirect-uri))
 
+(define-method (->sexp (client <client>))
+  `(begin
+     (use-modules (oop goops) (webid-oidc client))
+     (make <client>
+       #:client-id ,(uri->string (client-id client))
+       #:key-pair (quote ,(client-key-pair client))
+       #:redirect-uri ,(uri->string (client-redirect-uri client)))))
+
+(define-method (write (client <client>) port)
+  (pretty-print (->sexp client) port))
+
+(define-method (display (client <client>) port)
+  (format port "#<<client> client-id=~a redirect-uri=~a>"
+          (uri->string (client-id client))
+          (uri->string (client-redirect-uri client))))
+
 (define-method (initialize (client <client>) initargs)
   (next-method)
   (let-keywords