diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-25 00:29:35 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-25 00:29:35 +0000 |
| commit | b9988e7ae3df4503d30da36f749b8537eaa6465b (patch) | |
| tree | 057bab026910680dda89c9224de8d31fdabe5b2e /sx-question-list.el | |
| parent | fb1058921f841f92e99dce56206b79b22684b9a6 (diff) | |
Refactor visit from question-list to sx
Diffstat (limited to 'sx-question-list.el')
| -rw-r--r-- | sx-question-list.el | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index 4d80305..ddc04c7 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -287,7 +287,7 @@ into consideration. ("K" sx-question-list-previous-far) ("g" sx-question-list-refresh) (":" sx-question-list-switch-site) - ("v" sx-question-list-visit) + ("v" sx-visit) ("h" sx-question-list-hide) ("m" sx-question-list-mark-read) ([?\r] sx-question-list-display-question))) @@ -383,16 +383,6 @@ a new list before redisplaying." (cl-remove-if #'sx-question--hidden-p question-list)))) (when redisplay (tabulated-list-print 'remember))) -(defun sx-question-list-visit (&optional data) - "Visits question under point (or from DATA) using `browse-url'." - (interactive) - (unless data (setq data (tabulated-list-get-id))) - (unless data (error "No question here!")) - (sx-assoc-let data - (browse-url .link)) - (sx-question--mark-read data) - (sx-question-list-refresh 'redisplay 'no-update)) - (defcustom sx-question-list-ago-string " ago" "String appended to descriptions of the time since something happened. Used in the questions list to indicate a question was updated |