stmcrblog-mode.el
changeset 810 4c2010d424ed
parent 572 ead98b9f85c3
child 811 336ca7359658
equal deleted inserted replaced
808:54d6db4ec612 810:4c2010d424ed
       
     1 ;;; stmcrblog-mode.el --- static micro-blogging engine from Emacs
       
     2 
       
     3 ;; Copyright (C) 2011 by Oleksandr Gavenko <gavenkoa@gmail.com>
       
     4 
       
     5 ;; You can do anything with this file without any warranty.
       
     6 
       
     7 ;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
       
     8 ;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
       
     9 ;; Created: 2011-11-10
       
    10 ;; Version: 0.1
       
    11 ;; Keywords: blog, microblog, blogging, gtd
       
    12 
       
    13 ;;; Commentary:
       
    14 ;;
       
    15 ;; Very pure release.
       
    16 
       
    17 ;;; Code:
       
    18 
       
    19 (defconst stmcrblog-major-version 0
       
    20   "stmcrblog major version.")
       
    21 
       
    22 (defconst stmcrblog-minor-version 1
       
    23   "stmcrblog major version.")
       
    24 
       
    25 (defun stmcrblog-version (&optional here)
       
    26   "Return stmcrblog version."
       
    27   (interactive "P")
       
    28   (let ( (version-string (format "stmcrblog %d.%d" stmcrblog-major-version stmcrblog-minor-version)) )
       
    29     (if here
       
    30         (insert version-string)
       
    31       (if (called-interactively-p 'interactive)
       
    32           (message "%s" version-string)
       
    33         version-string))
       
    34     ))
       
    35 
       
    36 (provide 'stmcrblog-mode)
       
    37 
       
    38 ;;; stmcrblog-mode.el ends here