diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-23 09:10:53 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-03-23 09:10:53 +0000 |
commit | 0cfa116bf50d4b6e555c1964fdfc0faa8124dbb2 (patch) | |
tree | 0d40e60ce86f348de0e4b85ccb4f3baa9e71a42e /xml | |
parent | 7518cda05846fe76e026caaea82417ff4c19d40d (diff) | |
download | ellinika-0cfa116bf50d4b6e555c1964fdfc0faa8124dbb2.tar.gz ellinika-0cfa116bf50d4b6e555c1964fdfc0faa8124dbb2.tar.bz2 |
(INFO): Do not set language territory code explicitely
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@395 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'xml')
-rw-r--r-- | xml/lingua.conf.in | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index a953c4f..508ade7 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -56,20 +56,19 @@ (for-each (lambda (lang) (cond - ((not (string=? (list-ref lang 0) (car name))) + ((not (string=? (car lang) (car name))) (if (not (null? args)) (format #t "<li><a href=\"~A@@args@@\">~A</a></li>" ((lingua:attr "LINGUA" (car args)) - #:lang (list-ref lang 0) - #:ter (list-ref lang 1)) - (list-ref lang 2)) + #:lang (car lang)) + (cdr lang)) (format #t "<li><a href=\"~A/~A\">~A</a></li>" - (list-ref lang 0) + (car lang) rest - (list-ref lang 2)))))) - '(("pl" "PL" "Polski") - ("ru" "RU" "Русский") - ("uk" "UA" "Українська")))) + (cdr lang)))))) + '(("pl" . "Polski") + ("ru" . "Русский") + ("uk" . "Українська")))) (display "</li></ul></ul>"))) #f ]]> |