automate creation timestamps for new org headings
This commit is contained in:
parent
3d8a8af723
commit
940eb7b6ea
15
conf.org
15
conf.org
|
@ -665,6 +665,11 @@ Enable shortcuts for embedding code in org text bodies.
|
||||||
(add-to-list 'org-structure-template-alist
|
(add-to-list 'org-structure-template-alist
|
||||||
'("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"))
|
'("el" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC"))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
*** todo insertion
|
||||||
|
Make todo insertion respect contents
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(setq org-insert-heading-respect-content t)
|
||||||
|
#+END_SRC
|
||||||
*** interactive commands
|
*** interactive commands
|
||||||
Some useful additional commands for org buffers.
|
Some useful additional commands for org buffers.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
@ -748,6 +753,15 @@ and reverts all todo keywords to TODO."
|
||||||
(setq newhead (org-get-heading)))
|
(setq newhead (org-get-heading)))
|
||||||
(org-agenda-change-all-lines newhead hdmarker)
|
(org-agenda-change-all-lines newhead hdmarker)
|
||||||
(beginning-of-line 1))))
|
(beginning-of-line 1))))
|
||||||
|
|
||||||
|
(defun nd/org-insert-todo-heading-inactive-timestamp ()
|
||||||
|
"Insert a todo heading but also insert inactive timestamp set to now."
|
||||||
|
(interactive)
|
||||||
|
(call-interactively 'org-insert-todo-heading)
|
||||||
|
(insert "\n")
|
||||||
|
(funcall-interactively 'org-time-stamp-inactive '(16))
|
||||||
|
(previous-line))
|
||||||
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** column view
|
** column view
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
@ -2963,6 +2977,7 @@ These are for mode-specific bindings that can/should be outside of the evil maps
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(add-hook 'org-mode-hook
|
(add-hook 'org-mode-hook
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
(local-set-key (kbd "M-S-<return>") 'nd/org-insert-todo-heading-inactive-timestamp)
|
||||||
(local-set-key (kbd "C-c C-x x") 'nd/mark-subtree-done)
|
(local-set-key (kbd "C-c C-x x") 'nd/mark-subtree-done)
|
||||||
(local-set-key (kbd "C-c C-x c") 'nd/org-clone-subtree-with-time-shift)))
|
(local-set-key (kbd "C-c C-x c") 'nd/org-clone-subtree-with-time-shift)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue