From mboxrd@z Thu Jan  1 00:00:00 1970
From: Cecil Westerhof <cldwesterhof@gmail.com>
Subject: Re: Check checkbox and move to end of list
Date: Thu, 23 Jan 2014 20:51:14 +0100
Message-ID: <CAG-LmmBicgeT-Kd8gWN2vPPwDks=ANEFKS+bPKHsi1=+W3FDpA@mail.gmail.com>
References: <CAG-LmmBMJvP3X32QepOb=+nEsbEO+JWkbWk2XZ_YuYB-r8h4Gw@mail.gmail.com>
Mime-Version: 1.0
Content-Type: multipart/alternative; boundary=001a11c123b665c93804f0a89044
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:50074)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <cldwesterhof@gmail.com>) id 1W6QJ3-0004xX-Cy
	for emacs-orgmode@gnu.org; Thu, 23 Jan 2014 14:51:18 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <cldwesterhof@gmail.com>) id 1W6QJ2-00010S-8C
	for emacs-orgmode@gnu.org; Thu, 23 Jan 2014 14:51:17 -0500
Received: from mail-qc0-x230.google.com ([2607:f8b0:400d:c01::230]:61655)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <cldwesterhof@gmail.com>) id 1W6QJ2-00010H-3Q
	for emacs-orgmode@gnu.org; Thu, 23 Jan 2014 14:51:16 -0500
Received: by mail-qc0-f176.google.com with SMTP id e16so3108182qcx.21
	for <emacs-orgmode@gnu.org>; Thu, 23 Jan 2014 11:51:14 -0800 (PST)
In-Reply-To: <CAG-LmmBMJvP3X32QepOb=+nEsbEO+JWkbWk2XZ_YuYB-r8h4Gw@mail.gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

--001a11c123b665c93804f0a89044
Content-Type: text/plain; charset=ISO-8859-1

2014/1/23 Cecil Westerhof <cldwesterhof@gmail.com>

> 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))))))
>

Update of the count in the parent did not go correctly always. This code
does the update correct. (Only the last command is appended.)
(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)
          (org-update-statistics-cookies nil))))))


-- 
Cecil Westerhof

--001a11c123b665c93804f0a89044
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><div class=3D"gmail_extra"><div class=3D"gmail_default" st=
yle=3D"font-family:courier new,monospace">2014/1/23 Cecil Westerhof <span d=
ir=3D"ltr">&lt;<a href=3D"mailto:cldwesterhof@gmail.com" target=3D"_blank">=
cldwesterhof@gmail.com</a>&gt;</span><br>
</div><div class=3D"gmail_quote"><blockquote class=3D"gmail_quote" style=3D=
"margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-le=
ft:1ex"><div dir=3D"ltr"><div style=3D"font-family:courier new,monospace">T=
he following function does (mostly) what I want:<br>
(defun dcbl-check-checkbox-and-move-to-end ()<br>=A0 (interactive)<br>=A0 (=
save-excursion<br>
=A0=A0=A0 (let* ((struct=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (org-list-stru=
ct))<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (struct-old=A0=A0=A0=A0=A0=A0=A0=A0 =
(copy-tree struct))<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (item=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0 (line-beginning-position))<br>=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0 (item-checkbox-type (org-list-get-checkbox item struct)))<b=
r>

=A0=A0=A0=A0=A0 (if (not item-checkbox-type)<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=
 (message &quot;No checkbox found&quot;)<br>=A0=A0=A0=A0=A0=A0=A0 (if (stri=
ng-equal item-checkbox-type &quot;[X]&quot;)<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0 (message &quot;Checkbox already checked&quot;)<br>=A0=A0=A0=A0=A0=A0=
=A0=A0=A0 (org-list-set-checkbox item struct &quot;[X]&quot;)<br>

=A0=A0=A0=A0=A0=A0=A0=A0=A0 (org-list-write-struct struct (org-list-parents=
-alist struct) struct-old)<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0 (org-list-send-it=
em item &#39;end struct))))))<br></div></div></blockquote><div><br><div cla=
ss=3D"gmail_default" style=3D"font-family:courier new,monospace;display:inl=
ine">
Update of the count in the parent did not go correctly always. This code do=
es the update correct. (Only the last command is appended.)<br>(defun dcbl-=
check-checkbox-and-move-to-end ()<br>=A0 (interactive)<br>=A0 (save-excursi=
on<br>
=A0=A0=A0 (let* ((struct=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (org-list-stru=
ct))<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (struct-old=A0=A0=A0=A0=A0=A0=A0=A0 =
(copy-tree struct))<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 (item=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0 (line-beginning-position))<br>=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0 (item-checkbox-type (org-list-get-checkbox item struct)))<b=
r>
=A0=A0=A0=A0=A0 (if (not item-checkbox-type)<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=
 (message &quot;No checkbox found&quot;)<br>=A0=A0=A0=A0=A0=A0=A0 (if (stri=
ng-equal item-checkbox-type &quot;[X]&quot;)<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0 (message &quot;Checkbox already checked&quot;)<br>=A0=A0=A0=A0=A0=A0=
=A0=A0=A0 (org-list-set-checkbox item struct &quot;[X]&quot;)<br>
=A0=A0=A0=A0=A0=A0=A0=A0=A0 (org-list-write-struct struct (org-list-parents=
-alist struct) struct-old)<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0 (dcbl-move-item-t=
o-end-of-list item)<br>=A0=A0=A0=A0=A0=A0=A0=A0=A0 (org-update-statistics-c=
ookies nil))))))<br></div></div></div><br clear=3D"all">
<br>-- <br>Cecil Westerhof
</div></div>

--001a11c123b665c93804f0a89044--