Speech shortcuts

(phony-defun undo ("undo") (undo))
(phony-defun redo ("redo") (undo-redo))
(phony-defun winner ("winner") (winner-undo))

(phony-defun pick-paragraph ("pick" "paragraph") (mark-paragraph))
(phony-defun pick-subtree ("pick" "subtree") (org-mark-subtree))
(phony-defun pick-sub-tree ("pick" "sub tree") (org-mark-subtree))
(phony-defun pick-contents ("pick" "contents")
  (org-back-to-heading)
  (org-end-of-meta-data)
  (push-mark)
  (org-end-of-subtree)
  (activate-mark))
(phony-defun pick-element ("pick" "element") (org-mark-element))
(phony-defun pick-line ("pick" "line")
  (goto-char (line-beginning-position))
  (push-mark)
  (goto-char (line-end-position))
  (activate-mark))

(defun sacha-mark-list ()
  "Mark the current list."
  (let ((list (org-list-struct)))
    (goto-char (caar list))
    (push-mark)
    (goto-char (car (last (car list))))
    (activate-mark)))

(phony-defun pick-list ("pick" "list")
  (sacha-mark-list))

(phony-defun pick-element-contents ("pick" "element" "contents")
  (let ((elem (org-element-context)))
    (goto-char (or (org-element-contents-begin elem)
                   (org-element-begin elem)))
    (push-mark)
    (goto-char (or (org-element-contents-end elem)
                   (org-element-end elem)))
    (activate-mark)))

(phony-defun toggle-list ("toggle" "list")
  (unless (region-active-p)
    (if (org-list-struct)
        (sacha-mark-list)
      (mark-paragraph)))
  (org-toggle-item nil))