diff --git a/repository/TiddlyWiki/Tiddler.class.st b/repository/TiddlyWiki/Tiddler.class.st index 99dc346..6973633 100644 --- a/repository/TiddlyWiki/Tiddler.class.st +++ b/repository/TiddlyWiki/Tiddler.class.st @@ -287,6 +287,7 @@ Tiddler >> markdownLinksAsWikiText [ { #category : #accessing } Tiddler >> modified [ + modified ifNil: [ ^ modified ]. ^ modified asZTimestamp ] diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st index ec886a4..8803f1f 100644 --- a/repository/TiddlyWiki/TiddlyWiki.class.st +++ b/repository/TiddlyWiki/TiddlyWiki.class.st @@ -41,6 +41,20 @@ TiddlyWiki >> addToConfigFile [ ^ MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: newConfig) ] +{ #category : #accessing } +TiddlyWiki >> changesAfter: aDate [ + + | recent created modified wiki | + wiki := self withoutImages withoutPDFs contentTiddlers. + created := wiki select: [ :tiddler | tiddler created > aDate ]. + modified := wiki select: [ :tiddler | tiddler modified isNotNil + and: [ tiddler modified > aDate ] ]. + + recent := OrderedCollection new. + recent addAll: created; addAll: modified. + ^ recent +] + { #category : #accessing } TiddlyWiki >> configDictonary [ ^ STONJSON fromString: self configFile contents. @@ -262,6 +276,12 @@ TiddlyWiki >> tiddlers: anOrderedCollection [ tiddlers := anOrderedCollection ] +{ #category : #accessing } +TiddlyWiki >> tiddlersFolder [ + + ^ self file parent / 'tiddlers' +] + { #category : #accessing } TiddlyWiki >> tiddlersJSONFile [