From a2f077cf13d307c4d9d862028f459b783ede53cc Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 10 Dec 2012 02:22:18 +0100
Subject: Add some blog posts

Also an index page that automatically generates a list of all the
posts available.
---
 site/blog/index.org | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 site/blog/index.org

(limited to 'site/blog/index.org')

diff --git a/site/blog/index.org b/site/blog/index.org
new file mode 100644
index 0000000..5630590
--- /dev/null
+++ b/site/blog/index.org
@@ -0,0 +1,21 @@
+#+TITLE: Blog
+
+* Posts
+  #+begin_src emacs-lisp :exports results :results list
+    (defun file-to-data (file)
+      (unless (or (string= file ".") (string= file "..") (string= file "index.org"))
+        (let (title date)
+          (with-temp-buffer
+            (insert-file (concat "/home/slash/var/src/orgweb/site/blog/" file))
+            (goto-char (point-min))
+            (re-search-forward "^#\\+TITLE: \\(.*\\)$")
+            (setq title (buffer-substring-no-properties
+                         (match-beginning 1) (match-end 1)))
+            (goto-char (point-min))
+            (re-search-forward "^#\\+DATE: \\(.*\\)$")
+            (setq date (buffer-substring-no-properties
+                        (match-beginning 1) (match-end 1))))
+        (list date (concat "[[file:" file "][" title "]]")))))
+
+    (mapcar #'cadr (sort (delete nil (mapcar #'file-to-data (directory-files "/home/slash/var/src/orgweb/site/blog"))) (lambda (el1 el2) (not (string-lessp (car el1) (car el2))))))
+  #+end_src
-- 
cgit v1.2.3-54-g00ecf