Make gpolonkai/org-space-key customizable

.mc-lists.el

@@ -19,6 +19,7 @@
 	gpolonkai/duplicate-line
 	gpolonkai/move-to-beginning-of-line
 	gpolonkai/move-to-end-of-line
+	gpolonkai/org-space-key
 	hungry-delete-backward
 	hungry-delete-forward
 	indent-for-tab-command
@@ -35,7 +36,6 @@
 	org-meta-return
 	org-return
 	org-self-insert-command
-	org-space-key
 	org-yank
 	overwrite-mode
 	sp-backward-delete-char

configuration.org

@@ -281,16 +281,22 @@ From [[http://emacs.stackexchange.com/a/31321/507][Emacs SE]].
   (org-time-stamp '(16) arg))
 #+end_src
 
-*** Insert two spaces after specific characters
+*** Insert two spaces after certain marks
 
 #+begin_src emacs-lisp
-(defun gpolonkai/org-space-key (&optional arg)
+(defcustom gpolonkai/org-dbl-space-punct-marks (list ?. ?! ?? ?…)
-  "Insert two spaces after a period.
+  "Punctuation marks after which the space key should insert two space characters."
+  :type '(set character))
 
-ARG will be passed down verbatim to `self-insert-command'"
+(defun gpolonkai/org-space-key (&optional arg)
+  "Insert two spaces after certain markers.
+
+ARG will be passed down verbatim to `self-insert-command'."
   (interactive "p")
 
-  (when (looking-back "[.!?…]" nil)
+  (when (and
+         (not (org-in-block-p '("src")))
+         (looking-back (rx-to-string `(any,@ gpolonkai/org-dbl-space-punct-marks)) nil))
     (call-interactively 'self-insert-command arg))
   (call-interactively 'self-insert-command arg))
 #+end_src