From b373074b4418c06082e28479c88ec750a4501710 Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Fri, 1 Jun 2007 16:30:26 +0000 Subject: 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 --- src/guile/skribilo/biblio/template.scm | 1 + src/guile/skribilo/package/eq.scm | 3 ++- src/guile/skribilo/package/eq/lout.scm | 1 + 3 files changed, 4 insertions(+), 1 deletion(-) (limited to 'src/guile') 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 >) -- cgit v1.2.3