This is a quick one, mainly just to test out the little bit of elisp code that I wrote to automate the creation of blog posts. Which is what I am doing now. So meta.
Here's the code:
(defvar *blog-root* "/path/to/pelican/website/content/") (defvar *blog-author* "Your Name") (defun strip-nonfile-chars (s) (replace-regexp-in-string "[^0-9a-zA-Z_ ]" "" s)) (defun space-to-dash (s) (replace-regexp-in-string " " "-" s)) (defun title-to-blog-filename (title) (concat (downcase (space-to-dash (strip-nonfile-chars title))) ".md")) (defun start-blog-entry () "Creates a new markdown blog entry for pelican" (interactive) (let ((title (read-from-minibuffer "Title of new blog entry? "))) (find-file (concat *blog-root* (title-to-blog-filename title))) (insert (format (concat "Title: %s\n" "Date: %s\n" "Tags:\n" "Category: Blog\n" "Author: %s\n\n") title (format-time-string "%Y-%m-%d %R") *blog-author*))))
Fill in the vars, bind the start-blog-entry function to your favorite key sequence, and off you go.