aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-12-02 02:23:43 +0000
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-12-02 02:23:43 +0000
commitac7a451140e4a431c956092dd77d3df4e74bfbf4 (patch)
tree07c6b15ec2a7cfa61a9f262629036d85ef2ed3fd
parente5ebab3f99537b2dab0a7264f7e280564fdd6e6b (diff)
Header Commentary to sx-interaction
-rw-r--r--sx-interaction.el17
1 files changed, 16 insertions, 1 deletions
diff --git a/sx-interaction.el b/sx-interaction.el
index 85d681c..d0c4c47 100644
--- a/sx-interaction.el
+++ b/sx-interaction.el
@@ -19,6 +19,21 @@
;;; Commentary:
+;; This file holds a series of functions for performing arbitrary
+;; interactions with arbitrary objects (objects here always mean the
+;; alist of a question, answer, or comment). All commands take at
+;; least a DATA argument corresponding to the object which, when
+;; called interactively, is always derived from the context at point
+;; (usually using the `sx--data-here' function).
+;;
+;; Interactions represented here involve voting, commenting, asking,
+;; answering, editing.
+;;
+;; These are commands are meant to be available throughout the
+;; interface. So it didn't make sense to put them in a specific
+;; module. They also rely on a lot of dependencies, so they couldn't
+;; be put in sx.el.
+
;;; Code:
@@ -70,7 +85,7 @@ If DATA is a question, also mark it as read."
(let ((link
(when (stringp .link)
(funcall (if copy-as-kill #'kill-new #'browse-url)
- .link))))
+ .link))))
(when (and (called-interactively-p 'any) copy-as-kill)
(message "Copied: %S" link)))
(when (and .title (not copy-as-kill))