diff options
| author | Ludovic Court`es | 2007-06-01 17:59:55 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-01 17:59:55 +0000 |
| commit | 5755d7cda593b4bec3d51841fbc1223f3b7768c6 (patch) | |
| tree | 71bd25f49764edb4c585da4d59700cd9e447f8b7 /src | |
| parent | f4ba68aeb4795281f852aab6b00f84375ee11577 (diff) | |
| parent | b373074b4418c06082e28479c88ec750a4501710 (diff) | |
| download | skribilo-5755d7cda593b4bec3d51841fbc1223f3b7768c6.tar.gz skribilo-5755d7cda593b4bec3d51841fbc1223f3b7768c6.tar.lz skribilo-5755d7cda593b4bec3d51841fbc1223f3b7768c6.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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-95
Diffstat (limited to 'src')
| -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 >) |