From ed1865a2285f559ad06c3cf569afd28b3b0c212e Mon Sep 17 00:00:00 2001
From: Jean-Philippe Bernardy <jeanphilippe.bernardy@gmail.com>
Date: Thu, 19 Mar 2015 10:50:55 +0100
Subject: [PATCH] enclosures should be custom

---
 boon-arguments.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/boon-arguments.el b/boon-arguments.el
index 59ecf48..f5e71ac 100644
--- a/boon-arguments.el
+++ b/boon-arguments.el
@@ -9,7 +9,7 @@
 
 (require 'boon-core)
 
-(defvar boon-enclosures
+(defcustom boon-enclosures
       '(
         (?$ . ("$" "$")) 
         (?| . ("|" "|")) 
@@ -20,7 +20,8 @@
         (?a . ("<" ">"))
         (?b . ("[" "]"))
         (?c . ("{-" "-}"))
-        (?d . ("\"" "\""))
+        (?d . ("\"" "\"")) ;; double quotes
+        (?D . ("``" "''")) ;; double quotes
         (?f . ("«" "»")) ;; french quotes
         (?h . ("#" "#")) ;; hash
         (?m . ("`" "'"))
@@ -29,7 +30,11 @@
         (?r . ("{" "}"))
         (?o . ("⟦" "⟧")) ;; oxford brackets
         (?t . ("~" "~")) ;; tilda
-        ))
+        )
+        "Enclosures to use with the around command."
+        :type '(alist :key-type character :value-type (list string))
+        :group 'boon
+        )
 
 (defun boon-spec-enclosure ()
   "Specify an enclosure style."