Org notes to Jekyll

  (defun generate-file-name (title)
	(interactive "sEnter title:")
	(message
	 (format "/Some/Folder/komikat.github.io/_posts/%s-%s.md"
		   (format-time-string "%Y-%m-%d")
				   (replace-regexp-in-string " " "-" (downcase title))))
  )

  (defun generate-header-post (title)
	(format "---
layout: post
title: \"%s\"
date: %s
categories: post
comments: false
---
" title (format-time-string "%Y-%m-%d %H:%M:%S %z")))

(defun generate-post (title)
(interactive "sEnter title:")
  (progn
	(org-gfm-export-as-markdown)
	(write-region (generate-header-post title) nil (generate-file-name title) t)
	(write-region nil nil (generate-file-name title) t)
	)
  )