equal
deleted
inserted
replaced
|
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 |