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