diff --git a/contrapunctus/cp-chronometrist.el b/contrapunctus/cp-chronometrist.el
index b5626dc..8d5017e 100644
--- a/contrapunctus/cp-chronometrist.el
+++ b/contrapunctus/cp-chronometrist.el
@@ -110,18 +110,7 @@ FILE-1 will appear above FILE-2."
                                    "~/phone/Nokia 6.1/Documents/Markor/OSM/TODO.md"))
     ;; https://github.com/bbatsov/emacs-lisp-style-guide#comment-annotations
     ("Programming"
-     (grep (->> '("grep" "--color" "-EnHiIR" "-e '(TODO|FIXME|OPTIMIZE|HACK|REVIEW)'"
-                  "--exclude=\"*.html\""
-                  "--exclude-dir=\".git\""
-                  "~/.emacs.d/contrapunctus/"
-                  "~/Documents/Text\\ Files/programming/")
-                (-interpose " ")
-                (apply #'concat)))
-     (switch-to-buffer "*grep*")
-     (split-window-below)
-     (other-window 1)
-     (find-file "~/phone/Nokia 6.1/Documents/Markor/Computers/todo.md")
-     (delete-other-windows))
+     (find-file-other-window "~/phone/Nokia 6.1/Documents/Markor/Computers/todo.md"))
     ("Singing"
      (find-file-other-window "~/Sync/Scores/voice/repertoire.org"))
     ("Subtitles"