# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1320913784 -7200
# Node ID 4c2010d424edc30569cd5b305c8021031dc3386b
# Parent  54d6db4ec612d0fa6a1e8b7241ab6be95f6307d4
Add base 'stmcrblog' mode code.

diff -r 54d6db4ec612 -r 4c2010d424ed stmcrblog-mode.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/stmcrblog-mode.el	Thu Nov 10 10:29:44 2011 +0200
@@ -0,0 +1,38 @@
+;;; 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))
+    ))
+
+(provide 'stmcrblog-mode)
+
+;;; stmcrblog-mode.el ends here