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