Add post current line function.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 10 Nov 2011 12:36:23 +0200
changeset 814 91b9a35fc284
parent 813 cd42d50dcef0
child 815 d4bdfd8b5fc9
Add post current line function.
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