aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorAlexander Griffith <griffitaj@gmail.com>2017-04-24 20:00:16 -0400
committerJohnson Denen <johnson.denen@gmail.com>2017-04-28 20:02:26 -0400
commitfdfb30f8d18d28aaf3b98513814ba71afc457d62 (patch)
tree19446a1d859b3cff391fded0083ca7bd98e3076a /lisp
parent1e6b6087db71460c19d4f44db337b76fc8506317 (diff)
en #74 added autofill for tag timeline
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el5
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)