From c3c35546b401dd10fba2b5a7807d84d7f4440d09 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Thu, 20 Jul 2006 16:18:31 +0000
Subject: biblio abbrev: Added a few more abbreviations.
* src/guile/skribilo/biblio/abbrev.scm (%cs-conference-abbreviations):
Fixed "MSS". Added "NSDI".
(%ordinal-number-abbreviations): Added up to 19.
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-19
---
src/guile/skribilo/biblio/abbrev.scm | 42 +++++++++++++++++++++++-------------
1 file changed, 27 insertions(+), 15 deletions(-)
(limited to 'src')
diff --git a/src/guile/skribilo/biblio/abbrev.scm b/src/guile/skribilo/biblio/abbrev.scm
index 4440f1c..628a7b2 100644
--- a/src/guile/skribilo/biblio/abbrev.scm
+++ b/src/guile/skribilo/biblio/abbrev.scm
@@ -124,25 +124,37 @@
. "P2P")
("([iI]nternational )?[cC]onference [oO]n [dD]ata [eE]ngineering"
. "ICDE")
- ("([cC]onference [oOn]) [mM]ass [sS]torage [sS]ystems( [aA]nd [tT]echnologies)?"
- . "MSS")))
+ ("([cC]onference [oO]n )?[mM]ass [sS]torage [sS]ystems( [aA]nd [tT]echnologies)?"
+ . "MSS")
+ ("([sS]ymposium [oO]n )?[nN]etworked [sS]ystems [dD]esign [aA]nd [Ii]mplementation"
+ . "NSDI")))
(define %ordinal-number-abbreviations
;; The poor man's abbreviation system.
- ;; FIXME: This doesn't work with things like "twenty-first"!
- '(("[Ff]irst" . "1st")
- ("[sS]econd" . "2nd")
- ("[Tt]hird" . "3rd")
- ("[Ff]ourth" . "4th")
- ("[Ff]ifth" . "5th")
- ("[Ss]ixth" . "6th")
- ("[Ss]eventh" . "7th")
- ("[eE]ighth" . "8th")
- ("[Nn]inth" . "9th")
- ("[Tt]enth" . "10th")
- ("[Ee]leventh" . "11th")
- ("[Tt]welfth" . "12th")))
+
+ ;; FIXME: Given the current `abbreviate-string', there is no clean way to
+ ;; make it ignore things like "twenty-first" (instead of yielding an awful
+ ;; "twenty-1st").
+ '(("[Ff]irst" . "1st")
+ ("[sS]econd" . "2nd")
+ ("[Tt]hird" . "3rd")
+ ("[Ff]ourth" . "4th")
+ ("[Ff]ifth" . "5th")
+ ("[Ss]ixth" . "6th")
+ ("[Ss]eventh" . "7th")
+ ("[eE]ighth" . "8th")
+ ("[Nn]inth" . "9th")
+ ("[Tt]enth" . "10th")
+ ("[Ee]leventh" . "11th")
+ ("[Tt]welfth" . "12th")
+ ("[Tt]hirteenth" . "13th")
+ ("[Ff]ourteenth" . "14th")
+ ("[Ff]ifteenth" . "15th")
+ ("[Ss]ixteenth" . "16th")
+ ("[Ss]eventeenth" . "17th")
+ ("[Ee]ighteenth" . "18th")
+ ("[Nn]ineteenth" . "19th")))
(define %common-booktitle-abbreviations
;; Common book title abbreviations. This is used by
--
cgit v1.2.3