diff options
author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-18 14:58:59 -0400 |
---|---|---|
committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-18 15:03:01 -0400 |
commit | 9d9da60576b3925cf7a0d91be14221f013090276 (patch) | |
tree | a0b992280fe642343ec38ccba75e9dceea1519a0 /lisp/mastodon.el | |
parent | b2f927617e0e6394cfe55bb603668ee689480103 (diff) |
Add reply functionality
Diffstat (limited to 'lisp/mastodon.el')
-rw-r--r-- | lisp/mastodon.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 42bfb67..478c6dd 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -75,12 +75,15 @@ (mastodon-tl--get "home")) ;;;###autoload -(defun mastodon-toot () +(defun mastodon-toot (&optional user reply-to-id) "Update a Mastodon instance with new toot. Content is captured in a new buffer." (interactive) (require 'mastodon-toot) (progn (switch-to-buffer-other-window (get-buffer-create "*new toot*")) + (when user + (insert (format "@%s " user)) + (setq mastodon-toot--reply-to-id reply-to-id)) (mastodon-toot-mode t))) ;;;###autoload |