Add filesystem func to transform a path to a URI

Author: tecosaur

base/path.jl

@@ -611,3 +611,21 @@ relpath(path::AbstractString, startpath::AbstractString) =
 for f in (:isdirpath, :splitdir, :splitdrive, :splitext, :normpath, :abspath)
     @eval $f(path::AbstractString) = $f(String(path))
 end
+
+"""
+    uripath(path::AbstractString)
+
+Encode `path` as a URI as per RFC1738, RFC3986, and the
+[Freedesktop File URI spec](https://www.freedesktop.org/wiki/Specifications/file-uri-spec/).
+"""
+function uripath(path::AbstractString)
+    percent_escape(s) = '%' * join(map(
+        b -> uppercase(string(b, base=16)),
+        Vector{UInt8}(s)), '%')
+    encode_uri_component(s) = replace(
+        s, r"[^A-Za-z0-9\-_.~]+" => percent_escape)
+    string("file://", gethostname(), '/',
+           join(map(encode_uri_component,
+                    split(path, Filesystem.path_separator, keepempty=false)),
+                '/'))
+end