|
From: | Cecil Westerhof |
Subject: | Re: [O] Check checkbox and move to end of list |
Date: | Thu, 23 Jan 2014 20:51:14 +0100 |
The following function does (mostly) what I want:
(defun dcbl-check-checkbox-and-move-to-end ()
(interactive)
(save-excursion
(let* ((struct (org-list-struct))
(struct-old (copy-tree struct))
(item (line-beginning-position))
(item-checkbox-type (org-list-get-checkbox item struct)))
(if (not item-checkbox-type)
(message "No checkbox found")
(if (string-equal item-checkbox-type "[X]")
(message "Checkbox already checked")
(org-list-set-checkbox item struct "[X]")
(org-list-write-struct struct (org-list-parents-alist struct) struct-old)
(org-list-send-item item 'end struct))))))
[Prev in Thread] | Current Thread | [Next in Thread] |