Merge 21c97c8893

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.