From 38c96c075fbdd3729b31f9790aa0821b527392ac Mon Sep 17 00:00:00 2001
From: petrucci4prez <natedwarshuis@gmail.com>
Date: Mon, 4 Jun 2018 17:58:43 -0400
Subject: [PATCH] updates for org 9

---
 conf.el  | 25 +++++++++++++++++--------
 conf.org | 31 ++++++++++++++++++++++---------
 2 files changed, 39 insertions(+), 17 deletions(-)

diff --git a/conf.el b/conf.el
index 9fd626a..651f6f6 100644
--- a/conf.el
+++ b/conf.el
@@ -447,8 +447,8 @@ event of an error or nonlocal exit."
                                  (org-agenda-files :maxlevel . 9))))
 
 (setq org-refile-use-outline-path t)
-(setq org-outline-path-complete-in-steps nil)
-(setq org-completion-use-ido t)
+(setq org-outline-path-complete-in-steps t)
+;; (setq org-completion-use-ido t)
 
 (setq org-refile-allow-creating-parent-nodes 'confirm)
 
@@ -895,6 +895,8 @@ tags that do not have tags in neg-tags-list"
                 (nd/skip-heading)))
         (nd/skip-heading)))))
 
+
+
 (defvar nd/agenda-limit-project-toplevel t
   "used to filter projects by all levels or top-level only")
 
@@ -1092,13 +1094,20 @@ and reverts all todo keywords to TODO"
                     "Date shift per clone (e.g. +1w, empty to copy unchanged): "))))
     (condition-case err
         (progn
-          (org-clone-subtree-with-time-shift n shift)
           (save-excursion
-            (dotimes (i n)
-             (org-forward-heading-same-level 1 t)
-             (org-reset-checkbox-state-subtree)
-             (nd/mark-subtree-keyword "TODO")
-             (org-cycle))))
+			;; clone once and reset
+			(org-clone-subtree-with-time-shift 1 shift)
+            (org-forward-heading-same-level 1 t)
+            (org-reset-checkbox-state-subtree)
+            (nd/mark-subtree-keyword "TODO")
+            (org-cycle)
+			;; clone reset tree again if we need more than one clone
+			(if (> n 1)
+				(let ((additional-trees (- n 1)))
+				  (org-clone-subtree-with-time-shift additional-trees shift)
+				  (dotimes (i additional-trees)
+					(org-forward-heading-same-level 1 t)
+					(org-cycle))))))
       (error (message "%s" (error-message-string err))))))
 
 (use-package calfw-org
diff --git a/conf.org b/conf.org
index 519a7c8..f572796 100644
--- a/conf.org
+++ b/conf.org
@@ -643,9 +643,9 @@ There are several types of tags I use:
 #+END_SRC
 *** completion
 #+BEGIN_SRC emacs-lisp
-  (setq org-refile-use-outline-path t)
-  (setq org-outline-path-complete-in-steps nil)
-  (setq org-completion-use-ido t)
+(setq org-refile-use-outline-path t)
+(setq org-outline-path-complete-in-steps t)
+;; (setq org-completion-use-ido t)
 #+END_SRC
 *** node creation
 #+BEGIN_SRC emacs-lisp
@@ -1175,6 +1175,12 @@ Note that this is used for "normal" projects as well as iterators
               (if (not (nd/is-project-status-p statuscode))
                   (nd/skip-heading)))
           (nd/skip-heading)))))
+#+END_SRC
+**** iterators
+iterators are like projects but have additional status codes based on
+when the iterator will run out
+#+BEGIN_SRC emacs-lisp
+
 #+END_SRC
 *** interactive view functions
 #+BEGIN_SRC emacs-lisp
@@ -1390,13 +1396,20 @@ and reverts all todo keywords to TODO"
                     "Date shift per clone (e.g. +1w, empty to copy unchanged): "))))
     (condition-case err
         (progn
-          (org-clone-subtree-with-time-shift n shift)
           (save-excursion
-            (dotimes (i n)
-             (org-forward-heading-same-level 1 t)
-             (org-reset-checkbox-state-subtree)
-             (nd/mark-subtree-keyword "TODO")
-             (org-cycle))))
+			;; clone once and reset
+			(org-clone-subtree-with-time-shift 1 shift)
+            (org-forward-heading-same-level 1 t)
+            (org-reset-checkbox-state-subtree)
+            (nd/mark-subtree-keyword "TODO")
+            (org-cycle)
+			;; clone reset tree again if we need more than one clone
+			(if (> n 1)
+				(let ((additional-trees (- n 1)))
+				  (org-clone-subtree-with-time-shift additional-trees shift)
+				  (dotimes (i additional-trees)
+					(org-forward-heading-same-level 1 t)
+					(org-cycle))))))
       (error (message "%s" (error-message-string err))))))
 #+END_SRC
 ** caldav