diff --git a/doom/config.el b/doom/config.el
index ee067e6..e35531c 100644
--- a/doom/config.el
+++ b/doom/config.el
@@ -60,6 +60,14 @@
 ;; Make C-h kill a word in Ivy, for symmetry with C-j/k/l bindings.
 (map! :map ivy-mode-map "C-h" #'ivy-backward-kill-word)
 
+;; Clear all todo statuses in org-mode. For Grocery list.
+(defun ttm-org-clear-all ()
+  (interactive)
+  (org-map-entries
+   (lambda ()
+     (org-todo "")))
+  (message "Entries cleared."))
+
 ;; Here are some additional functions/macros that could help you configure Doom:
 ;;
 ;; - `load!' for loading external *.el files relative to this one