wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Fix org-capture-make-todo-template in a few different ways

Browse Source
This commit is contained in:
Ivan Malison 2016-06-17 12:26:00 -07:00
parent d80a510304
commit 9375096279
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
dotfiles/emacs.d/README.org
View File

@ -1013,19 +1013,24 @@ Sets environment variables by starting a shell
(interactive) (interactive)
(org-map-entries 'org-archive-if-completed)) (org-map-entries 'org-archive-if-completed))
(defun org-capture-make-todo-template (&optional content) (cl-defun org-capture-make-todo-template
(unless content (setq content "%?")) (&key (content "%?") (creation-state "TODO"))
(with-temp-buffer (with-temp-buffer
(org-mode) (org-mode)
(org-insert-heading) (org-insert-heading)
(insert content) (insert content)
(org-todo "TODO") (org-todo creation-state)
(org-set-property "CREATED" (org-set-property "CREATED"
(with-temp-buffer (with-temp-buffer
(org-insert-time-stamp (org-insert-time-stamp
(org-current-effective-time) t t))) (org-current-effective-time) t t)))
(remove-hook 'post-command-hook 'org-add-log-note) (remove-hook 'post-command-hook 'org-add-log-note)
(org-add-log-note) (let ((org-log-note-purpose 'state)
(org-log-note-return-to (point-marker))
(org-log-note-marker (progn (goto-char (org-log-beginning t))
(point-marker)))
(org-log-note-state creation-state))
(org-add-log-note))
(buffer-substring-no-properties (point-min) (point-max)))) (buffer-substring-no-properties (point-min) (point-max))))
(defun org-todo-force-notes () (defun org-todo-force-notes ()
@ -1068,7 +1073,8 @@ Sets environment variables by starting a shell
(interactive "P") (interactive "P")
(org-agenda-todo "DONE")) (org-agenda-todo "DONE"))
;; Override the key definition for org-exit ;; Override the key definition for org-exit
;; (define-key org-agenda-mode-map "x" #'org-agenda-done) ;; TODO why does this cause an error ;; TODO why does this cause an error
;; (define-key org-agenda-mode-map "x" #'org-agenda-done)
;; org-mode add-ons ;; org-mode add-ons
(use-package org-present (use-package org-present
@ -1367,7 +1373,7 @@ Sets environment variables by starting a shell
(add-hook 'org-mode-hook 'imalison:disable-linum-mode) (add-hook 'org-mode-hook 'imalison:disable-linum-mode)
(add-hook 'org-mode-hook 'imalison:disable-smartparens-mode) (add-hook 'org-mode-hook 'imalison:disable-smartparens-mode)
(add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t))) (add-hook 'org-mode-hook (lambda () (setq org-todo-key-trigger t)))
(add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)))) (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode)))
#+END_SRC #+END_SRC
*** org-projectile *** org-projectile
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp