From f0917d9dcdb6a78f6c6b234b81e89ffe02d2baf0 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 17 Feb 2026 18:05:43 +0100 Subject: [PATCH] - --- gui.rkt | 27 +++++++++++++++++------- next.svg | 9 ++++++++ play.svg | 56 +++++++++++++++++++++++++++++++++++++------------ previous.svg | 9 ++++++++ repeat-off.svg | 44 ++++++++++++++++++++++++++++++++++++++ repeat-one.svg | 4 ++++ repeat.svg | 4 ++++ rktplayer.html | 8 +++---- styles.css | 25 +++++++++++++++++++--- volume-high.svg | 4 ++++ volume-low.svg | 4 ++++ volume-mute.svg | 4 ++++ 12 files changed, 171 insertions(+), 27 deletions(-) create mode 100644 next.svg create mode 100644 previous.svg create mode 100644 repeat-off.svg create mode 100644 repeat-one.svg create mode 100644 repeat.svg create mode 100644 volume-high.svg create mode 100644 volume-low.svg create mode 100644 volume-mute.svg diff --git a/gui.rkt b/gui.rkt index 68f67cf..5c85ed5 100644 --- a/gui.rkt +++ b/gui.rkt @@ -11,6 +11,15 @@ (define-runtime-path rktplayer-start "rktplayer.html") +(define-syntax ww-connect + (syntax-rules (this) + ((_ id method) + (send (send this element id) connect 'click (λ (data) (send this method))) + ) + ) + ) + + (define rktplayer% (class ww-webview% (inherit-field settings) @@ -21,13 +30,9 @@ (define/override (html-loaded) (super html-loaded) - (displayln "html loaded") - - (let* ((play-btn (send this element 'play))) - (send play-btn connect 'click - (λ (data) - (displayln "ja?") - (send this play)))) + (ww-connect 'play play) + (ww-connect 'prev previous-track) + (ww-connect 'next next-track) ) @@ -35,6 +40,14 @@ (displayln "Play button clicked") ) + (define/public (next-track) + (displayln "Next track") + ) + + (define/public (previous-track) + (displayln "Previous track") + ) + (begin (displayln "RktPlayer started") ) diff --git a/next.svg b/next.svg new file mode 100644 index 0000000..c4a7be9 --- /dev/null +++ b/next.svg @@ -0,0 +1,9 @@ + + + + \ No newline at end of file diff --git a/play.svg b/play.svg index 41e7e73..712b46f 100644 --- a/play.svg +++ b/play.svg @@ -1,13 +1,43 @@ - - - - - - - \ No newline at end of file + + + + + + + + diff --git a/previous.svg b/previous.svg new file mode 100644 index 0000000..b49a12c --- /dev/null +++ b/previous.svg @@ -0,0 +1,9 @@ + + + + \ No newline at end of file diff --git a/repeat-off.svg b/repeat-off.svg new file mode 100644 index 0000000..36bada8 --- /dev/null +++ b/repeat-off.svg @@ -0,0 +1,44 @@ + + + + + + + + diff --git a/repeat-one.svg b/repeat-one.svg new file mode 100644 index 0000000..1fa64c8 --- /dev/null +++ b/repeat-one.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/repeat.svg b/repeat.svg new file mode 100644 index 0000000..06132f3 --- /dev/null +++ b/repeat.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/rktplayer.html b/rktplayer.html index b33d816..147fc2a 100644 --- a/rktplayer.html +++ b/rktplayer.html @@ -12,10 +12,10 @@ - 0:00 - 0:00 - - +
0:00
+
0:00
+ +
diff --git a/styles.css b/styles.css index ee4949d..9ba29b9 100644 --- a/styles.css +++ b/styles.css @@ -10,16 +10,27 @@ body { flex-direction: column; } - - .buttons { height: 40px; width: 100%; display: flex; justify-content: center; align-items: center; + border: 1px solid black; } +button { + background: #e0e0e0; + border: none; + border-left: 1px solid black; + border-right: 1px solid black; +} + +button:hover { + background: #909090; +} + + button.command { margin: 0; padding: 0; @@ -38,8 +49,16 @@ span.h-slider { flex-grow: 1; } -.buttons span.time { +.buttons .text-block { + height: 100%; + display: flex; + justify-content: center; + align-items: center; width: 4em; + border-left: 1px solid black; +} + +.buttons span.time { font-weight: bold; text-align: center; } diff --git a/volume-high.svg b/volume-high.svg new file mode 100644 index 0000000..bcb2d46 --- /dev/null +++ b/volume-high.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/volume-low.svg b/volume-low.svg new file mode 100644 index 0000000..acaeef9 --- /dev/null +++ b/volume-low.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/volume-mute.svg b/volume-mute.svg new file mode 100644 index 0000000..8f4dbf6 --- /dev/null +++ b/volume-mute.svg @@ -0,0 +1,4 @@ + + + + \ No newline at end of file