02/07: Embed the locale option in the URI of the package page

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 7d85372accd34999704f1353573b9dec88e26f7c
Author: Danjela Lura <danielaluraa@gmail.com>
AuthorDate: Mon Jun 22 21:35:02 2020 +0200

    Embed the locale option in the URI of the package page
    
    Signed-off-by: Christopher Baines <mail@cbaines.net>
---
 guix-data-service/web/revision/html.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/web/revision/html.scm 
b/guix-data-service/web/revision/html.scm
index c37683f..bc1aff7 100644
--- a/guix-data-service/web/revision/html.scm
+++ b/guix-data-service/web/revision/html.scm
@@ -688,7 +688,8 @@
                     (td (@ (class "text-right"))
                         (a (@ (href ,(string-append
                                       (string-drop-right path-base 1)
-                                      "/" name "/" version)))
+                                      "/" name "/" version
+                                      "?locale=" (assoc-ref query-parameters 
'locale))))
                            "More information")))))
                packages))))))
       ,@(if show-next-page?
@@ -1939,7 +1940,8 @@ figure {
                                       (string-join
                                        (drop-right (string-split path-base 
#\/) 1)
                                        "/")
-                                      "/package/" package-name "/" 
package-version)))
+                                      "/package/" package-name "/" 
package-version
+                                      "?locale="  (assq-ref query-parameters 
'locale))))
                            ,package-name " @ " ,package-version))
                     ,@(if (member "linter" fields)
                           `((td (span (@ (style "font-family: monospace; 
display: block;"))