1 ;;; dk-bib.el --- AUCTeX style for `dk-bib.sty'
3 ;; Copyright (C) 2005 Free Software Foundation, Inc.
5 ;; Author: Arne Jørgensen <arne@arnested.dk>
8 ;; This file is part of AUCTeX.
10 ;; AUCTeX is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 3, or (at your option)
15 ;; AUCTeX is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with AUCTeX; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
23 ;; MA 02110-1301, USA.
27 ;; Prompt for package option for dk-bib.sty.
31 (defun LaTeX-dk-bib-package-options nil
32 "Prompt for package options for the dk-bib package."
35 (TeX-completing-read-multiple
37 '(("isbn") ("issn") ("url") ("annote")
38 ("printing") ("apalike") ("fixcitedash=false")
39 ("ordinals2word") ("ordinaldepth=")))
42 (when (string-match "\\(ordinaldepth=\\)\\([^0-9]\\|$\\)" options)
43 (while (or (< depth 0)
45 (setq depth (if (fboundp 'read-number)
46 (read-number "Ordinal depth: ")
47 (string-to-number (read-string "Ordinal depth: "))))
50 (message "Ordinal depth must be between 0 and 20")
53 (substring options 0 (match-end 1))
54 (number-to-string depth)
55 (substring options (match-end 1)))))
62 ;;; dk-bib.el ends here