24 lines
509 B
EmacsLisp
24 lines
509 B
EmacsLisp
(provide 'thoom-org)
|
|
|
|
(use-package org
|
|
:bind (("C-c o ," . thoom/org-clear-all))
|
|
:custom
|
|
(org-todo-keywords '((sequence "TODO(t)" "BLOCKED(b)" "|" "DONE(d)"))))
|
|
|
|
(use-package org-bullets
|
|
:ensure t
|
|
:config
|
|
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))))
|
|
|
|
;; Eagerly load org-mode
|
|
(with-temp-buffer (org-mode))
|
|
|
|
(defun thoom/org-clear-all ()
|
|
(interactive)
|
|
(goto-char 0)
|
|
(org-map-entries
|
|
(lambda ()
|
|
(org-todo "")))
|
|
;;(flush-lines "CLOSED")
|
|
(message "Entries cleared."))
|