mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-21 19:19:08 +00:00
Allow Sitemap links without extension
* lisp/org-publish.el (org-publish-project-alist): Document new :sitemap-sans-extension property. (org-publish-org-sitemap): Use new sitemap-sans-extension setting. The following patch adds an option to remove extensions of files linked from the auto generated sitemap. This is useful if you want to follow this: http://www.w3.org/Provider/Style/URI
This commit is contained in:
parent
420899b3df
commit
71400037f3
|
@ -178,6 +178,11 @@ sitemap of files or summary page for a given project.
|
|||
`tree' (the directory structure of the source
|
||||
files is reflected in the sitemap). Defaults to
|
||||
`tree'.
|
||||
:sitemap-sans-extension Remove extension from sitemap's
|
||||
filenames. Useful to have cool
|
||||
URIs (see
|
||||
http://www.w3.org/Provider/Style/URI).
|
||||
Defaults to nil.
|
||||
|
||||
If you create a sitemap file, adjust the sorting like this:
|
||||
|
||||
|
@ -758,6 +763,7 @@ Default for SITEMAP-FILENAME is 'sitemap.org'."
|
|||
(concat "Sitemap for project " (car project))))
|
||||
(sitemap-style (or (plist-get project-plist :sitemap-style)
|
||||
'tree))
|
||||
(sitemap-sans-extension (plist-get project-plist :sitemap-sans-extension))
|
||||
(visiting (find-buffer-visiting sitemap-filename))
|
||||
(ifn (file-name-nondirectory sitemap-filename))
|
||||
file sitemap-buffer)
|
||||
|
@ -769,6 +775,8 @@ Default for SITEMAP-FILENAME is 'sitemap.org'."
|
|||
(let ((fn (file-name-nondirectory file))
|
||||
(link (file-relative-name file dir))
|
||||
(oldlocal localdir))
|
||||
(when sitemap-sans-extension
|
||||
(setq link (file-name-sans-extension link)))
|
||||
;; sitemap shouldn't list itself
|
||||
(unless (equal (file-truename sitemap-filename)
|
||||
(file-truename file))
|
||||
|
|
Loading…
Reference in a new issue