From da8e863c8997239706ee89a3150e13142d5bb233 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Fri, 12 Jan 2018 17:50:16 +0000
Subject: Touch-up regexps

Fix quoting; remove redundancies; and prefer bos and eos to bol and
eol anchors, respectively, for filenames.
---
 bog.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/bog.el b/bog.el
index 2e51cda..f05fbca 100644
--- a/bog.el
+++ b/bog.el
@@ -632,8 +632,8 @@ determined by `bog-subdirectory-group'."
                (or (and subdir (expand-file-name subdir bog-file-directory))
                    bog-file-directory))))
     (directory-files dir t
-                     (format "^%s\\(%s.*\\)\\{0,1\\}\\..*"
-                             citekey
+                     (format "\\`%s\\(%s.*\\)?\\."
+                             (regexp-quote citekey)
                              bog-citekey-file-name-separators))))
 
 (defun bog--get-subdir (citekey)
@@ -758,7 +758,7 @@ Generate a file name with the form
     ;; `bog-citekey-syntax-table' so the hyphens and underscores are
     ;; treated as word boundaries.
     (with-syntax-table org-mode-syntax-table
-      (and (string-match (concat "^" bog-citekey-format) fname)
+      (and (string-match (concat "\\`" bog-citekey-format) fname)
            (match-string 0 fname)))))
 
 (defun bog-all-citekey-files ()
@@ -857,7 +857,7 @@ Search for new BibTeX files in `bog-stage-directory', and run
 This function is only useful if you use the non-standard setup of
 one entry per BibTeX file."
   (interactive)
-  (let ((staged (directory-files bog-stage-directory t ".*\\.bib$")))
+  (let ((staged (directory-files bog-stage-directory t "\\.bib\\'")))
     (dolist (file staged)
       (bog--prepare-bib-file file t))))
 
@@ -959,7 +959,7 @@ instead of citekeys from file names in `bog-bib-directory'."
         (bog--maybe-sort
          (mapcar #'file-name-sans-extension
                  (cl-mapcan
-                  (lambda (dir) (directory-files dir nil ".*\\.bib$" t))
+                  (lambda (dir) (directory-files dir nil "\\.bib\\'" t))
                   dirs)))))))
 
 ;;;###autoload
@@ -1171,7 +1171,7 @@ level `bog-refile-maxlevel' are considered."
 (defun bog-notes ()
   "Return Org files in `bog-note-directory'."
   (directory-files bog-note-directory t
-                   "^[^\\.].*.org$"))
+                   "\\`[^.].*\\.org\\'"))
 
 (defun bog-read-note-file-name ()
   "Read name of Org file in `bog-note-directory'."
-- 
cgit v1.2.3