aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/info.scm10
-rw-r--r--src/guile/skribilo/package/base.scm7
2 files changed, 14 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index a66acde..4379cf8 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -291,6 +291,16 @@
(output-newline)
(output-flush *margin*))))
+ (let ((category (markup-option obj :info-dir-category))
+ (entry (markup-option obj :info-dir-entry))
+ (name (basename (info-dest) ".info")))
+ (when category
+ (format #t "INFO-DIR-SECTION ~a~%" category)
+ (format #t "START-INFO-DIR-ENTRY~%")
+ (format #t "* ~a: (~a). ~a~%"
+ name name (or entry ""))
+ (format #t "END-INFO-DIR-ENTRY~%")))
+
;; the main node
(receive (next prev top)
(node-next+prev+up obj e)
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index c28027b..cfc59d3 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -1,7 +1,6 @@
;;; base.scm -- The base markup package of Skribe/Skribilo.
-;;; -*- coding: iso-8859-1 -*-
;;;
-;;; Copyright 2005, 2006, 2007, 2008, 2009, 2013, 2015, 2016, 2018 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2005, 2006, 2007, 2008, 2009, 2013, 2015, 2016, 2018, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Manuel Serrano
;;;
;;;
@@ -81,7 +80,9 @@
:key
(ident #f) (class "document")
(title #f) (html-title #f) (author #f)
- (ending #f) (keywords '()) (env '()))
+ (ending #f) (keywords '()) (env '())
+ (info-dir-category #f)
+ (info-dir-entry ""))
(new document
(markup 'document)
(ident (or ident