Accessors for improved code ergonomy.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-03-17 15:25:25 -05:00
parent 4b49160bb1
commit 22a17d6d14

View File

@ -39,7 +39,7 @@ TiddlyWiki >> addRecentChangesToRepo [
exportJSONFile; exportJSONFile;
importJSONFile. importJSONFile.
recentTiddlers := self changesAfter: repository checkoutDateAndTime. recentTiddlers := self changesAfter: repository checkoutDateAndTime.
docsSton := recentTiddlers collect: [:each | each exportSTONFile]. docsSton := recentTiddlers collect: [:each | each exportSTONFileOptimized ].
"Collecting tiddlers file reference as string and adding to the repo" "Collecting tiddlers file reference as string and adding to the repo"
docsStonSanitized := docsSton collect: [ :each | docsStonSanitized := docsSton collect: [ :each |
(each fullName removePrefix: repository localRoot) allButFirst ]. (each fullName removePrefix: repository localRoot) allButFirst ].
@ -273,6 +273,11 @@ TiddlyWiki >> file: anObject [
file := anObject file := anObject
] ]
{ #category : #accessing }
TiddlyWiki >> folder [
^ self file parent
]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> fromDictionary: tiddlersDict [ TiddlyWiki >> fromDictionary: tiddlersDict [