use variable to muse web directory path

 

File modified: lisp/emacs.d/ivan-muse.el

Change351 at Sun Aug 22 22:40:12 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r 79d7e6c3575c -r 15c84d84644a lisp/emacs.d/ivan-muse.el
--- a/lisp/emacs.d/ivan-muse.el	Sun Aug 22 19:43:53 2010 +0200
+++ b/lisp/emacs.d/ivan-muse.el	Sun Aug 22 22:40:12 2010 +0200
@@ -45,14 +45,17 @@
    (format "~/hg/conf/quotes.%s"
            (nth (random 3) '("french" "english" "japanese"))) "" ""))
 
+(setq ivan-muse-web-dir (getenv "WEB_DIR"))
+
 (setq
  muse-project-alist
- '(("website" ("~/hg/web")
-    (:base "html" :path "~/hg/web"))
-   ("archive" ("~/hg/web/archive")
-    (:base "html" :path "~/hg/web"))
-   ("blog-rss" ("~/hg/web")
-    (:base "journal-rss" :path "~/hg/web" :include "blog.*\\.muse")))
+ `(("website" (,ivan-muse-web-dir)
+    (:base "html" :path ,ivan-muse-web-dir))
+   ("archive" (,ivan-muse-web-dir)
+    (:base "html" :path ,ivan-muse-web-dir))
+   ("blog-rss" (,ivan-muse-web-dir)
+    (:base "journal-rss" :path ,ivan-muse-web-dir
+           :include "blog.*\\.muse")))
  muse-file-regexp
  (concat "\\`[~/]\\|\\?\\|/\\'\\|\\."
          "\\(html?\\|pdf\\|xml\\|el\\|swf\\|zip\\|txt\\|tar\\|"


back