#!/usr/bin/emacs --script
;; publish.el -- publish my projects in emacs lisp scripting
;; Author: Exal de Jesus Garcia Carrillo <exal AT softwarelivre DOT org>
;; Copyright (C) 2008 Exal de Jesus Garcia Carrillo

(add-to-list 'load-path
             (expand-file-name
              "~/lisp/muse/lisp"))

(load "~/www/muse-init.el")

(muse-project-publish-file-default
        "~/www/Muse/QuickStart.es.muse" "exal-www" "~/www/Muse/" nil)

 (setq projects '("principal" "codes" "conf" "emacs" "muse"))

  (defun exal-publish-projects (list)
    (while list
      (muse-project-publish (car list)) ;:force-publish) ; uncomment for force
      (setq list (cdr list))))


 (exal-publish-projects projects)

;; publish.el ends here