+(defun my-org-publish-sitemap-default-entry (entry style project)
+ "My format for site map ENTRY, as a string.
+ENTRY is a file name. STYLE is the style of the sitemap.
+PROJECT is the current project."
+ (cond ((not (directory-name-p entry))
+ (format "%s - [[file:%s][%s]]" ;;the date and filename are added after the entry
+ (format-time-string "%e %b %Y" (org-publish-find-date entry project))
+ entry
+ (org-publish-find-title entry project)))
+ ((eq style 'tree)
+ ;; Return only last subdir.
+ (file-name-nondirectory (directory-file-name entry)))
+ (t entry)))
+