--- a/.emacs-my	Sun May 14 16:40:00 2023 +0300
+++ b/.emacs-my	Mon Dec 25 20:15:49 2023 +0200
@@ -2016,7 +2016,7 @@
 (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file)))
 (define-key global-map "\C-vb" (lambda nil (interactive) (find-file (concat org-directory "/BLOG.rst"))))
 
-(setq org-todo-keywords '("|" "DONE"))
+(setq org-todo-keywords '((sequence "|" "DONE" "FAILED")))
 
 ;; My tags for remember buffer.
 (setq org-tag-alist