From 7ce5f42ed6b18207365c1aa35530003a7eccc14a Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 20 Sep 2015 20:24:50 -0400
Subject: bibtex-clean-entry-hook: Downcase entry type

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

(limited to 'lisp')

diff --git a/lisp/init-bib.el b/lisp/init-bib.el
index 39840ee..06d59d9 100644
--- a/lisp/init-bib.el
+++ b/lisp/init-bib.el
@@ -19,6 +19,7 @@
 (add-hook 'bibtex-clean-entry-hook 'km/bibtex-remove-doi-leader)
 (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)
 
 (defvar km/bibtex-unimportant-title-words
   '("a" "aboard" "about" "above" "absent" "across" "after" "against"
@@ -107,6 +108,13 @@ to
     (when (looking-at "@\\w+\\(\\s-+\\)")
       (replace-match "" nil nil nil 1))))
 
+(defun km/bibtex-downcase-entry ()
+  (save-excursion
+    (bibtex-beginning-of-entry)
+    (when (looking-at "^@\\([^{]+\\){")
+      (replace-match (downcase (match-string-no-properties 1))
+                     'fixedcase nil nil 1))))
+
 (defun km/bibtex-pages-use-double-hyphen ()
   "Use double hyphen for page range."
   (save-excursion
-- 
cgit v1.2.3