-

gui.rkt

@@ -2,6 +2,10 @@
 
 (require web-racket
          racket/runtime-path
+         racket/gui
+         "utils.rkt"
+         "music-library.rkt"
+         "translate.rkt"
          )
 
 (provide
@@ -9,16 +13,18 @@
  rktplayer%
  )
 
-(define-runtime-path rktplayer-start "rktplayer.html")
+(define-runtime-path rktplayer-start "gui/rktplayer.html")
 
-(define-syntax ww-connect 
-  (syntax-rules (this)
-    ((_ id method)
-     (send (send this element id) connect 'click (λ (data) (send this method)))
-     )
-    )
-  )
-   
+(define player-menu
+  (λ ()
+    (menu 'main-menu
+          (menu-item 'm-file (tr "File")
+                     #:submenu
+                     (menu (menu-item 'm-select-library-dir (tr "Select Music Library Folder"))
+                           (menu-item 'm-set-lang (tr "Set language"))
+                           (menu-item 'm-quit (tr "Quit") #:separator #t)))
+          )
+    ))
 
 (define rktplayer%
   (class ww-webview%
@@ -27,15 +33,132 @@
      [html-file rktplayer-start]
      )
 
+    (define el-seeker #f)
+    (define el-library #f)
+    
+    (define music-library (send settings get 'music-library (find-system-path 'home-dir)))
+    (define current-music-path #f)
+    
+    (define inner-html-handlers (make-hash))
+
     (define/override (html-loaded)
       (super html-loaded)
 
       (ww-connect 'play play)
       (ww-connect 'prev previous-track)
       (ww-connect 'next next-track)
-      
+      (ww-connect 'repeat repeat)
+      (ww-connect 'volume volume)
+
+      (set! el-seeker (send this element 'seek))
+      (displayln (format "el-seeker: ~a" (send el-seeker get)))
+      (let ((seek-reactor (make-delayed-reactor 0.3 (λ (percentage) (send this seek-to percentage)))))
+        (send el-seeker on-change! seek-reactor))
+
+      (set! el-library (send this element 'library))
+
+      (send this set-menu! (player-menu))
+      (send this connect-menu! 'm-quit (λ () (send this quit)))
+      (send this connect-menu! 'm-select-library-dir (λ () (send this select-library)))
+
+      (send this update-library)
       )
 
+    (define/public (update-library)
+      (when (eq? current-music-path #f)
+        (set! current-music-path music-library))
+      (let* ((nr 0)
+             (l  (filter (λ (r) (music-lib-relevant? (cadr r)))
+                         (map (λ (e)
+                                (set! nr (+ nr 1))
+                                (list (format "row-~a" nr) (build-path current-music-path e) (format "path-~a" nr)))
+                              (directory-list current-music-path)))))
+        (displayln current-music-path)
+        (displayln music-library)
+        (unless (equal? (format "~a" current-music-path) (format "~a" music-library))
+          (set! l (cons (list "lib-up" "↰" "lib-up") l))
+          )
+        (let ((html (mktable l 'music-library library-formatter)))
+          (let ((handle (send el-library set-inner-html! html)))
+            (hash-set! inner-html-handlers handle
+                       (λ (oke)
+                         (when oke
+                           (send this bind 'dblclick "td.library-entry")
+                           (send this bind 'click "td.library-entry")
+                           (send this bind 'contextmenu "td.library-entry")
+                           (for-each (λ (row)
+                                       (let ((path-id (string->symbol (caddr row))))
+                                         (let ((el (send this new-element path-id)))
+                                           (send el connect 'dblclick
+                                                 (λ (args)
+                                                   (send this path-choosen (cadr row))))
+                                           (send el connect 'click
+                                                 (λ (args)
+                                                   (displayln args)))
+                                           (send el connect 'contextmenu
+                                                 (λ (evt)
+                                                   (send this context-for-path evt (cadr row))))
+                                           )))
+                                     l)
+                           ))))
+          ))
+      )
+
+    (define/override (inner-html-set handle oke)
+      (ww-debug "inner-html-set called")
+      (let ((cb (hash-ref inner-html-handlers handle #f)))
+        (ww-debug (format "got cb = ~a for handle ~a" cb handle))
+        (when cb
+          (hash-remove! inner-html-handlers handle)
+          (cb oke)))
+      )
+
+    (define/public (path-choosen path)
+      (let ((path-part (if (equal? path "↰") ".." (format "~a" path))))
+        (let ((npath (if (string=? path-part "..")
+                         (build-path current-music-path path-part)
+                         path)))
+          (when (directory-exists? npath)
+            (set! current-music-path (normalize-path npath))
+            (send this update-library)
+            )
+          )
+        )
+      )
+
+    (define/public (context-for-path evt path)
+      (let* ((mnu (menu 'library-popup
+                   (menu-item 'm-play-this (tr "Play this") #:callback (λ () (send this play-path path)))
+                   (menu-item 'm-booklet (tr "Open booklet") #:callback (λ () (send this open-booklet path)))
+                   (menu-item 'm-folder  (tr "Open containing folder") #:callback (λ () (send this open-folder path))
+                              #:submenu
+                              (menu (menu-item 'm-idx (tr "Select Music Library Folder") #:separator #t)
+                                    (menu-item 'm-idy (tr "Quit") #:separator #t
+                                               #:submenu
+                                               (menu (menu-item 'mabd (tr "Ja"))
+                                                     (menu-item 'mdedjk (tr "No"))
+                                                     (menu-item 'sdakjfas (tr "akjfhalk"))
+                                                     ))
+                                      ))
+                   )
+                  )
+             (js-evt (hash-ref evt 'js_evt (make-hash)))
+             (clientX (hash-ref js-evt 'clientX 60))
+             (clientY (hash-ref js-evt 'clientY 60))
+            )
+        (send this popup-menu mnu clientX clientY)
+        )
+      )
+
+    (define/public (play-path path)
+      (displayln (format "Playing ~a" path)))
+
+    (define/public (open-booklet path)
+      (displayln (format "Open booklet ~a" path)))
+
+    (define/public (open-folder path)
+      (displayln (format "open folder ~a" path)))
+
     (define/public (play)
       (displayln "Play button clicked")
       )
@@ -48,9 +171,42 @@
       (displayln "Previous track")
       )
 
+    (define/public (repeat)
+      (displayln "Repeat")
+      )
+
+    (define/public (volume)
+      (displayln "Volume")
+      )
+
+    (define/public (seek-to percentage)
+      (displayln (format "Seeking to percentage: ~a" percentage))
+      )
+
+    (define/public (quit)
+      (displayln (format "Quitting"))
+      (send this close))
+
+    (define/public (select-library)
+      (let ((handle (send this choose-dir
+                       (tr "Choose the folder containing your music library")
+                       (format "~a" music-library))))
+        (displayln (format "Selecting Music Library with handle: ~a" handle))
+        )
+      )
+
+    (define/override (dir-choosen handle choosen dir)
+      (when choosen
+        (set! music-library dir)
+        (send settings set! 'music-library dir)
+        (set! current-music-path #f)
+        (send this update-library)))
+        
+
     (begin
-      (displayln "RktPlayer started")
-    )
+      (let ((lang (send settings get 'lang 'en)))
+        (displayln (format "RktPlayer started, current language: ~a" lang)))
+      )
     )
   )