sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 17:04:52 +09:00
Code Issues Activity

UI: In RepoSourceR page, mention SSH clone address

Browse source
This commit is contained in:
fr33domlover 2022-09-16 14:04:24 +00:00
parent 40f741e504
commit 1c8c6d9d24
4 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Vervis/Web/Darcs.hs
View file

@ -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

3
src/Vervis/Web/Git.hs
View file

@ -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

7
templates/repo/source-darcs.hamlet
View file

@ -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

7
templates/repo/source-git.hamlet
View file

@ -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