;; blog by Stuart Malcolm
(program (graphics data))

(defun create-links ()
  (let ((post-list (directory-files "~/www/absrnd/org/_posts" nil "org$"))
        (result))
    (dolist (post post-list result)
      (setq result (concat result
                           (concat "[["
                                   "./_posts/" post ".html]"
                                   "[" post "]]"))))))
(create-links)

1 Blog posts

Author: Stuart

Created: 2016-07-10 Sun 17:32

Validate