mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-12 13:40:05 +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
|
`tree' (the directory structure of the source
|
||||||
files is reflected in the sitemap). Defaults to
|
files is reflected in the sitemap). Defaults to
|
||||||
`tree'.
|
`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:
|
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))))
|
(concat "Sitemap for project " (car project))))
|
||||||
(sitemap-style (or (plist-get project-plist :sitemap-style)
|
(sitemap-style (or (plist-get project-plist :sitemap-style)
|
||||||
'tree))
|
'tree))
|
||||||
|
(sitemap-sans-extension (plist-get project-plist :sitemap-sans-extension))
|
||||||
(visiting (find-buffer-visiting sitemap-filename))
|
(visiting (find-buffer-visiting sitemap-filename))
|
||||||
(ifn (file-name-nondirectory sitemap-filename))
|
(ifn (file-name-nondirectory sitemap-filename))
|
||||||
file sitemap-buffer)
|
file sitemap-buffer)
|
||||||
|
@ -769,6 +775,8 @@ Default for SITEMAP-FILENAME is 'sitemap.org'."
|
||||||
(let ((fn (file-name-nondirectory file))
|
(let ((fn (file-name-nondirectory file))
|
||||||
(link (file-relative-name file dir))
|
(link (file-relative-name file dir))
|
||||||
(oldlocal localdir))
|
(oldlocal localdir))
|
||||||
|
(when sitemap-sans-extension
|
||||||
|
(setq link (file-name-sans-extension link)))
|
||||||
;; sitemap shouldn't list itself
|
;; sitemap shouldn't list itself
|
||||||
(unless (equal (file-truename sitemap-filename)
|
(unless (equal (file-truename sitemap-filename)
|
||||||
(file-truename file))
|
(file-truename file))
|
||||||
|
|
Loading…
Reference in a new issue