06/09: website: Add language selection dropdown to navbar.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit acdac4ba0a9125dab486d8af1f95c4f1127f0168 Author: Florian Pelz AuthorDate: Wed Oct 30 12:12:23 2019 + website: Add language selection dropdown to navbar. * website/apps/base/templates/components.scm (navbar): Add it. (horizontal-skip): New procedure. * website/static/base/css/navbar.css: Add CSS for horizontal-skip. Increase size at which website switches to mobile mode. --- website/apps/base/templates/components.scm | 30 +++--- website/static/base/css/navbar.css | 6 +- 2 files changed, 32 insertions(+), 4 deletions(-) diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm index f39f3fd..beaa13a 100644 --- a/website/apps/base/templates/components.scm +++ b/website/apps/base/templates/components.scm @@ -23,6 +23,7 @@ contact->shtml horizontal-line horizontal-separator +horizontal-skip link-more link-subtle link-yellow @@ -180,6 +181,10 @@ `(src ,(guix-url "static/base/img/h-separator-dark.png"))) (alt "" +(define (horizontal-skip) + "Return SHTML for a small horizontal space." + `(span (@ (class "hskip" + (define (horizontal-line) "Return SHTML for a visible separator to be used in a dropdown menu like a menu item." @@ -408,13 +413,32 @@ manual. (C_ "website menu" (menu-item #:label "Contact" #:active-item active-item #:url (guix-url "contact/"))) (C_ "website menu" (menu-item #:label "Contribute" #:active-item active-item #:url (guix-url "contribute/"))) (C_ "website menu" (menu-item #:label "Security" #:active-item active-item #:url (guix-url "security/"))) - (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/"))) + (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/") + ,(horizontal-skip) + ;; 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
06/09: website: Add language selection dropdown to navbar.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit ed78bab2d18c73410c8b7d07c65b14812ef15d58 Author: Florian Pelz Date: Wed Oct 30 12:12:23 2019 + website: Add language selection dropdown to navbar. * website/apps/base/templates/components.scm (navbar): Add it. (horizontal-skip): New procedure. * website/static/base/css/navbar.css: Add CSS for horizontal-skip. Increase size at which website switches to mobile mode. --- website/apps/base/templates/components.scm | 30 +++--- website/static/base/css/navbar.css | 6 +- 2 files changed, 32 insertions(+), 4 deletions(-) diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm index f39f3fd..beaa13a 100644 --- a/website/apps/base/templates/components.scm +++ b/website/apps/base/templates/components.scm @@ -23,6 +23,7 @@ contact->shtml horizontal-line horizontal-separator +horizontal-skip link-more link-subtle link-yellow @@ -180,6 +181,10 @@ `(src ,(guix-url "static/base/img/h-separator-dark.png"))) (alt "" +(define (horizontal-skip) + "Return SHTML for a small horizontal space." + `(span (@ (class "hskip" + (define (horizontal-line) "Return SHTML for a visible separator to be used in a dropdown menu like a menu item." @@ -408,13 +413,32 @@ manual. (C_ "website menu" (menu-item #:label "Contact" #:active-item active-item #:url (guix-url "contact/"))) (C_ "website menu" (menu-item #:label "Contribute" #:active-item active-item #:url (guix-url "contribute/"))) (C_ "website menu" (menu-item #:label "Security" #:active-item active-item #:url (guix-url "security/"))) - (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/"))) + (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/") + ,(horizontal-skip) + ;; 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
06/09: website: Add language selection dropdown to navbar.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit bbc93e8bfa18b10b18ca028ddc1b5e4895d98491 Author: Florian Pelz Date: Wed Oct 30 12:12:23 2019 + website: Add language selection dropdown to navbar. * website/apps/base/templates/components.scm (navbar): Add it. (horizontal-skip): New procedure. * website/static/base/css/navbar.css: Add CSS for horizontal-skip. Increase size at which website switches to mobile mode. --- website/apps/base/templates/components.scm | 30 +++--- website/static/base/css/navbar.css | 6 +- 2 files changed, 32 insertions(+), 4 deletions(-) diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm index f39f3fd..beaa13a 100644 --- a/website/apps/base/templates/components.scm +++ b/website/apps/base/templates/components.scm @@ -23,6 +23,7 @@ contact->shtml horizontal-line horizontal-separator +horizontal-skip link-more link-subtle link-yellow @@ -180,6 +181,10 @@ `(src ,(guix-url "static/base/img/h-separator-dark.png"))) (alt "" +(define (horizontal-skip) + "Return SHTML for a small horizontal space." + `(span (@ (class "hskip" + (define (horizontal-line) "Return SHTML for a visible separator to be used in a dropdown menu like a menu item." @@ -408,13 +413,32 @@ manual. (C_ "website menu" (menu-item #:label "Contact" #:active-item active-item #:url (guix-url "contact/"))) (C_ "website menu" (menu-item #:label "Contribute" #:active-item active-item #:url (guix-url "contribute/"))) (C_ "website menu" (menu-item #:label "Security" #:active-item active-item #:url (guix-url "security/"))) - (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/"))) + (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/") + ,(horizontal-skip) + ;; 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
06/09: website: Add language selection dropdown to navbar.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit 026ba2361742926e0d5fc03e8d001aac4eb788f6 Author: Florian Pelz Date: Wed Oct 30 12:12:23 2019 + website: Add language selection dropdown to navbar. * website/apps/base/templates/components.scm (navbar): Add it. (horizontal-skip): New procedure. * website/static/base/css/navbar.css: Add CSS for horizontal-skip. Increase size at which website switches to mobile mode. --- website/apps/base/templates/components.scm | 30 +++--- website/static/base/css/navbar.css | 6 +- 2 files changed, 32 insertions(+), 4 deletions(-) diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm index 14794c0..9bef32e 100644 --- a/website/apps/base/templates/components.scm +++ b/website/apps/base/templates/components.scm @@ -23,6 +23,7 @@ contact->shtml horizontal-line horizontal-separator +horizontal-skip link-more link-subtle link-yellow @@ -180,6 +181,10 @@ `(src ,(guix-url "static/base/img/h-separator-dark.png"))) (alt "" +(define (horizontal-skip) + "Return SHTML for a small horizontal space." + `(span (@ (class "hskip" + (define (horizontal-line) "Return SHTML for a visible separator to be used in a dropdown menu like a menu item." @@ -407,13 +412,32 @@ manual. (C_ "website menu" (menu-item #:label "Contact" #:active-item active-item #:url (guix-url "contact/"))) (C_ "website menu" (menu-item #:label "Contribute" #:active-item active-item #:url (guix-url "contribute/"))) (C_ "website menu" (menu-item #:label "Security" #:active-item active-item #:url (guix-url "security/"))) - (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/"))) + (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/") + ,(horizontal-skip) + ;; 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
06/09: website: Add language selection dropdown to navbar.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit b9e8b306fc24d4c64587d0b4d568a8c9e3625dcc Author: Florian Pelz Date: Wed Oct 30 12:12:23 2019 + website: Add language selection dropdown to navbar. * website/apps/base/templates/components.scm (navbar): Add it. (horizontal-skip): New procedure. * website/static/base/css/navbar.css: Add CSS for horizontal-skip. Increase size at which website switches to mobile mode. --- website/apps/base/templates/components.scm | 30 +++--- website/static/base/css/navbar.css | 6 +- 2 files changed, 32 insertions(+), 4 deletions(-) diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm index 14794c0..9bef32e 100644 --- a/website/apps/base/templates/components.scm +++ b/website/apps/base/templates/components.scm @@ -23,6 +23,7 @@ contact->shtml horizontal-line horizontal-separator +horizontal-skip link-more link-subtle link-yellow @@ -180,6 +181,10 @@ `(src ,(guix-url "static/base/img/h-separator-dark.png"))) (alt "" +(define (horizontal-skip) + "Return SHTML for a small horizontal space." + `(span (@ (class "hskip" + (define (horizontal-line) "Return SHTML for a visible separator to be used in a dropdown menu like a menu item." @@ -407,13 +412,32 @@ manual. (C_ "website menu" (menu-item #:label "Contact" #:active-item active-item #:url (guix-url "contact/"))) (C_ "website menu" (menu-item #:label "Contribute" #:active-item active-item #:url (guix-url "contribute/"))) (C_ "website menu" (menu-item #:label "Security" #:active-item active-item #:url (guix-url "security/"))) - (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/"))) + (C_ "website menu" (menu-item #:label "Graphics" #:active-item active-item #:url (guix-url "graphics/") + ,(horizontal-skip) + ;; 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
