Adding settings.

rktplayer.rkt

@@ -3,6 +3,7 @@
 (require racket/gui
          "gui.rkt"
          "tray.rkt"
+         "translate.rkt"
          simple-ini/class
          racket-audio
          racket-webview
@@ -16,7 +17,9 @@
 (define-runtime-path rkt-gui-dir "gui")
 
 (define log-file (build-path (find-system-path 'cache-dir) ".rktplayer.log"))
+(displayln log-file)
 (sl-log-to-file log-file)
+(void (current-opusfile-output-format 's24))
 ;(sl-log-to-display)
 
 (define (my-file-getter url)
@@ -59,6 +62,7 @@
                        [file-getter my-file-getter]
                        ))
          )
+    (set-lang! (send ini get 'settings 'language 'en))
     (let* ((window (new rktplayer% [wv-context context] [log-file log-file]))
            (tray (new rktplayer-tray% [rktplayer-gui window]))
            )