toolbar for emms?

[Joakim Verona]

--
I would like to use emms as a mediaplayer on the openmoko freerunner
mobile phone. Since it has only touchscreen, a toolbar would be useful.

Is there a toolbar for emms? If not, any ideas how I could implement
one?

/Joakim


_______________________________________________
Emms-help mailing list
Emms-help@...
http://lists.gnu.org/mailman/listinfo/emms-help

[Yoni Rabkin-2]

joakim@... writes:

> I would like to use emms as a mediaplayer on the openmoko freerunner
> mobile phone. Since it has only touchscreen, a toolbar would be
> useful.

> Is there a toolbar for emms?

(disclaimer: I don't have an openmoko, and hide the toolbars in Emacs)

I grepped the Emms code for toolbar-ish code and found nothing.

> If not, any ideas how I could implement one?

Section 22.17.6 of the Emacs Lisp manual has a lot of information about
toolbars. lisp/tool-bar.el in the Emacs source code might have useful,
if somewhat more nitty gritty details.

Please drop a line here if you decide to implement it, so we know
someone is working on it.

It sounds like a great idea.

--
   "Cut your own wood and it will warm you twice"



_______________________________________________
Emms-help mailing list
Emms-help@...
http://lists.gnu.org/mailman/listinfo/emms-help

[Joakim Verona]

Yoni Rabkin <yoni@...> writes:

> joakim@... writes:
>
>> I would like to use emms as a mediaplayer on the openmoko freerunner
>> mobile phone. Since it has only touchscreen, a toolbar would be
>> useful.
>
>> Is there a toolbar for emms?
>
> (disclaimer: I don't have an openmoko, and hide the toolbars in Emacs)
>
> I grepped the Emms code for toolbar-ish code and found nothing.
>
>> If not, any ideas how I could implement one?
>
> Section 22.17.6 of the Emacs Lisp manual has a lot of information about
> toolbars. lisp/tool-bar.el in the Emacs source code might have useful,
> if somewhat more nitty gritty details.
>
> Please drop a line here if you decide to implement it, so we know
> someone is working on it.
>
> It sounds like a great idea.

I tried something like the code below in an ielm session:

(setq emms-playlist-tool-bar-map
  (let ((map (make-sparse-keymap)))
    (tool-bar-local-item "prev-node" 'emms-previous 'emms-previous map
  emms-playlist-mode-map :rtl "next-node" :help "go to previous track")
    (tool-bar-local-item "next-node" 'emms-next  'emms-next map
  emms-playlist-mode-map :rtl "prev-node" :help "go to next track")
    map))

(defvar tool-bar-map)
(set (make-local-variable 'tool-bar-map) emms-playlist-tool-bar-map)

This does in fact work! The code was ripped from compile.el and info.el.

I'll see if I can come up with a patch suitable for inclusion. I do have
papers with the FSF.

--
Joakim Verona



_______________________________________________
Emms-help mailing list
Emms-help@...
http://lists.gnu.org/mailman/listinfo/emms-help