aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-01 16:30:26 +0000
committerLudovic Court`es2007-06-01 16:30:26 +0000
commitb373074b4418c06082e28479c88ec750a4501710 (patch)
tree650b459a79ce7adc7901ae4159dc5f1c4e0386e9 /src/guile
parent538b1f2a101ae7bb7b6bf13c7957de065e552a0f (diff)
downloadskribilo-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.scm1
-rw-r--r--src/guile/skribilo/package/eq.scm3
-rw-r--r--src/guile/skribilo/package/eq/lout.scm1
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 >)