updates for org 9

This commit is contained in:
petrucci4prez 2018-06-04 17:58:43 -04:00
parent 027d08e8f3
commit 38c96c075f
2 changed files with 39 additions and 17 deletions

19
conf.el
View File

@ -447,8 +447,8 @@ event of an error or nonlocal exit."
(org-agenda-files :maxlevel . 9)))) (org-agenda-files :maxlevel . 9))))
(setq org-refile-use-outline-path t) (setq org-refile-use-outline-path t)
(setq org-outline-path-complete-in-steps nil) (setq org-outline-path-complete-in-steps t)
(setq org-completion-use-ido t) ;; (setq org-completion-use-ido t)
(setq org-refile-allow-creating-parent-nodes 'confirm) (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)))
(nd/skip-heading))))) (nd/skip-heading)))))
(defvar nd/agenda-limit-project-toplevel t (defvar nd/agenda-limit-project-toplevel t
"used to filter projects by all levels or top-level only") "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): ")))) "Date shift per clone (e.g. +1w, empty to copy unchanged): "))))
(condition-case err (condition-case err
(progn (progn
(org-clone-subtree-with-time-shift n shift)
(save-excursion (save-excursion
(dotimes (i n) ;; clone once and reset
(org-clone-subtree-with-time-shift 1 shift)
(org-forward-heading-same-level 1 t) (org-forward-heading-same-level 1 t)
(org-reset-checkbox-state-subtree) (org-reset-checkbox-state-subtree)
(nd/mark-subtree-keyword "TODO") (nd/mark-subtree-keyword "TODO")
(org-cycle)))) (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)))))) (error (message "%s" (error-message-string err))))))
(use-package calfw-org (use-package calfw-org

View File

@ -644,8 +644,8 @@ There are several types of tags I use:
*** completion *** completion
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-refile-use-outline-path t) (setq org-refile-use-outline-path t)
(setq org-outline-path-complete-in-steps nil) (setq org-outline-path-complete-in-steps t)
(setq org-completion-use-ido t) ;; (setq org-completion-use-ido t)
#+END_SRC #+END_SRC
*** node creation *** node creation
#+BEGIN_SRC emacs-lisp #+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)) (if (not (nd/is-project-status-p statuscode))
(nd/skip-heading))) (nd/skip-heading)))
(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 #+END_SRC
*** interactive view functions *** interactive view functions
#+BEGIN_SRC emacs-lisp #+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): ")))) "Date shift per clone (e.g. +1w, empty to copy unchanged): "))))
(condition-case err (condition-case err
(progn (progn
(org-clone-subtree-with-time-shift n shift)
(save-excursion (save-excursion
(dotimes (i n) ;; clone once and reset
(org-clone-subtree-with-time-shift 1 shift)
(org-forward-heading-same-level 1 t) (org-forward-heading-same-level 1 t)
(org-reset-checkbox-state-subtree) (org-reset-checkbox-state-subtree)
(nd/mark-subtree-keyword "TODO") (nd/mark-subtree-keyword "TODO")
(org-cycle)))) (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)))))) (error (message "%s" (error-message-string err))))))
#+END_SRC #+END_SRC
** caldav ** caldav