diff options
author | Ludovic Courtes | 2007-07-01 23:50:22 +0000 |
---|---|---|
committer | Ludovic Courtes | 2007-07-01 23:50:22 +0000 |
commit | 46122eb2392f848079320e09eda8b747dc9a4177 (patch) | |
tree | 728ea377a75932e600c734a9ed985c2c537cc3d6 /src/guile/skribilo/engine/lout.scm | |
parent | 518ed0ad7bdd7b1bb34360d5480c09bcbdffe5cd (diff) | |
download | skribilo-46122eb2392f848079320e09eda8b747dc9a4177.tar.gz skribilo-46122eb2392f848079320e09eda8b747dc9a4177.tar.lz skribilo-46122eb2392f848079320e09eda8b747dc9a4177.zip |
Fixed and simplified `(ref :line ...)', aka. `line-ref'.
* src/guile/skribilo/engine/base.scm (line-ref): Changed the way the
number is obtained.
* src/guile/skribilo/engine/context.scm (line-ref): Removed.
* src/guile/skribilo/engine/html.scm (&prog-line): New. Produce an
anchor. Needed because `mark' are no longer produced by
`make-prog-body'.
(line-ref): Changed the way the number is obtained.
* src/guile/skribilo/engine/latex.scm (line-ref): Removed.
* src/guile/skribilo/engine/lout.scm (line-ref): Removed.
* src/guile/skribilo/prog.scm (make-line-mark): Removed.
(make-prog-body): No longer use it.
git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-133
Diffstat (limited to 'src/guile/skribilo/engine/lout.scm')
-rw-r--r-- | src/guile/skribilo/engine/lout.scm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 7c273ac..a93cde7 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -2472,22 +2472,6 @@ (output (transform n) e)))))) ;*---------------------------------------------------------------------*/ -;* line-ref ... */ -;*---------------------------------------------------------------------*/ -(markup-writer 'line-ref - :options '(:offset) - :before "{ @I {" ;; FIXME: Not tested - :action (lambda (n e) - (let ((o (markup-option n :offset)) - (v (string->number (markup-option n :text)))) - (cond - ((and (number? o) (number? v)) - (display (+ o v))) - (else - (display v))))) - :after "} }") - -;*---------------------------------------------------------------------*/ ;* &the-bibliography ... */ ;*---------------------------------------------------------------------*/ (markup-writer '&the-bibliography |