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))))
|
||||
|
||||
(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)
|
||||
;; 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))))
|
||||
(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
|
||||
|
|
23
conf.org
23
conf.org
|
@ -644,8 +644,8 @@ There are several types of tags I use:
|
|||
*** 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-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)
|
||||
;; 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))))
|
||||
(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
|
||||
|
|
Loading…
Reference in New Issue