From caedd92eef8fe47c3925c12d8e81be911556b38b Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Fri, 11 Jan 2013 01:16:41 +0100
Subject: Update files

---
 site/blog/index.org | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100644 site/blog/index.org

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

diff --git a/site/blog/index.org b/site/blog/index.org
deleted file mode 100644
index 5630590..0000000
--- a/site/blog/index.org
+++ /dev/null
@@ -1,21 +0,0 @@
-#+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