Re: [correction]

[Juan Manuel Macías]

Uwe Brauer writes:

> Don't worry, for the moment _@@  is fine for me

I think with font-lock-add-keywords it should work. I have put another
overlay on the tags, so that they are seen inside a box, separated by
":".

(defun overlay-dired-filetags (&optional lim)
  (when
      (re-search-forward "\\(_ftag_\\)\\(.+\\)" lim t)
    (let
        ((ov (make-overlay (match-beginning 1) (match-end 1)))
         (tag (propertize " ⚜ " 'face 'bold))
         (ov-2 (make-overlay (match-beginning 2) (match-end 2)))
         (tags (propertize (replace-regexp-in-string
                            "_"
                            ":"
                            (match-string 2))
                           'font-lock-face
                           '(:foreground "red" :box t))))
      (overlay-put ov 'overlay-tag t)
      (overlay-put ov 'display tag)
      (overlay-put ov-2 'overlay-tag-2 t)
      (overlay-put ov-2 'display tags))))

(font-lock-add-keywords
 'dired-mode
 '((overlay-dired-filetags (0  'font-lock-keyword-face t)))
 t)