loader: add proper HTTP auth handling

Until now, we just stuffed it into the URL, which was somewhat
problematic.

Mainstream browsers like to hide the username from the user, but I've
decided to follow w3m: buffers do not receive auth info, but the pager
itself displays the username.

As for the origin: I wanted to use the regular origin, but that does not
work with any custom URL.  So instead of changing the regular origin
function, I've added another.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/types/url.nim b/src/types/url.nim
index 52aa67c3..0c460bbd 100644
--- a/src/types/url.nim
+++ b/src/types/url.nim
@@ -1169,6 +1169,17 @@ proc origin*(url: URL): Origin =
   else:
     return Origin(t: otOpaque, s: $url)
 
+# This follows somewhat different rules from the standard:
+# * with htNone, the origin is opaque.
+# * with other host types, the origin is a tuple origin.
+proc authOrigin*(url: URL): Origin =
+  if url.hostType != htNone:
+    return Origin(
+      t: otTuple,
+      tup: (url.scheme, url.hostname, url.port, none(string))
+    )
+  return Origin(t: otOpaque, s: $url)
+
 proc `==`*(a, b: Origin): bool {.error.} =
   discard