From f37fd1cd03d15aeba44c05d83c515da8196fe889 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Thu, 15 Jan 2015 18:25:04 -0200 Subject: Implement comment viewing in sx-display --- sx-interaction.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/sx-interaction.el b/sx-interaction.el index 4f4e31f..74602f2 100644 --- a/sx-interaction.el +++ b/sx-interaction.el @@ -184,10 +184,20 @@ likes." (sx-display-question (sx-question-get-from-answer .site_par .answer_id) 'focus) - (sx--find-in-buffer 'answer .answer_id)) + (if .comment_id + (sx--find-in-buffer 'comment .comment_id) + (sx--find-in-buffer 'answer .answer_id))) (.question_id (sx-display-question - (sx-question-get-question .site_par .id) 'focus)) + (sx-question-get-question .site_par .question_id) 'focus) + (when .comment_id + (sx--find-in-buffer 'comment .comment_id))) + ;; `sx-question-get-from-comment' takes 2 api requests, so we + ;; test it last. + (.comment_id + (sx-display-question + (sx-question-get-from-comment .site_par .id) 'focus) + (sx--find-in-buffer 'comment .comment_id)) (.notification_type (sx-message "Viewing notifications is not yet implemented")) (.item_type (sx-open-link .link))))) -- cgit v1.2.3