;;; blog-tool.el --- Some utility functions of blog  -*- lexical-binding: t; -*-

;; Copyright (C) 2017  Peng Li

;; Author: Peng Li <seudut@gmail.com>
;; Keywords: lisp

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; Some functions to create post/page

;;; Code:

(require 'org)

(defconst blog-root-dir (file-name-directory (buffer-file-name)))


(defun blog-tool-create-post ()
  "Create a post."
  (interactive)
  (let ((title (read-from-minibuffer "Title: "))
	(filename ""))
    (setq filename
	  (concat blog-root-dir "/posts/"
		  (replace-regexp-in-string " " "-" title)
		  ".org"))
    (find-file filename)
    (insert (concat
	     "#+TITLE: " title "\n"
	     "#+AUTHOR: " my-name "\n"
	     "#+EMAIL: " my-email "\n"
	     "#+DATE: "))
    (org-insert-time-stamp (current-time) nil nil nil "\n")
    (insert "\n")
    (save-buffer)))

(defun blog-tool-start-server ()
  "Start a http server on local folder for test."
  (interactive)
  ;; need to check if 8000 port is in use or not
  (let ((process-name "blog-server")
	(buffer-name "blog-srv-buf")
	(port-number "8000")
	(default-directory "~/project/blog/_site/"))
    (when (get-buffer buffer-name)
      (with-current-buffer buffer-name
	(erase-buffer)))
    (start-process process-name buffer-name "python" "-m" "SimpleHTTPServer" port-number)
    (split-window-below (- (/ (window-total-height) 3)))
    (other-window 1)
    (switch-to-buffer buffer-name)
    (other-window 1)))

(defun blog-tool-stop-server ()
  "Stop the http server."
  (interactive)
  (kill-process (get-process "blog-server")))




(provide 'blog-tool)
;;; blog-tool.el ends here