enclosures should be custom

This commit is contained in:
Jean-Philippe Bernardy 2015-03-19 10:50:55 +01:00
parent ae91446de9
commit ed1865a228

View file

@ -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."