From 01160bfa8c6e92c7972917e71b449faa9aaf6df5 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 11 Apr 2015 23:39:27 -0400
Subject: Use rx to construct bog-citekey-format

---
 bog.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/bog.el b/bog.el
index bcbbb3a..5c4cc0d 100644
--- a/bog.el
+++ b/bog.el
@@ -44,7 +44,16 @@
   :group 'org)
 
 (defcustom bog-citekey-format
-  "\\b\\([a-z]+[-a-z]*\\)\\([0-9]\\{4\\}\\)\\([a-z][a-z0-9]*\\)\\b"
+  (rx
+   word-start
+   (group
+    (one-or-more lower)
+    (zero-or-more (any lower "-")))
+   (group (= 4 digit))
+   (group
+    (one-or-more lower)
+    (zero-or-more (any lower digit)))
+   word-end)
   "Regular expression used to match study citekey.
 
 By default, this matches any sequence of lower case
-- 
cgit v1.2.3