comparison repoint.sml @ 2311:186a452dddd3

Bitbucket -> Sourcehut, and subrepo update

     shall not be used in advertising or otherwise to promote the sale,
     use or other dealings in this Software without prior written
     authorization.
 *)
 
-val repoint_version = "1.1.1"
+val repoint_version = "1.2"
 
 
 datatype vcs =
          HG |
          GIT |

                        (fn c => isAlphaNum c orelse c = #"-" orelse c = #"_")
                        (explode arg)
                 then arg
                 else "\"" ^ arg ^ "\""
             fun check arg =
-                let val valid = explode " /#:;?,._-{}@=+"
+                let val valid = explode " /#:;?,._-{}@=+%"
                 in
                     app (fn c =>
                             if isAlphaNum c orelse
                                List.exists (fn v => v = c) valid orelse
                                c > chr 127

             service = "github",
             supports = [GIT],
             remote_spec = {
                 anon = SOME "https://github.com/{owner}/{repository}",
                 auth = SOME "ssh://{vcs}@github.com/{owner}/{repository}"
+            }
+          },
+          { service = "sourcehut",
+            supports = [HG, GIT],
+            remote_spec = {
+                anon = SOME "https://{vcs}.sr.ht/%7E{owner}/{repository}",
+                auth = SOME "ssh://{vcs}@{vcs}.sr.ht/%7E{owner}/{repository}"
             }
           }
         ]
 
     fun vcs_name vcs =