[nongnu] elpa/git-commit 75647d08a0: magit-clone-url-format: Drop ~ prefix from sourcehut entry

[ELPA Syncer]

branch: elpa/git-commit
commit 75647d08a097157231c598648e2f632279ff3a41
Author: Kyle Meyer <kyle@kyleam.com>
Commit: Kyle Meyer <kyle@kyleam.com>

    magit-clone-url-format: Drop ~ prefix from sourcehut entry
    
    Don't hard code the "~" prefix because sourcehut plans to use a
    different prefix for organizations.
    
    Closes #4753.
---
 lisp/magit-clone.el | 2 +-
 test/magit-tests.el | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/magit-clone.el b/lisp/magit-clone.el
index 23abff7afe..2948872593 100644
--- a/lisp/magit-clone.el
+++ b/lisp/magit-clone.el
@@ -94,7 +94,7 @@ as the username itself."
                        (string :tag "User name or git variable"))))
 
 (defcustom magit-clone-url-format
-  '(("git.sr.ht" . "git@%h:~%n")
+  '(("git.sr.ht" . "git@%h:%n")
     (t . "git@%h:%n.git"))
   "Format(s) used when turning repository names into urls.
 
diff --git a/test/magit-tests.el b/test/magit-tests.el
index 82630365e8..e6230f0e49 100644
--- a/test/magit-tests.el
+++ b/test/magit-tests.el
@@ -307,7 +307,7 @@ Enter passphrase for key '/home/user/.ssh/id_rsa': "
 
 (ert-deftest magit-clone:--name-to-url-format-defaults ()
   (magit-with-test-repository
-   (magit-git "config" "--add" "sourcehut.user" "shuser")
+   (magit-git "config" "--add" "sourcehut.user" "~shuser")
    (magit-git "config" "--add" "github.user" "ghuser")
    (magit-git "config" "--add" "gitlab.user" "gluser")
    ;; No explicit service
@@ -327,14 +327,14 @@ Enter passphrase for key '/home/user/.ssh/id_rsa': "
                          "git@github.com:a/b.git"))
    (should (string-equal (magit-clone--name-to-url "gl:t/s")
                          "git@gitlab.com:t/s.git"))
-   (should (string-equal (magit-clone--name-to-url "sh:x/y")
+   (should (string-equal (magit-clone--name-to-url "sh:~x/y")
                          "git@git.sr.ht:~x/y"))
    ;; Explicit user (long service names)
    (should (string-equal (magit-clone--name-to-url "github:a1/b1")
                          "git@github.com:a1/b1.git"))
    (should (string-equal (magit-clone--name-to-url "gitlab:t1/s1")
                          "git@gitlab.com:t1/s1.git"))
-   (should (string-equal (magit-clone--name-to-url "sourcehut:x1/y1")
+   (should (string-equal (magit-clone--name-to-url "sourcehut:~x1/y1")
                          "git@git.sr.ht:~x1/y1"))))
 
 (ert-deftest magit-clone:--name-to-url-format-single-string ()