diff options
| author | Johnson Denen <johnson.denen@gmail.com> | 2017-04-29 12:52:01 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-04-29 12:52:01 -0400 |
| commit | ac10d7a647aa77aa933076a523a48ec0a283dd15 (patch) | |
| tree | fc07a18846ae5268ffebc52b75a9900b997883bc /lisp/mastodon-tl.el | |
| parent | d011f39b8d638dbb5f13dae1f31fb311724f64c6 (diff) | |
| parent | 0aa660ec3afe3be1819d02fee7f3187dc62c09a2 (diff) | |
Merge pull request #106 from jdenen/develop
v0.6.2
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 27531c5..7ea38c4 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2017 Johnson Denen ;; Author: Johnson Denen <johnson.denen@gmail.com> -;; Version: 0.6.1 +;; Version: 0.6.2 ;; Homepage: https://github.com/jdenen/mastodon.el ;; This file is not part of GNU Emacs. @@ -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 (or (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) |