[emacs-wiki-discuss] Re: [bug #14465] missing href to WikiIndex.html

[Pascal Quesseveur]

>"TM" == TAKAGI Masahiro <address@hidden> writes:

  TM> I found the href to WikiIndex.html in the footer was broken in recent
  TM> versions of emacs-wiki. This problem seems to be caused by the change
  TM> of (emaacs-wiki-link-href) in patch-112:

> * emacs-wiki-publish.el (emacs-wiki-link-href): Use emacs-wiki-link-url
>   instead of emacs-wiki-published-name.

  TM> (emacs-wiki-link-href "WikiIndex" "Index") returns <a href="">Index</a>.

This is caused by the fact emacs-wiki-index-page doesn't exist in the
Wiki main dir. A workaround is to create an empty index file in the Wiki
main dir. The following patch tries to correct the problem (it works
on my config).

======================================================================
*** emacs-wiki-publish.el.orig  2005-09-08 17:13:33.000000000 +0200
--- emacs-wiki-publish.el   2005-09-08 17:12:56.000000000 +0200
***************
*** 1969,1975 ****
                 (substring link (match-end 0)))
              (emacs-wiki-escape-url
               (emacs-wiki-published-name
!               link (emacs-wiki-page-name)))))))))
                                                                                
  (defsubst emacs-wiki-link-href (url name)
    "Return an href string for URL and NAME."
--- 1969,1986 ----
                 (substring link (match-end 0)))
              (emacs-wiki-escape-url
               (emacs-wiki-published-name
!               link (emacs-wiki-page-name)))))
!          ;; 2005-09-08 -- Pascal Quesseveur. When the link is the
!          ;; index page and it doesn't exist in emacs-wiki-file-alist,
!          ;; return a filename in the dir containing the default page.
!          ((string= link emacs-wiki-index-page)
!           (emacs-wiki-escape-url
!            (emacs-wiki-published-name
!             (file-relative-name
!              (concat (file-name-directory
!                       (emacs-wiki-page-file emacs-wiki-default-page))
!                      (emacs-wiki-wiki-base link)))
!             (emacs-wiki-page-name))))))))
                                                                                
  (defsubst emacs-wiki-link-href (url name)
    "Return an href string for URL and NAME."

======================================================================


-- 
Pascal Quesseveur, address@hidden