author | Oleksandr Gavenko <gavenkoa@gmail.com> |
Thu, 10 Nov 2011 12:36:23 +0200 | |
changeset 814 | 91b9a35fc284 |
parent 813 | cd42d50dcef0 |
child 815 | d4bdfd8b5fc9 |
stmcrblog-mode.el | file | annotate | diff | comparison | revisions |
--- 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