URL:
<http://gna.org/bugs/?9441>
Summary: .html extension missing in hrefs at links between
different pages
Project: Emacs Muse
Submitted by: None
Submitted on: Mittwoch 04.07.2007 um 11:08 CEST
Category: muse
Severity: 4 - Important
Priority: 5 - Normal
Status: None
Privacy: Public
Assigned to: None
Originator Email: [EMAIL PROTECTED]
Open/Closed: Open
Discussion Lock: Any
_______________________________________________________
Details:
Hi,
recently I updated from 3.02.92 to 3.03 and observed that my html links
between different pages of my wiki in the published html-output were broken.
The .html extension was missing.
I found out that muse-publish-link-file only concats an .html extension when
the provided file does not exist. It looks for the file in the source
directory, finds the source file and does not add the extension.
The file name was made a relative link before in muse-project-resolve-link
and muse-publish-link-file is called without changing into the output
directory.
My muse files do not have an extension.
BR,
Sebastian
I locally made a quick fix with the following change:
-------------------------------
c:/cygwin/bin/diff -u c:/emacs/site-lisp/muse/muse-project.el.~1~
c:/emacs/site-lisp/muse/muse-project.el
--- c:/emacs/site-lisp/muse/muse-project.el.~1~ 2007-06-26 09:05:55.868750000
+0200
+++ c:/emacs/site-lisp/muse/muse-project.el 2007-07-04 10:42:04.873750000
+0200
@@ -675,16 +675,19 @@
remote-styles)))
(if (null remote-style)
page
- (muse-publish-link-file
- (let ((prefix (muse-style-element :base-url remote-style)))
- (if prefix
- (concat prefix page)
- (file-relative-name (expand-file-name
- (file-name-nondirectory page)
- (muse-style-element :path remote-style))
- (expand-file-name
- (muse-style-element :path local-style)))))
- remote-style))))
+ (file-relative-name
+ (muse-publish-link-file
+ (let ((prefix (muse-style-element :base-url remote-style)))
+ (if prefix
+ (concat prefix page)
+ (expand-file-name
+ (file-name-nondirectory page)
+ (muse-style-element :path remote-style))
+ ))
+ remote-style)
+ (expand-file-name
+ (muse-style-element :path local-style)))
+ )))
(defun muse-project-current-output-style (&optional file project)
(or muse-current-output-style
Diff finished. Wed Jul 04 10:45:40 2007
_______________________________________________________
Reply to this item at:
<http://gna.org/bugs/?9441>
_______________________________________________
Nachricht geschickt von/durch Gna!
http://gna.org/
_______________________________________________
Muse-el-commits mailing list
[email protected]
https://mail.gna.org/listinfo/muse-el-commits
