updates for org 9
This commit is contained in:
parent
027d08e8f3
commit
38c96c075f
19
conf.el
19
conf.el
|
@ -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
|
||||||
|
|
23
conf.org
23
conf.org
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue