1 ;;; blog-tool.el --- Some utility functions of blog -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2017 Peng Li
5 ;; Author: Peng Li <seudut@gmail.com>
8 ;; This program is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation, either version 3 of the License, or
11 ;; (at your option) any later version.
13 ;; This program is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
23 ;; Some functions to create post/page
29 (defconst blog-root-dir (file-name-directory (buffer-file-name)))
32 (defun blog-tool-create-post ()
35 (let ((title (read-from-minibuffer "Title: "))
38 (concat blog-root-dir "/posts/"
39 (replace-regexp-in-string " " "-" title)
43 "#+TITLE: " title "\n"
44 "#+AUTHOR: " my-name "\n"
45 "#+EMAIL: " my-email "\n"
47 (org-insert-time-stamp (current-time) nil nil nil "\n")
55 ;;; blog-tool.el ends here