USING: accessors assocs base64 byte-arrays
combinators.short-circuit continuations couchdb
-furnace.auth.providers json.writer kernel make mirrors
-namespaces sequences strings urls urls.encoding ;
+furnace.auth.providers json kernel make mirrors namespaces
+sequences strings urls urls.encoding ;
IN: furnace.auth.providers.couchdb
! !!! Implement the authentication protocol for CouchDB.
! Copyright (C) 2008 Slava Pestov.
! See https://factorcode.org/license.txt for BSD license.
-USING: json.writer http.server.responses ;
+USING: json http.server.responses ;
IN: furnace.json
: <json-content> ( body -- response )
<PRIVATE
: (pdf-layout) ( page obj -- page )
- [ dup ] [
+ [ ] [
dupd [ pdf-render ] with-string-writer
'[ _ append ] [ change-stream ] curry dip
[ [ , <canvas> ] when ] keep
- ] while drop ;
+ ] while* ;
PRIVATE>