[nongnu] elpa/mpv 0579b5c707 09/50: support inserting org timer list items

[ELPA Syncer]

branch: elpa/mpv
commit 0579b5c707c506cb6186c92cef3f52ea16a60235
Author: Johann Klähn <kljohann@gmail.com>
Commit: Johann Klähn <kljohann@gmail.com>

    support inserting org timer list items
---
 mpv-mode.el | 39 ++++++++++++++++++++++++++++++++++-----
 1 file changed, 34 insertions(+), 5 deletions(-)

diff --git a/mpv-mode.el b/mpv-mode.el
index 0a7b78cb21..3faae03575 100644
--- a/mpv-mode.el
+++ b/mpv-mode.el
@@ -137,17 +137,46 @@ drops unsolicited event messages."
   (interactive)
   (-enqueue '("cycle" "pause") #'ignore))
 
-(defun insert-playback-position ()
-  "Insert the current playback position at point."
-  (interactive)
+(defun insert-playback-position (&optional arg)
+  "Insert the current playback position at point.
+
+When called with a prefix, insert a timer list item like `org-timer-item'."
+  (interactive "P")
   (let ((buffer (current-buffer)))
     (-enqueue '("get_property" "playback-time")
               (lambda (time)
                 (let* ((secs (truncate time))
                        (usecs (round (* 1000 (- time secs)))))
                   (with-current-buffer buffer
-                    (insert (format-time-string -position-format
-                                                `(0 ,secs ,usecs 0) t))))))))
+                    (funcall
+                     (if arg #'-position-insert-as-org-item #'insert)
+                     (format-time-string -position-format
+                                         `(0 ,secs ,usecs 0) t))))))))
+
+(defun -position-insert-as-org-item (time-string)
+  "Insert a description-type item with the playback position.
+
+See `org-timer-item' which this is based on."
+  (require 'org)
+  (let ((itemp (org-in-item-p)) (pos (point)))
+    (cond
+     ;; In a timer list, insert with `org-list-insert-item',
+     ;; then fix the list.
+     ((and itemp (goto-char itemp) (org-at-item-timer-p))
+      (let* ((struct (org-list-struct))
+             (prevs (org-list-prevs-alist struct))
+             (s (concat time-string " :: ")))
+        (setq struct (org-list-insert-item pos struct prevs nil s))
+        (org-list-write-struct struct (org-list-parents-alist struct))
+        (looking-at org-list-full-item-re)
+        (goto-char (match-end 0))))
+     ;; In a list of another type, don't break anything: throw an error.
+     (itemp (goto-char pos) (error "This is not a timer list"))
+     ;; Else, start a new list.
+     (t
+      (beginning-of-line)
+      (org-indent-line)
+      (insert  (concat "- " time-string " :: "))))))
 
 (defun seek-to-position-at-point ()
   "Jump to playback position as inserted by 
`mpv-mode-insert-playback-position'."