emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Check checkbox and move to end of list


From: Cecil Westerhof
Subject: Re: [O] Check checkbox and move to end of list
Date: Thu, 23 Jan 2014 01:46:05 +0100

2014/1/23 Cecil Westerhof <address@hidden>
I also think it would be a good idea to change
    (org-list-send-item item 'end struct)
to a call to a function. I think it would be useful to have a function to send a item to the end (or begin) of a list.

I know have the following:
(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)
          (dcbl-move-item-to-end-of-list item))))))

(defun dcbl-move-item-to-begin-of-list (&optional item)
  (interactive)
  (save-excursion
    (when item
      (goto-char item))
    (org-list-send-item (line-beginning-position) 'begin (org-list-struct)))
  (previous-line))

(defun dcbl-move-item-to-end-of-list (&optional item)
  (interactive)
  (save-excursion
    (when item
      (goto-char item))
    (org-list-send-item (line-beginning-position) 'end (org-list-struct))))



(global-set-key [?\C-c ?\M-a]    'dcbl-move-item-to-begin-of-list)
(global-set-key [?\C-c ?\M-c]    'dcbl-check-checkbox-and-move-to-end)
(global-set-key [?\C-c ?\M-e]    'dcbl-move-item-to-end-of-list)
 
--
Cecil Westerhof

reply via email to

[Prev in Thread] Current Thread [Next in Thread]