org-present key bindings for Logitech R400 handheld presenter

[Bernd Haug <bernd.haug@xaidat.com>]

I made myself a .emacs snippet with some bindings for using a Logitech
R400 presenter with org-present; maybe some of you can use this, too.

Minor questions noted below.

---------
(defun my-on-org-mode ()
    (local-set-key (kbd "<f5>") 'org-present))

(defun my-on-org-present ()
    (org-present-big)
    (org-present-read-only)
    (org-display-inline-images)
    (local-set-key (kbd "<next>") 'org-present-next)
    (local-set-key (kbd "<prior>") 'org-present-prev)
    (local-set-key (kbd "<escape>") 'org-present-quit)
    (local-set-key (kbd ".") 'org-present-beginning))

(defun my-on-org-present-quit ()
    (local-unset-key (kbd "<next>"))
    (local-unset-key (kbd "<prior>"))
    (local-unset-key (kbd "<escape>"))
    (local-unset-key (kbd ".")))

(add-hook 'org-mode-hook 'my-on-org-mode)
(add-hook 'org-present-mode-hook 'my-on-org-present)
(add-hook 'org-present-mode-quit-hook 'my-on-org-present-quit)
---------

1) The R400 just sends <f5> and <escape> alternatingly on the
start/stop presentation button. If you get it in a mixed up state so
that it toggles the wrong way around, just turn it off (on its side)
and on again. First stroke will always be "<f5>".

2) Originally I wanted to provide toggling read only using the last
key (lower right on the presenter, "temporarily blank"). Didn't work
This way:

----
(defun my-org-present-ro ()
  (interactive)
  (local-set-key (kbd ".") 'my-org-present-rw)
  (org-present-read-only))

(defun my-org-present-rw ()
  (interactive)
  (local-set-key (kbd ".") 'my-org-present-ro)
  (org-present-read-write))

; + calling my-org-present-ro instead of org-present-read-only in
my-on-org-present
----

For me, no issue practically speaking, since I pretty much always want
R/O anyway, but out of curiousity – what was I doing wrong?

Cheers, Bernd
-- 
Senior Software Engineer

Xaidat GmbH
Wickenburggasse 5
8010 Graz
Austria / Europe

web: http://www.xaidat.com/
phone:  +43-676-845023-706
email:   bernd.haug@xaidat.com

FN 384295s, LG ZRS Graz
UID-Nr. ATU67414611