fix: Infinite loop for last element in file

org-element-and-children-at-point was comparing the current point <=
end, but should've been <.

Fixes #17

1 files changed, 3 insertions, 2 deletions

diff --git a/org-clubhouse.el b/org-clubhouse.el
index ce136a51f0..4f162d955b 100644
--- a/org-clubhouse.el
+++ b/org-clubhouse.el
@@ -257,13 +257,14 @@ If set to nil, will never create stories with labels")
 
 (defun org-element-and-children-at-point ()
   (let* ((elt (org-element-find-headline))
-         (contents-begin (plist-get elt :contents-begin))
+         (contents-begin (or (plist-get elt :contents-begin)
+                             (plist-get elt :begin)))
          (end   (plist-get elt :end))
          (level (plist-get elt :level))
          (children '()))
     (save-excursion
       (goto-char (+ contents-begin (length (plist-get elt :title))))
-      (while (<= (point) end)
+      (while (< (point) end)
         (let* ((next-elt (org-element-at-point))
                (elt-type (car next-elt))
                (elt      (cadr next-elt)))