From f80f38e87c86070433a9a8c2a6fbf75b490b6875 Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Sat, 20 Dec 2014 02:00:24 -0500
Subject: Hotfix undefined variable

---
 sx.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'sx.el')

diff --git a/sx.el b/sx.el
index 4ad0fd5..6f4e7c7 100644
--- a/sx.el
+++ b/sx.el
@@ -107,7 +107,8 @@ is intentionally skipped."
 (defun sx-user-error (format-string &rest args)
   "Like `user-error', but prepend FORMAT-STRING with \"[sx]\".
 See `format'."
-  (signal 'user-error (list (apply #'format (concat "[sx] " format) args))))
+  (signal 'user-error
+          (list (apply #'format (concat "[sx] " format-string) args))))
 
 (defun sx-message (format-string &rest args)
   "Display FORMAT-STRING as a message with ARGS.
-- 
cgit v1.2.3


From 6eb53ee0f12dd9f7d444e6749f6cc55c6db62078 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Tue, 23 Dec 2014 23:54:14 -0200
Subject: Define assoc let first

---
 sx.el | 68 +++++++++++++++++++++++++++++++++----------------------------------
 1 file changed, 34 insertions(+), 34 deletions(-)

(limited to 'sx.el')

diff --git a/sx.el b/sx.el
index 6f4e7c7..a31c0a0 100644
--- a/sx.el
+++ b/sx.el
@@ -50,6 +50,40 @@
   (interactive)
   (browse-url "https://github.com/vermiculus/sx.el/issues/new"))
 
+
+;;; Site
+(defun sx--site (data)
+  "Get the site in which DATA belongs.
+DATA can be a question, answer, comment, or user (or any object
+with a `link' property).
+DATA can also be the link itself."
+  (let ((link (if (stringp data) data
+                (cdr (assoc 'link data)))))
+    (when (stringp link)
+      (replace-regexp-in-string
+       "^https?://\\(?:\\(?1:[^/]+\\)\\.stackexchange\\|\\(?2:[^/]+\\)\\)\\.[^.]+/.*$"
+       "\\1\\2" link))))
+
+(defun sx--ensure-site (data)
+  "Add a `site' property to DATA if it doesn't have one. Return DATA.
+DATA can be a question, answer, comment, or user (or any object
+with a `link' property)."
+  (when data
+    (unless (assq 'site data)
+      (setcdr data (cons (cons 'site (sx--site data))
+                         (cdr data))))
+    data))
+
+(defmacro sx-assoc-let (alist &rest body)
+  "Identical to `let-alist', except `.site' has a special meaning.
+If ALIST doesn't have a `site' property, one is created using the
+`link' property."
+  (declare (indent 1) (debug t))
+  `(progn
+     (require 'let-alist)
+     (sx--ensure-site ,alist)
+     (let-alist ,alist ,@body)))
+
 
 ;;; Browsing filter
 (defvar sx-browse-filter
@@ -284,40 +318,6 @@ removed from the display name before it is returned."
           (format "[%s]" (car kar)) (cdr kar) string)))
     string))
 
-
-;;; Site
-(defun sx--site (data)
-  "Get the site in which DATA belongs.
-DATA can be a question, answer, comment, or user (or any object
-with a `link' property).
-DATA can also be the link itself."
-  (let ((link (if (stringp data) data
-                (cdr (assoc 'link data)))))
-    (when (stringp link)
-      (replace-regexp-in-string
-       "^https?://\\(?:\\(?1:[^/]+\\)\\.stackexchange\\|\\(?2:[^/]+\\)\\)\\.[^.]+/.*$"
-       "\\1\\2" link))))
-
-(defun sx--ensure-site (data)
-  "Add a `site' property to DATA if it doesn't have one. Return DATA.
-DATA can be a question, answer, comment, or user (or any object
-with a `link' property)."
-  (when data
-    (unless (assq 'site data)
-      (setcdr data (cons (cons 'site (sx--site data))
-                         (cdr data))))
-    data))
-
-(defmacro sx-assoc-let (alist &rest body)
-  "Identical to `let-alist', except `.site' has a special meaning.
-If ALIST doesn't have a `site' property, one is created using the
-`link' property."
-  (declare (indent 1) (debug t))
-  `(progn
-     (require 'let-alist)
-     (sx--ensure-site ,alist)
-     (let-alist ,alist ,@body)))
-
 (defcustom sx-init-hook nil
   "Hook run when SX initializes.
 Run after `sx-init--internal-hook'."
-- 
cgit v1.2.3