Offray/TiddlyWikiPharo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge 21c97c8893

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-03-13 10:21:12 -05:00
commit 8d607a6aea
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
repository/TiddlyWiki/TiddlyWiki.class.st
View File

@ -58,6 +58,20 @@ TiddlyWiki >> addToConfigFile [
^ MarkupFile exportAsFileOn: self configFile containing:(STON toStringPretty: newConfig) ^ 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 } { #category : #testing }
TiddlyWiki >> belongsToLocalRepository [ TiddlyWiki >> belongsToLocalRepository [
@ -506,6 +520,7 @@ TiddlyWiki >> resynchronize [
| repository return | | repository return |
repository := self repository. repository := self repository.
repository update. repository update.
repository syncUnversioned.
return := Dictionary new return := Dictionary new
at: 'status' put: self addRecentChangesToRepo. at: 'status' put: self addRecentChangesToRepo.
self exportSTONFiles. self exportSTONFiles.
@ -523,12 +538,25 @@ TiddlyWiki >> resynchronizeWithHtml [
importJSONFile. importJSONFile.
] ]
{ #category : #accessing }
TiddlyWiki >> selectByTagsIncludes: string [
^ (self tiddlers select: [ :tiddler | tiddler tags notNil ])
select: [ :tiddler | tiddler tags includesSubstring: string ]
]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> selectContentType: mimeType [ TiddlyWiki >> selectContentType: mimeType [
^ self tiddlers select: [ :tiddler | tiddler type isNotNil and: [tiddler type beginsWith: 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 } { #category : #accessing }
TiddlyWiki >> shadow [ TiddlyWiki >> shadow [
"Shadow tiddlers are tiddlers that are loaded from plugins. "Shadow tiddlers are tiddlers that are loaded from plugins.