[emacs-wiki-discuss] Multiple wiki publishing

[pll+ew]

Hi all,

I'm trying to manage multiple wikis, so I have this in my wiki.el:

(setq emacs-wiki-projects `(
 ("default" . ((emacs-wiki-directories . ("~/Wiki"))))
 ("ops" . ((fill-column . 65)
           (emacs-wiki-directories . ("~/work/OpsDocs"))))
 ("user" . ((fill-column . 65)
            (emacs-wiki-directories . ("~/work/UserDocs"))))))

But this published everything to the default publishing directory.  
What I'd like to do is publish the different wikis to different 
directories based on project.  I tried:

(setq emacs-wiki-projects `(
 ("default" . ((emacs-wiki-directories . ("~/Wiki"))))
 ("ops" . ((fill-column . 65)
           (emacs-wiki-directories . ("~/work/OpsDocs"))
           (emacs-wiki-publishing-directory . ("~/public_html/OpsDocs"))))
 ("user" . ((fill-column . 65)
            (emacs-wiki-directories . ("~/work/UserDocs"))
            (emacs-wiki-publishing-directory . ("~/public_html/UserDocs"))))))


But when I type M-x emacs-wiki-publish, I get a backtrace (below).
The top of which states:

  Signaling: (wrong-type-argument stringp ("~/public_html/OpsDocs"))
    file-name-as-directory(("~/public_html/OpsDocs"))

I'm assuming that I'm somehow setting the 'emacs-wiki-publishing-directory'
variable incorrectly, but, not being a lisp coder, I'm not quite sure 
how to set this.

Thanks,
Paul

Here's the entire backtrace in case it's of some help:



Signaling: (wrong-type-argument stringp ("~/public_html/OpsDocs"))
  file-name-as-directory(("~/public_html/OpsDocs"))
  (concat (file-name-as-directory emacs-wiki-publishing-directory) found)
  (if found (concat (file-name-as-directory emacs-wiki-publishing-directory) 
found) emacs-wiki-publishing-directory)
  (let ((d emacs-wiki-directories) (alist ...) found) (while d (let* ... ...)) 
(if found (concat ... found) emacs-wiki-publishing-directory))
  (expand-file-name (emacs-wiki-published-name (emacs-wiki-page-name file)) 
(let (... ... found) (while d ...) (if found ... 
emacs-wiki-publishing-directory)))
  emacs-wiki-published-file("SupportedSoftwareList")
  (setq file (car files) files (cdr files) page (emacs-wiki-page-name file) 
published (emacs-wiki-published-file page))
  (while files (setq file (car files) files (cdr files) page 
(emacs-wiki-page-name file) published (emacs-wiki-published-file page)) (let 
(...) (unless ... ... ...)) (when (and ... ...) (funcall 
emacs-wiki-publish-function file published) (run-hook-with-args ... file) (setq 
published-some t)))
  (let (published-some file page published) (while files (setq file ... files 
... page ... published ...) (let ... ...) (when ... ... ... ...)) 
published-some)
  
emacs-wiki-publish-files(("/permabit/user/pll/work/OpsDocs/SupportedSoftwareList"
 "/permabit/user/pll/work/OpsDocs/OutLook" 
"/permabit/user/pll/work/OpsDocs/ConfigurePrinters" 
"/permabit/user/pll/work/OpsDocs/WelcomePage" 
"/permabit/user/pll/work/OpsDocs/LapTops" 
"/permabit/user/pll/work/OpsDocs/SaveOnServer" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/WeeklyBackups" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/FuturePlans" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/WelcomePage" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/BackupSchedules" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/IncrementalBackups" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/BackupHardware" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/SavingsAndConsiderations" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/ArchivalBackups" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/DogFoodFootNotes" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/DogFood" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/BackupProcedures" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/Bac
 kupSoftware" "/permabit/user/pll/work/OpsDocs/OpsDocs/DogFoodSummary" 
"/permabit/user/pll/work/OpsDocs/UserDocs/MailList" 
"/permabit/user/pll/work/OpsDocs/UserDocs/UserAccounts" 
"/permabit/user/pll/work/OpsDocs/UserDocs/DomainName" 
"/permabit/user/pll/work/OpsDocs/UserDocs/HomeDirectory" 
"/permabit/user/pll/work/OpsDocs/UserDocs/RtAccount" 
"/permabit/user/pll/work/OpsDocs/UserDocs/PassWord" 
"/permabit/user/pll/work/OpsDocs/UserDocs/EmailAlias" 
"/permabit/user/pll/work/OpsDocs/UserDocs/MailLists" 
"/permabit/user/pll/work/OpsDocs/UserDocs/UserInfo" 
"/permabit/user/pll/work/OpsDocs/UserDocs/WelcomePage" 
"/permabit/user/pll/work/OpsDocs/UserDocs/EmailAccounts" 
"/permabit/user/pll/work/OpsDocs/UserDocs/PermabitOps" 
"/permabit/user/pll/work/OpsDocs/UserDocs/EmailAddresses" 
"/permabit/user/pll/work/OpsDocs/UserDocs/UserName" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/WeeklyBackups" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/FuturePlans" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/WelcomeP
 age" "/permabit/user/pll/work/OpsDocs/OpsDocs/BackupSchedules" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/IncrementalBackups" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/BackupHardware" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/SavingsAndConsiderations" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/ArchivalBackups" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/DogFoodFootNotes" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/DogFood" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/BackupProcedures" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/BackupSoftware" 
"/permabit/user/pll/work/OpsDocs/OpsDocs/DogFoodSummary" 
"/permabit/user/pll/work/OpsDocs/UserDocs/MailList" 
"/permabit/user/pll/work/OpsDocs/UserDocs/UserAccounts" 
"/permabit/user/pll/work/OpsDocs/UserDocs/DomainName" 
"/permabit/user/pll/work/OpsDocs/UserDocs/HomeDirectory" 
"/permabit/user/pll/work/OpsDocs/UserDocs/RtAccount" ...) nil)
  (if (emacs-wiki-publish-files (let* ... ... ...) arg) (progn (run-hooks ...) 
(message "All Wiki pages%s have been published." ...)) (message "No Wiki 
pages%s need publishing at this time." (if emacs-wiki-current-project ... "")))
  emacs-wiki-publish(nil)
  call-interactively(emacs-wiki-publish)
  command-execute(emacs-wiki-publish t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)