diff options
author | Alexander Griffith <griffitaj@gmail.com> | 2017-04-24 20:00:16 -0400 |
---|---|---|
committer | Johnson Denen <johnson.denen@gmail.com> | 2017-04-28 20:02:26 -0400 |
commit | fdfb30f8d18d28aaf3b98513814ba71afc457d62 (patch) | |
tree | 19446a1d859b3cff391fded0083ca7bd98e3076a /lisp/mastodon-tl.el | |
parent | 1e6b6087db71460c19d4f44db337b76fc8506317 (diff) |
en #74 added autofill for tag timeline
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r-- | lisp/mastodon-tl.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 27531c5..a68b1f3 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -56,7 +56,10 @@ (defun mastodon-tl--get-tag-timeline () "Prompts for tag and opens its timeline." (interactive) - (let ((tag (read-string "Tag: "))) + (let* ((word (word-at-point)) + (input (read-string (format "Tag(%s): " word))) + (tag (if (equal input "") word input))) + (print tag) (mastodon-tl--get (concat "tag/" tag)))) (defun mastodon-tl--goto-toot-pos (find-pos refresh &optional pos) |