;;; stmcrblog-mode.el --- static micro-blogging engine from Emacs

;; Copyright (C) 2011 by Oleksandr Gavenko <gavenkoa@gmail.com>

;; You can do anything with this file without any warranty.

;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>

;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>

;; Created: 2011-11-10

;; Version: 0.1

;; Keywords: blog, microblog, blogging, gtd

;;; Commentary:

;;

;; Very pure release.

;;; Code:

(defconst stmcrblog-major-version 0

  "stmcrblog major version.")

(defconst stmcrblog-minor-version 1

  "stmcrblog major version.")

(defun stmcrblog-version (&optional here)

  "Return stmcrblog version."

  (interactive "P")

  (let ( (version-string (format "stmcrblog %d.%d" stmcrblog-major-version stmcrblog-minor-version)) )

    (if here

        (insert version-string)

      (if (called-interactively-p 'interactive)

          (message "%s" version-string)

        version-string))

    ))

(defvar stmcrblog-file "~/.stmcrblog"

  "Blog entries storage file name.")

(defvar stmcrblog-after-add-entry-hook nil

  "`stmcrblog-after-add-entry-hook' called after adding entries.

You can use this hook to render and publish `stmcrblog-file'.")

(defun stmcrblog-add-entry (msg)

  "Add post to blog.

Automatically set time to current value. Only first line of MSG

was added.

`stmcrblog-after-add-entry-hook' called after adding entries. You

can use this hook to render and publish `stmcrblog-file'."

  (let (

        (coding-system-for-read 'utf-8)

        (coding-system-for-write 'utf-8)

        pos

        )

    (setq pos (string-match "\n" msg))

    (when pos

      (setq msg (substring msg 0 pos)))

    (save-excursion ;save-window-excursion

      (find-file stmcrblog-file)

      (beginning-of-buffer)

      (insert

       (format-time-string "%Y-%m-%d %H:%M" (current-time))

       " "

       msg

       "\n")

      (save-buffer)

      (kill-buffer)

      )

    (run-hooks 'stmcrblog-after-add-entry-hook)

    ))

(defvar stmcrblog-buffer-name "*stmcrblog-entry*"

  "`stmcrblog' buffer name for composing editing message")

(defun stmcrblog-post-edit (&optional msg)

  (let (

        (buffer (get-buffer-create stmcrblog-buffer-name))

        (current-buffer (current-buffer))

        )

    (switch-to-buffer buffer)

    (local-key-binding )

    (kill-buffer buffer)

    (error "not-implemented")

    ))

;;;###autoload

(defun stmcrblog-post (&optional prefix start end)

  "Post entry.

Interactively, in Transient Mark mode when the mark is active,

operate on the contents of the region. Otherwise, open

`stmcrblog-buffer-name' buffer for message editing."

  (interactive "P\nr")

  (let ( msg )

    (when (and (called-interactively-p 'interactive) transient-mark-mode mark-active)

      (setq msg (buffer-substring-no-properties start end))

      )

    (if msg

        (stmcrblog-add-entry msg)

      )

  ))

;;;###autoload

(defun stmcrblog-post-current-line (prefix)

  "Post current line.

With prefix remove current line."

  (interactive "P")

  (stmcrblog-add-entry (buffer-substring-no-properties (line-beginning-position) (line-end-position)))

  (when prefix

    (move-beginning-of-line 1)

    (kill-line)

    )

  )

(provide 'stmcrblog-mode)

;;; stmcrblog-mode.el ends here