From f77495881d218a96a8b875e650a0d8acf0f36354 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Mon, 5 Jan 2015 11:23:30 -0200
Subject: Bind sx-compose-insert-tags to "\C-c\C-q"

Fix #137
---
 sx-compose.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sx-compose.el b/sx-compose.el
index e1f6874..ee4f774 100644
--- a/sx-compose.el
+++ b/sx-compose.el
@@ -107,6 +107,9 @@ with the `sx-compose-create' function.
 
 (define-key sx-compose-mode-map "\C-c\C-c" #'sx-compose-send)
 (define-key sx-compose-mode-map "\C-c\C-k" #'sx-compose-quit)
+(sx--define-conditional-key
+    sx-compose-mode-map "\C-c\C-q" #'sx-compose-insert-tags
+  (ignore-errors (string= "Title: " (substring (buffer-string) 0 7))))
 
 (defun sx-compose-send ()
   "Finish composing current buffer and send it.
-- 
cgit v1.2.3