- (if (or (and (boundp 'current-language-environment)
- (string= current-language-environment "Japanese"))
- (string-match "^ja" (howm-get-locale)))
- 'ja
- 'en)
+ (let ((lang-table '((fr "French" "^fr")
+ (ja "Japanese" "^ja"))))
+ (let ((lang (or (and (boundp 'current-language-environment)
+ current-language-environment)
+ ""))
+ (locale (howm-get-locale))
+ (ret 'en))
+ (mapc (lambda (rule)
+ (if (or (string= lang (cadr rule))
+ (string-match (cl-caddr rule) locale))
+ (setq ret (car rule))))
+ lang-table)
+ ret))