cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Properly encode branch names in links

Browse source 
At least from the home page, this fixes links where the branch name contains a
/.
This commit is contained in:
Christopher Baines 2021-02-09 21:36:34 +00:00
parent 146ffbe5eb
commit 417541f116
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix-data-service/web/view/html.scm
View file

@ -26,6 +26,7 @@
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-19) #:use-module (srfi srfi-19)
#:use-module (web uri)
#:use-module (texinfo) #:use-module (texinfo)
#:use-module (texinfo html) #:use-module (texinfo html)
#:use-module (json) #:use-module (json)
@ -368,9 +369,12 @@ time."
((name commit date revision-exists? job-events) ((name commit date revision-exists? job-events)
`(tr `(tr
(td (td
(a (@ (href ,(string-append (a (@ (href ,(encode-and-join-uri-path
"/repository/" (number->string git-repository-id) (list
"/branch/" name))) "repository"
(number->string git-repository-id)
"branch"
name))))
,name)) ,name))
(td ,date) (td ,date)
(td ,@(if (string=? commit "") (td ,@(if (string=? commit "")