diff options
| -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 >) |