2 |
|
|
3 |
;; Copyright (C) 2005 Free Software Foundation, Inc. |
;; Copyright (C) 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Arne J,Ax(Brgensen <arne@arnested.dk> |
;; Author: Arne Jørgensen <arne@arnested.dk> |
6 |
;; Keywords: tex |
;; Keywords: tex |
7 |
|
|
8 |
;; This file is part of AUCTeX. |
;; This file is part of AUCTeX. |
30 |
|
|
31 |
(defun LaTeX-dk-bib-package-options nil |
(defun LaTeX-dk-bib-package-options nil |
32 |
"Prompt for package option for dk-bib.sty." |
"Prompt for package option for dk-bib.sty." |
33 |
(let ((options |
(let ((options |
34 |
(mapconcat 'identity |
(mapconcat 'identity |
35 |
(TeX-completing-read-multiple "Options: " |
(TeX-completing-read-multiple |
36 |
'(("isbn") ("issn") ("url") |
"Options: " |
37 |
("annote") ("printing") |
'(("isbn") ("issn") ("url") ("annote") |
38 |
("apalike") ("fixcitedash=false") |
("printing") ("apalike") ("fixcitedash=false") |
39 |
("ordinals2word") |
("ordinals2word") ("ordinaldepth="))) |
|
("ordinaldepth="))) |
|
40 |
",")) |
",")) |
41 |
(depth -1)) |
(depth -1)) |
42 |
(when (string-match "\\(ordinaldepth=\\)\\([^0-9]\\|$\\)" options) |
(when (string-match "\\(ordinaldepth=\\)\\([^0-9]\\|$\\)" options) |
48 |
(when (or (< depth 0) |
(when (or (< depth 0) |
49 |
(> depth 20)) |
(> depth 20)) |
50 |
(message "Ordinal depth must be between 0 and 20") |
(message "Ordinal depth must be between 0 and 20") |
51 |
(sit-for 1))) |
(sit-for 1))) |
52 |
(setq options (concat |
(setq options (concat |
53 |
(substring options 0 (match-end 1)) |
(substring options 0 (match-end 1)) |
54 |
(number-to-string depth) |
(number-to-string depth) |
55 |
(substring options (match-end 1))))) |
(substring options (match-end 1))))) |
56 |
options)) |
options)) |
57 |
|
|
58 |
|
;; Local Variables: |
59 |
|
;; coding: iso-8859-1 |
60 |
|
;; End: |
61 |
|
|
62 |
;;; dk-bib.el ends here |
;;; dk-bib.el ends here |