aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-01 17:59:55 +0000
committerLudovic Court`es2007-06-01 17:59:55 +0000
commit5755d7cda593b4bec3d51841fbc1223f3b7768c6 (patch)
tree71bd25f49764edb4c585da4d59700cd9e447f8b7 /src/guile
parentf4ba68aeb4795281f852aab6b00f84375ee11577 (diff)
parentb373074b4418c06082e28479c88ec750a4501710 (diff)
downloadskribilo-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/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 >)