Some less good news: I found out that the https stuff is not working right for all sites. I tested though... the code works *before* I wrapped it in custom-binary-input/output-port. After being wrapped though, strange things happen. For some sites (eg "https://webmention.net/") things seem fine: scheme@(guile-user)> (http-get (string->uri "https://webmention.net/")) $7 = #< version: (1 . 1) code: 200 reason-phrase: "OK" headers: ((server . "nginx/1.9.10") (date . #) (content-type text/html (charset . "UTF-8")) (transfer-encoding (chunked)) (connection close) (x-powered-by . "PHP/5.6.21-1+donate.sury.org~trusty+4")) port: #> $8 = "\n\n\n Webmention\n \n\n\n\n

\n \n

Webmention

\n \n

Webmention is a simple way to notify any URL when you link to it from your site.

\n \n

The Webmention specification is being developed under the W3C Social Web Working Group.
Latest published version
Latest editor's draft
Implementations
The specification was contributed to the W3C by the IndieWeb community. More information and history of the spec can be found on the IndieWeb wiki.

\n \n

\n\n\n" For other sites, especially ones where the pages are larger, things are broken. For example, let's try to pull down the site of friend Joey Hess: scheme@(guile-user)> (http-get (string->uri "https://joeyh.name/")) $9 = #< version: (1 . 1) code: 200 reason-phrase: "OK" headers: ((date . #) (server . "Apache/2.4.10 (Debian)") (last-modified . #) (etag "195c-53f9d4af683f3" . #t) (accept-ranges bytes) (content-length . 6492) (vary accept-encoding) (cache-control (max-age . 0)) (expires . #) (connection close) (content-type text/html)) port: #> $10 = "moz-background-size: cover;\n -o-background-size: cover;\n background-size: cover;\n}\n.sidebar {\n background: none;\n border: none;\n}\ninput#searchbox {\n display: none;\n}\n#pageinfo {\n display: none;\n}\n.pageheader .actions ul {\n border-bottom: none;\n}\n#pagebody {\n margin-left: 20%;\n}\n.archivepagedate {\n font-size: 0.5em;\n}\n.actions {\n display: none;\n}\n\n\n\n\n\n\n\n\n\n\n\n\n