extra translations

private/playlists.rkt

@@ -24,7 +24,8 @@
 (define (user-language-key username)
   (format "language-for-~a" username))
 
-(define supported-language-names '("en" "nl" "de" "fr" "es"))
+(define supported-language-names
+  '("en" "nl" "de" "fr" "es" "it" "sv" "no" "fi" "is"))
 
 (define (track->datum item)
   (hasheq 'file (path->string (track-file item))
@@ -143,7 +144,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; goal   : Persist one user's interface language.
 ; pre    : Store is #f or open, username is normalized, and language is one of
-;          en, nl, de, fr, or es.
+;          en, nl, de, fr, es, it, sv, no, fi, or is.
 ; post   : The user's language key contains language when a store exists.
 ; result : Void.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -151,7 +152,7 @@
   (unless (member language supported-language-names)
     (raise-argument-error
      'save-user-language!
-     "one of en, nl, de, fr, or es"
+     "one of en, nl, de, fr, es, it, sv, no, fi, or is"
      language))
   (when store
     (call-with-semaphore
@@ -215,6 +216,8 @@
       (check-false (load-user-language store "hans"))
       (save-user-language! store "hans" "fr")
       (check-equal? (load-user-language store "hans") "fr")
+      (save-user-language! store "hans" "fi")
+      (check-equal? (load-user-language store "hans") "fi")
       (check-exn exn:fail:contract?
                  (λ () (save-user-language! store "hans" "it")))