Add base 'stmcrblog' mode code.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 10 Nov 2011 10:29:44 +0200
changeset 810 4c2010d424ed
parent 808 54d6db4ec612
child 811 336ca7359658
Add base 'stmcrblog' mode code.
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