diff options
| author | Ludovic Court`es | 2007-06-01 16:30:26 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-01 16:30:26 +0000 |
| commit | b373074b4418c06082e28479c88ec750a4501710 (patch) | |
| tree | 650b459a79ce7adc7901ae4159dc5f1c4e0386e9 /src/guile | |
| parent | 538b1f2a101ae7bb7b6bf13c7957de065e552a0f (diff) | |
| download | skribilo-b373074b4418c06082e28479c88ec750a4501710.tar.gz skribilo-b373074b4418c06082e28479c88ec750a4501710.tar.lz skribilo-b373074b4418c06082e28479c88ec750a4501710.zip | |
eq/biblio: Small additions.
* src/guile/skribilo/biblio/template.scm
(make-bib-entry-template/default): Issue `institution' for `misc'
entries.
* src/guile/skribilo/package/eq.scm (%operators): Added `modulo'.
(eq:modulo): New.
* src/guile/skribilo/package/eq/lout.scm (eq:modulo): New writer.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-54
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/biblio/template.scm | 1 | ||||
| -rw-r--r-- | src/guile/skribilo/package/eq.scm | 3 | ||||
| -rw-r--r-- | src/guile/skribilo/package/eq/lout.scm | 1 |
3 files changed, 4 insertions, 1 deletions
diff --git a/src/guile/skribilo/biblio/template.scm b/src/guile/skribilo/biblio/template.scm index dfdef6c..37eb803 100644 --- a/src/guile/skribilo/biblio/template.scm +++ b/src/guile/skribilo/biblio/template.scm @@ -183,6 +183,7 @@ (if month " " ", ") year ".")) ((misc) '(author ". " (or title url documenturl) ". " + (institution ", ") (publisher ", ") (address ", ") (month " ") year ". " diff --git a/src/guile/skribilo/package/eq.scm b/src/guile/skribilo/package/eq.scm index 90db17b..ec6bbc7 100644 --- a/src/guile/skribilo/package/eq.scm +++ b/src/guile/skribilo/package/eq.scm @@ -66,7 +66,7 @@ (define %operators - '(/ * + - = != ~= < > <= >= sqrt expt sum product script + '(/ * + - modulo = != ~= < > <= >= sqrt expt sum product script in notin apply limit combinations set)) (define %symbols @@ -271,6 +271,7 @@ a symbol representing the mathematical operator denoted by @var{m} (e.g., (define-simple-markup eq:+) (define-simple-markup eq:-) +(define-simple-markup eq:modulo) (define-simple-markup eq:=) (define-simple-markup eq:!=) diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm index bd4ccc7..bb243f6 100644 --- a/src/guile/skribilo/package/eq/lout.scm +++ b/src/guile/skribilo/package/eq/lout.scm @@ -185,6 +185,7 @@ (let ((eq (ast-parent n))) (markup-option eq :div-style))))) #f) +(simple-lout-markup-writer modulo "mod") (simple-lout-markup-writer =) (simple-lout-markup-writer <) (simple-lout-markup-writer >) |