UI: In RepoSourceR page, mention SSH clone address

src/Vervis/Web/Darcs.hs

@@ -48,9 +48,11 @@ import qualified Data.Text.Lazy.Encoding as L (decodeUtf8With)
 
 import Data.MediaType
 import Development.PatchMediaType
+import Network.FedURI
 import Yesod.ActivityPub
 import Yesod.FedURI
 import Yesod.Hashids
+import Yesod.MonadSite
 import Yesod.RenderSource
 
 import qualified Web.ActivityPub as AP
@@ -90,6 +92,7 @@ getDarcsRepoSource repository actor repo dir = do
             let parent = if null dir then [] else init dir
                 dirs = zip parent (tail $ inits parent)
             defaultLayout $ do
+                host <- asksSite siteInstanceHost
                 ms <- lookupGetParam "style"
                 style <-
                     case ms of

src/Vervis/Web/Git.hs

@@ -59,9 +59,11 @@ import qualified Data.Text as T
 import qualified Data.Text.Lazy.Encoding as L (decodeUtf8With)
 
 import Data.MediaType
+import Network.FedURI
 import Yesod.ActivityPub
 import Yesod.FedURI
 import Yesod.Hashids
+import Yesod.MonadSite
 import Yesod.RenderSource
 
 import qualified Web.ActivityPub as AP
@@ -105,6 +107,7 @@ getGitRepoSource repository actor repo ref dir = do
             let parent = if null dir then [] else init dir
                 dirs = zip parent (tail $ inits parent)
             defaultLayout $ do
+                host <- asksSite siteInstanceHost
                 ms <- lookupGetParam "style"
                 style <-
                     case ms of

templates/repo/source-darcs.hamlet

@@ -57,7 +57,12 @@ $# ^{personNavW user}
 
 <h2>Clone
 
-<code>darcs clone @{RepoR repo}
+<p>
+  HTTPS:
+  <code>darcs clone @{RepoR repo}
+<p>
+  SSH:
+  <code>darcs clone USERNAME@#{renderAuthority host}:#{keyHashidText repo}
 
 <h2>Tags
 

templates/repo/source-git.hamlet

@@ -57,7 +57,12 @@ $# ^{personNavW user}
 
 <h2>Clone
 
-<code>git clone @{RepoR repo}
+<p>
+  HTTPS:
+  <code>git clone @{RepoR repo}
+<p>
+  SSH:
+  <code>git clone USERNAME@#{renderAuthority host}:#{keyHashidText repo}
 
 <h2>Branches