From d9cae60fa5048abd3528f96a285109329639fda6 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 23 Jan 2015 23:23:05 -0500
Subject: Improve organization and consistency of files

- Add pages and more headings for large files.

- Try to use consistent order for file (or page) structure.

  * Loading
  * Settings
  * Hooks
  * Any mode activation or function calls
  * My functions
  * Key bindings
---
 lisp/init-bib.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'lisp/init-bib.el')

diff --git a/lisp/init-bib.el b/lisp/init-bib.el
index fe8a8f1..3cdd047 100644
--- a/lisp/init-bib.el
+++ b/lisp/init-bib.el
@@ -1,10 +1,10 @@
 ;; Make cite key have form <last author last name><year><first word>.
-(setq bibtex-autokey-year-length 4
+(setq bibtex-autokey-titlewords 1
+      bibtex-autokey-titleword-ignore '("A" "An" "On" "The"  "[0-9].*")
       bibtex-autokey-titleword-length nil
       bibtex-autokey-titlewords-stretch 0
-      bibtex-autokey-titlewords 1
-      bibtex-autokey-year-title-separator ""
-      bibtex-autokey-titleword-ignore '("A" "An" "On" "The"  "[0-9].*"))
+      bibtex-autokey-year-length 4
+      bibtex-autokey-year-title-separator "")
 
 (setq bibtex-align-at-equal-sign t)  ; Used by `bibtex-fill-entry'.
 
@@ -12,6 +12,8 @@
   (setq bibtex-entry-format
         (append '(realign sort-fields) bibtex-entry-format)))
 
+(add-hook 'bibtex-clean-entry-hook 'km/bibtex-use-title-case)
+
 (defvar km/bibtex-unimportant-title-words
   '("a" "aboard" "about" "above" "absent" "across" "after" "against"
     "along" "alongside" "amid" "amidst" "among" "amongst" "an" "and"
@@ -67,8 +69,6 @@ all other words unless they are protected by brackets."
               (downcase-word 1)
             (capitalize-word 1))))))))
 
-(add-hook 'bibtex-clean-entry-hook 'km/bibtex-use-title-case)
-
 (defun km/browse-doi (doi)
   "Open DOI in browser.
 When called interactively, take the DOI from the text under
-- 
cgit v1.2.3