diff options
| author | Ludovic Court`es | 2006-07-20 16:18:31 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-07-20 16:18:31 +0000 |
| commit | c3c35546b401dd10fba2b5a7807d84d7f4440d09 (patch) | |
| tree | add9df0803c375ff97b3e8351425ceefc22f8df2 /src/guile | |
| parent | ee55493f9c05aeeb039f51ab169f1392c8593457 (diff) | |
| download | skribilo-c3c35546b401dd10fba2b5a7807d84d7f4440d09.tar.gz skribilo-c3c35546b401dd10fba2b5a7807d84d7f4440d09.tar.lz skribilo-c3c35546b401dd10fba2b5a7807d84d7f4440d09.zip | |
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
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/biblio/abbrev.scm | 42 |
1 files changed, 27 insertions, 15 deletions
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 |