let has_tag tag = Tags.mem tag (tags_of_filename "")