bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit fa8393489e462494e865c36abc07b0532ba5474b
parent 21224434fb6dace8b28109e1df502a6410510048
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  6 Jul 2009 18:05:43 +0000

scriblib/autobib: add dissertation-location

svn: r15398

original commit: 3e4d8669c4491dc1e8c08f3f0e8eaeb5a6bf3ade

Diffstat:
M
collects/scriblib/autobib.ss
 | 
8
+++++++-
M
collects/scriblib/scribblings/autobib.scrbl
 | 
7
+++++++

2 files changed, 14 insertions(+), 1 deletion(-)
diff --git a/collects/scriblib/autobib.ss b/collects/scriblib/autobib.ss
@@ -7,7 +7,8 @@
 (provide autobib-style-extras
          define-cite
          make-bib in-bib (rename-out [auto-bib? bib?])
-         proceedings-location journal-location book-location techrpt-location
+         proceedings-location journal-location book-location 
+         techrpt-location dissertation-location
          author-name org-author-name authors editor)
 
 (define (autobib-style-extras)
@@ -217,6 +218,11 @@
          #:number num)
   @elem{@|org|, @|num|})
 
+(define (dissertation-location
+         #:institution org
+         #:degree [degree "PhD"])
+  @elem{@|degree| dissertation, @|org|})
+
 ;; ----------------------------------------
 
 (define (author-name first last #:suffix [suffix #f])
diff --git a/collects/scriblib/scribblings/autobib.scrbl b/collects/scriblib/scribblings/autobib.scrbl
@@ -108,6 +108,13 @@ describing a book's location.}
 Combines elements to generate an element that is suitable for
 describing a technical report's location.}
 
+@defproc[(dissertation-location [#:institution institution edition any/c]
+                                [#:number degree any/c "PhD"])
+         element?]{
+
+Combines elements to generate an element that is suitable for
+describing a dissertation.}
+
 
 @defproc[(author-name [first any/c]
                       [last any/c]