diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st index fe1c9c0..bd1ec6c 100644 --- a/repository/TiddlyWiki/TiddlyWiki.class.st +++ b/repository/TiddlyWiki/TiddlyWiki.class.st @@ -58,6 +58,20 @@ TiddlyWiki >> addToConfigFile [ ^ MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: newConfig) ] +{ #category : #accessing } +TiddlyWiki >> addUnversionedLargeTiddlersToRepo [ + + | stonfiles largeTiddlersFileReference repository | + repository := self repository. + stonfiles := (self file parent / 'largeTiddlers') files + select: [ :each | each fullName endsWith: '.ston' ]. + largeTiddlersFileReference := stonfiles collect: [ :each | + each fullName withoutPrefix: + repository local fullName , '/' ]. + largeTiddlersFileReference do: [ :each | repository addUnversioned: each ]. + ^ largeTiddlersFileReference +] + { #category : #testing } TiddlyWiki >> belongsToLocalRepository [ @@ -506,6 +520,7 @@ TiddlyWiki >> resynchronize [ | repository return | repository := self repository. repository update. + repository syncUnversioned. return := Dictionary new at: 'status' put: self addRecentChangesToRepo. self exportSTONFiles. @@ -523,12 +538,25 @@ TiddlyWiki >> resynchronizeWithHtml [ importJSONFile. ] +{ #category : #accessing } +TiddlyWiki >> selectByTagsIncludes: string [ + + ^ (self tiddlers select: [ :tiddler | tiddler tags notNil ]) + select: [ :tiddler | tiddler tags includesSubstring: string ] +] + { #category : #accessing } TiddlyWiki >> selectContentType: mimeType [ ^ self tiddlers select: [ :tiddler | tiddler type isNotNil and: [tiddler type beginsWith: mimeType ]] ] +{ #category : #accessing } +TiddlyWiki >> selectTitleIncludes: string [ + + ^ self tiddlers select: [ :tiddler | tiddler title includesSubstring: string ] +] + { #category : #accessing } TiddlyWiki >> shadow [ "Shadow tiddlers are tiddlers that are loaded from plugins.