(let ((post-date (format-time-string "%F"
(org-time-string-to-time (org-entry-get nil
"DATE"))))
(post-stub (replace-regexp-in-string " "
"-"
(downcase (or (org-entry-get nil "post_stub")
(org-entry-get nil "ITEM"))))))
(org-set-property "EXPORT_FILE_NAME"
(file-name-concat (org-entry-get nil "blog_path" t)
(file-name-with-extension (mapconcat #'identity
(list post-date
post-stub)
"-")
"md"))))
{ 'layout' => 'post',
'title' => post_title,
'date' => post_date,
'tags' => (post_tags.empty? ? nil : post_tags)
}.
compact.
to_yaml.
concat(YAML.dump(nil))
#+RESULTS[c0dce3871839081df9f8dffdc2f5736d641bb0a5]:
#+RESULTS[5b304566eca958074cdf584ec8c92365f4a62bdf]:
Stuff
More stuff
#+RESULTS[0b4d5d1e2dbc3585f236ace10c9183739c7b4943]:
This is a test.
Contents of test.