From e061fb947a02290314be7247d81963e7bfd0987b Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Mon, 5 Jan 2015 16:31:10 -0200
Subject: Move define-conditional-key to sx.el

---
 sx.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'sx.el')

diff --git a/sx.el b/sx.el
index 9924308..bfc647d 100644
--- a/sx.el
+++ b/sx.el
@@ -247,6 +247,18 @@ Anything before the (sub)domain is removed."
     (rx string-start (or (and (0+ word) (optional ":") "//")))
     "" url)))
 
+(defmacro sx--define-conditional-key (keymap key def &rest body)
+  "In KEYMAP, define key sequence KEY as DEF conditionally.
+This is like `define-key', except the definition \"disapears\"
+whenever BODY evaluates to nil."
+  (declare (indent 3)
+           (debug (form form form &rest sexp)))
+  `(define-key ,keymap ,key
+     '(menu-item
+       ,(format "maybe-%s" (or (car (cdr-safe def)) def)) ignore
+       :filter (lambda (&optional _)
+                 (when (progn ,@body) ,def)))))
+
 
 ;;; Printing request data
 (defvar sx--overlays nil
-- 
cgit v1.2.3