From a8e279b1484bc71b30e5e3d4d2e10e7b2724c352 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 1 Oct 2015 23:56:42 -0400
Subject: bibtex-clean-entry-hook: Downcase keys

---
 lisp/init-bib.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lisp')

diff --git a/lisp/init-bib.el b/lisp/init-bib.el
index b3e82da..8068898 100644
--- a/lisp/init-bib.el
+++ b/lisp/init-bib.el
@@ -20,6 +20,7 @@
 (add-hook 'bibtex-clean-entry-hook 'km/bibtex-set-coding-system)
 (add-hook 'bibtex-clean-entry-hook 'km/bibtex-remove-entry-space)
 (add-hook 'bibtex-clean-entry-hook 'km/bibtex-downcase-entry)
+(add-hook 'bibtex-clean-entry-hook 'km/bibtex-downcase-keys)
 
 (defvar km/bibtex-unimportant-title-words
   '("a" "aboard" "about" "above" "absent" "across" "after" "against"
@@ -139,6 +140,15 @@ to
         (and (re-search-forward "http://dx.doi.org/" end t)
              (replace-match ""))))))
 
+(defun km/bibtex-downcase-keys ()
+  "Downcase keys that are all caps."
+  (save-excursion
+    (bibtex-beginning-of-entry)
+    (let (case-fold-search)
+      (while (re-search-forward "^\\s-*\\([A-Z]+\\)\\s-*=" nil t)
+        (replace-match (downcase (match-string 1)) 'fixedcase
+                       nil nil 1)))))
+
 (defun km/browse-doi (doi)
   "Open DOI in browser.
 When called interactively, take the DOI from the text under
-- 
cgit v1.2.3