diff options
| -rw-r--r-- | haunt/pages/about.sxml | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/haunt/pages/about.sxml b/haunt/pages/about.sxml index d8b7f74..d089dfd 100644 --- a/haunt/pages/about.sxml +++ b/haunt/pages/about.sxml @@ -159,15 +159,15 @@ Linux.") (define (lang-to-button lang) (case lang - ((c) '(button (@ (class "lang-c")) "C")) - ((c++) '(button (@ (class "lang-cpp")) "C++")) - ((python) '(button (@ (class "lang-python")) "Python")) - ((rust) '(button (@ (class "lang-rust")) "Rust")) - ((kotlin) '(button (@ (class "lang-kotlin")) "Kotlin")) - ((fennel) '(button (@ (class "lang-fennel")) "Fennel")) - ((elisp) '(button (@ (class "lang-elisp")) "Elisp")) - ((scheme) '(button (@ (class "lang-scheme")) "Scheme")) - ((ebuild) '(button (@ (class "lang-ebuild")) "Ebuild")))) + ((c) '(button (@ (class "lang lang-c")) "C")) + ((c++) '(button (@ (class "lang lang-cpp")) "C++")) + ((python) '(button (@ (class "lang lang-python")) "Python")) + ((rust) '(button (@ (class "lang lang-rust")) "Rust")) + ((kotlin) '(button (@ (class "lang lang-kotlin")) "Kotlin")) + ((fennel) '(button (@ (class "lang lang-fennel")) "Fennel")) + ((elisp) '(button (@ (class "lang lang-elisp")) "Elisp")) + ((scheme) '(button (@ (class "lang lang-scheme")) "Scheme")) + ((ebuild) '(button (@ (class "lang lang-ebuild")) "Ebuild")))) (define (date-of-first-commit repository-path) "Return the date of the first commit in `repository-path'." |