From 37c8fa06c756a1e051b3ec496032bfee077cbcaa Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Fri, 29 Jan 2021 02:30:43 +0100
Subject: [PATCH] website: Add link to Weblate in language menu.
* website/apps/base/templates/components.scm (navbar): Add a link to Weblate
in the language dropdown.
---
website/apps/base/templates/components.scm | 35 ++++++++++++----------
1 file changed, 20 insertions(+), 15 deletions(-)
@@ -430,21 +430,26 @@ manual.
;; Languages dropdown.
,(menu-dropdown #:label (locale-display-name) #:active-item active-item
#:items
- (map-in-order
- (lambda (ietf-info)
- (let ((lingua (car ietf-info))
- (code (cdr ietf-info)))
- (setlocale LC_ALL (string-append lingua ".utf8"))
- (let ((out (menu-item #:label (locale-display-name)
- #:active-item active-item
- #:url (guix-url (string-append code "/")
- #:localize #f))))
- (setlocale LC_ALL "")
- out)))
- (sort (delete %current-lingua
- ietf-tags-file-contents
- (lambda (a b) (string=? a (car b))))
- (lambda (a b) string<?))))))
+ (append
+ (map-in-order
+ (lambda (ietf-info)
+ (let ((lingua (car ietf-info))
+ (code (cdr ietf-info)))
+ (setlocale LC_ALL (string-append lingua ".utf8"))
+ (let ((out (menu-item #:label (locale-display-name)
+ #:active-item active-item
+ #:url (guix-url (string-append code "/")
+ #:localize #f))))
+ (setlocale LC_ALL "")
+ out)))
+ (sort (delete %current-lingua
+ ietf-tags-file-contents
+ (lambda (a b) (string=? a (car b))))
+ (lambda (a b) string<?)))
+ (list
+ (menu-item #:label (G_ "Translate")
+ #:active-item active-item
+ #:url "https://translate.fedoraproject.org/projects/guix/website"))))))
;; Menu button.
--
2.30.0