diff --git a/work.el b/work.el
index 4bf349e..d3d9b4a 100644
--- a/work.el
+++ b/work.el
@@ -32,17 +32,24 @@
(make-powered-by lang)
""))
+;; Produce the tag including the stylesheet relative to the
+;; given root.
+(defun make-styles (root)
+ (concat ""))
+
+;; Produce the preamble with links relative to the given root.
+(defun make-preamble (root)
+ (concat "
+Sergiu Ivanov
+
+
+
+"))
+
;; Set up org-publish for my work site.
(let* ((work-base "~/Candies/Sites/work/")
- (publishing-base (concat work-base "www/"))
- (my-styles "")
- (my-preamble "
-Sergiu Ivanov
-
-
-
-"))
+ (publishing-base (concat work-base "www/")))
(setq org-publish-project-alist
@@ -62,8 +69,8 @@
:html-head-include-default-style nil
:html-head-include-scripts nil
- :html-head-extra ,my-styles
- :html-preamble ,my-preamble
+ :html-head-extra ,(make-styles "../")
+ :html-preamble ,(make-preamble "../")
:html-postamble ,(make-postamble 'en))
@@ -82,8 +89,8 @@
:html-head-include-default-style nil
:html-head-include-scripts nil
- :html-head-extra ,my-styles
- :html-preamble ,my-preamble
+ :html-head-extra ,(make-styles "")
+ :html-preamble ,(make-preamble "")
:html-postamble ,(make-postamble 'en))
@@ -99,8 +106,8 @@
:html-head-include-default-style nil
:html-head-include-scripts nil
- :html-head-extra ,my-styles
- :html-preamble ,my-preamble
+ :html-head-extra ,(make-styles "../")
+ :html-preamble ,(make-preamble "../")
:html-postamble ,(make-postamble 'fr))