# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1320921383 -7200
# Node ID 91b9a35fc2849cc4b3e2b26ca499665dc033283f
# Parent  cd42d50dcef0c64e7af435aaf6213acad0e64c2d
Add post current line function.

diff -r cd42d50dcef0 -r 91b9a35fc284 stmcrblog-mode.el
--- a/stmcrblog-mode.el	Thu Nov 10 12:17:30 2011 +0200
+++ b/stmcrblog-mode.el	Thu Nov 10 12:36:23 2011 +0200
@@ -99,6 +99,17 @@
       )
   ))
 
+;;;###autoload
+(defun stmcrblog-post-current-line (prefix)
+  "Post 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