Re: RFC on implementation adding buttons beside headings

[Ihor Radchenko <yantar92@posteo.net>]

[ Adding Org ML back to CC ]

pareto optimal <pareto.optimal@mailfence.com> writes:

> Do you mean something like extending https://github.com/alphapapa/org-sidebar to have these instead of directly in the org document?

A bit different.
What I have in mind is something like

(defun yant/insert-interative-button (text window command)
  "Create button named TEXT running COMMAND in WINDOW."
  (insert-button
   text
   'face '(:box t :height 2.0)
   'follow-link t
   'action
   `(lambda (_)
      (select-window ,window)
      (call-interactively #',command))))

(defun yant/demo-buttons ()
  "Demo of a buffer with touch screen-compatible buttons."
  (interactive)
  (unless (derived-mode-p 'org-mode)
    (user-error "Must be in Org mode buffer"))
  (let ((org-window (selected-window)))
    (switch-to-buffer-other-window (get-buffer-create "*Touch buttons*"))
    (with-silent-modifications
      (erase-buffer))
    (yant/insert-interative-button
     "Next heading" org-window 'org-next-visible-heading)
    (insert "\n")
    (yant/insert-interative-button
     "Previous heading" org-window 'org-previous-visible-heading)
    (read-only-mode t)))

> The context menus are great! However it seems some people have a hard time thinking of emacs as a gui applicaiton and right clicking even after I tell them :)

It will be more natural on Android.

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>