dired で今日編集したファイルを目立たせる

Meadow 
(defface my-face-f-2 '((t (:foreground "LightSeaGreen"))) nil)
(defvar my-face-f-2 'my-face-f-2)
(defun my-dired-today-search (arg)
  "Fontlock search function for dired."
  (search-forward-regexp
   (concat (format-time-string "%m-%d" (current-time)) " [0-9]....") arg t))

(add-hook 'dired-mode-hook
          '(lambda ()
             (font-lock-add-keywords
              major-mode
              (list
               '(my-dired-today-search . my-face-f-2)
               ))))


"%m-%d" のところは dired の表示設定によって変える必要がある。
最初参考ページで紹介されているのをコピペしてそのまま試してみたら
それが原因で色が変わらなかった。


「M-x describe-function format-time-string」でフォーマットについて調べると分かる。
face は「M-x list-colors-display」して好みに合ったのを選んだ。

参考