blob: 563059058a41f9d7b49f4b0fa0949deaaf6879d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
|
