mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-21 19:19:08 +00:00
Code Releases Activity

Allow Sitemap links without extension

Browse source 
* 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:
Manuel Giraud 2011-04-29 18:07:14 +00:00 committed by Carsten Dominik
parent 420899b3df
commit 71400037f3
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-publish.el
View file

@ -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))