diff --git a/src/MiniDocs/PubPub.class.st b/src/MiniDocs/PubPub.class.st
index 4e763df..e419500 100644
--- a/src/MiniDocs/PubPub.class.st
+++ b/src/MiniDocs/PubPub.class.st
@@ -54,7 +54,7 @@ PubPub >> defaultTitle [
PubPub >> downloadContents [
| workingDirectory |
workingDirectory := self folder / self currentLanguage / 'book'.
- self tableOfContents keysAndValuesDo: [ :name :chapterAddress | |currentFileName|
+ self tableOfContentsDictionary keysAndValuesDo: [ :name :chapterAddress | |currentFileName|
currentFileName := name, '--', chapterAddress, '.md'.
(workingDirectory / currentFileName) asFileReference ensureDelete.
(workingDirectory / 'markdown') asFileReference ensureDelete.
@@ -113,6 +113,22 @@ PubPub >> languageFolder [
^ self folder / self currentLanguage
]
+{ #category : #accessing }
+PubPub >> markdeepFrontPage [
+ | frontPage markdeepIndex |
+ frontPage := Markdeep new.
+ frontPage
+ title: self defaultTitle;
+ file: self languageFolder / 'frontPage.md.html'.
+ markdeepIndex := '' writeStream.
+ self tableOfContents do: [:pubPubContent|
+ markdeepIndex
+ nextPutAll: pubPubContent asMarkdeepFrontPageElement
+ ].
+ frontPage body: markdeepIndex contents.
+ ^ frontPage
+]
+
{ #category : #accessing }
PubPub >> populateTableOfContents [
| contentsCollection |
diff --git a/src/MiniDocs/PubPubContent.class.st b/src/MiniDocs/PubPubContent.class.st
index d84e3fd..d9a632f 100644
--- a/src/MiniDocs/PubPubContent.class.st
+++ b/src/MiniDocs/PubPubContent.class.st
@@ -15,6 +15,30 @@ PubPubContent class >> fromXML: anXMLElement [
^ self new fromXML: anXMLElement
]
+{ #category : #accessing }
+PubPubContent >> asMarkdeepFrontPageElement [
+ | response anchorName anchorLink markdeepFile |
+ response := '' writeStream.
+ anchorName := '[', self title,']'.
+ markdeepFile := './book/', self shortName,'--',self id,'.md.html'.
+ anchorLink := '(', markdeepFile,')'.
+ response
+ nextPutAll: '', anchorName, anchorLink,'
';
+ nextPutAll: String lf.
+ self thumbnail ifNotNil: [ |image|
+ image := '
+ '.
+ response nextPutAll: '', image, ''
+ ].
+ response
+ nextPutAll: String lf, String lf.
+ ^ response contents
+]
+
{ #category : #accessing }
PubPubContent >> fromXML: aXMLElement [
| image anchor|
@@ -59,6 +83,11 @@ PubPubContent >> shortName [
^ sanitized
]
+{ #category : #accessing }
+PubPubContent >> thumbnail [
+ ^ thumbnail
+]
+
{ #category : #accessing }
PubPubContent >> thumbnail: anURL [
thumbnail := anURL