diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-29 20:53:52 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-29 20:59:59 +0000 |
| commit | eca252dfddba3b18d4da74bee1b802c8d59e0c4a (patch) | |
| tree | 34f4ae1dfb71707dd36ec0357425c0e22e05f379 /sx-interaction.el | |
| parent | 8d38a7bfe808f6af9c95ca7a490a7a822ea59e73 (diff) | |
New "Add a Comment" button
Diffstat (limited to 'sx-interaction.el')
| -rw-r--r-- | sx-interaction.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/sx-interaction.el b/sx-interaction.el index 5f3ece6..92b062b 100644 --- a/sx-interaction.el +++ b/sx-interaction.el @@ -117,15 +117,18 @@ changes." ;;; Commenting -(defun sx-comment (data text) +(defun sx-comment (data &optional text) "Post a comment on DATA given by TEXT. DATA can be a question, an answer, or a comment. Interactively, it is guessed from context at point. If DATA is a comment, the comment is posted as a reply to it. TEXT is a string. Interactively, it is read from the minibufer." - (interactive - (list (sx--data-here) 'query)) + (interactive (list (sx--data-here) 'query)) + ;; When clicking the "Add a Comment" button, first arg is a marker. + (when (markerp data) + (setq data (sx--data-here)) + (setq text 'query)) (sx-assoc-let data ;; Get the comment text (when (eq text 'query) |