change to audio-player.rkt

2026-05-18 10:35:14 +02:00
parent fccf019fe7
commit e60ecaeaef
4 changed files with 188 additions and 370 deletions
@@ -59,6 +59,38 @@
           )
      (set! rktplayer-window window)
      (set! rktplayer-tray tray)
+      (thread (λ ()
+                (sleep 5)
+                (let ((prg (string-append "let f_evt_info = window.rkt_event_info;\n"
+                                          "window.rkt_event_info = function(e, id, evt) {\n"
+                                          "  if (evt.dataTransfer) {\n"
+                                          "    for(const item of evt.dataTransfer.items) {\n"
+                                          "       if (item.kind == 'file') {\n"
+                                          "          console.log(item.getAsFile());\n"
+                                          "       }\n"
+                                          "    }\n"
+                                          "  }\n"
+                                          "  return f_evt_info(e, id, evt);\n"
+                                          "}; return 42;")))
+                       
+
+                       #|(js (let* ((f_evt_info window.rkt_event_info))
+                                 (send console log "Setting new window.rkt_event_info")
+                                 (set! window.rkt_event_info
+                                       (λ (e id evt)
+                                         (if evt.dataTransfer
+                                             (let* ((items evt.dataTransfer.items)
+                                                    (fitems (send items filter (λ (item)
+                                                                                (return (== item.kind "file")))))
+                                                    )
+                                               (send fitems forEach (λ (item)
+                                                                      (console.log item)))
+                                               )
+                                             42)
+                                         (return (f_evt_info e id evt))))
+                                 (return 42)))))|#
+                  (displayln prg)
+                  (displayln (send window call-js prg)))))
      (when (or (null? no-exit)
                (not (eq? (car no-exit) #t)))
        (webview-wait-for-quit)