From df32beb187aa7cc360324a75c802165aba016aeb Mon Sep 17 00:00:00 2001 From: Alexander Griffith Date: Sat, 17 Mar 2018 11:59:22 -0400 Subject: Adjusted mastodon-tl.el to open user profiles in emacs. (#189) * Adjusted mastodon-tl.el to open user profiles in emacs. This also fixes an issue in user profiles where new statuses were insert at the above rather than below the user profile header. --- test/mastodon-tl-tests.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'test') diff --git a/test/mastodon-tl-tests.el b/test/mastodon-tl-tests.el index b2f51c7..f7c6091 100644 --- a/test/mastodon-tl-tests.el +++ b/test/mastodon-tl-tests.el @@ -266,7 +266,9 @@ a string or a numeric." | Account 42 (@acct42@example.space) 2999-99-99 00:11:22 ------------")) (should (eq (get-text-property handle-location 'mastodon-tab-stop byline) - 'shr-url)) + 'user-handle)) + (should (string= (get-text-property handle-location 'mastodon-handle byline) + "@acct42@example.space")) (should (equal (get-text-property handle-location 'help-echo byline) "Browse user profile of @acct42@example.space")))))) @@ -364,11 +366,11 @@ a string or a numeric." | Account 42 (@acct42@example.space) Boosted Account 43 (@acct43@example.space) original time ------------")) (should (eq (get-text-property handle1-location 'mastodon-tab-stop byline) - 'shr-url)) + 'user-handle)) (should (equal (get-text-property handle1-location 'help-echo byline) "Browse user profile of @acct42@example.space")) (should (eq (get-text-property handle2-location 'mastodon-tab-stop byline) - 'shr-url)) + 'user-handle)) (should (equal (get-text-property handle2-location 'help-echo byline) "Browse user profile of @acct43@example.space")))))) @@ -946,7 +948,7 @@ constant." mastodon-tl-test-base-toot))) (mention-location 11)) (should (eq (get-text-property mention-location 'mastodon-tab-stop rendered) - 'shr-url)) + 'user-handle)) (should (equal (get-text-property mention-location 'help-echo rendered) "Browse user profile of @foo@bar.example")))) -- cgit v1.2.3