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

Redefining unique Ids for the Tiddlers.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-03-08 17:49:15 -05:00
parent c1568365f3
commit 251f5d3426
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
repository/TiddlyWiki/Tiddler.class.st
View File

@ -155,7 +155,7 @@ Tiddler >> exportSTONFileInto: subfolder [
| stonFile output dashedTitle sanitized date | | stonFile output dashedTitle sanitized date |
dashedTitle := '-' join: (self title substrings collect: [ :each | each ]). dashedTitle := '-' join: (self title substrings collect: [ :each | each ]).
sanitized := dashedTitle copyWithoutAll: #($¿ $? $! $¡ $/). sanitized := dashedTitle copyWithoutAll: #($¿ $? $! $¡ $/).
date := self created hash hex copyFrom: 1 to: 5. date := self uid.
stonFile := self wiki file parent / subfolder / (sanitized, '--', date, '.ston'). stonFile := self wiki file parent / subfolder / (sanitized, '--', date, '.ston').
^ MarkupFile exportAsFileOn: stonFile containing: self asStonStringPretty ^ MarkupFile exportAsFileOn: stonFile containing: self asStonStringPretty
] ]
@ -457,6 +457,17 @@ Tiddler >> type: anObject [
type := anObject type := anObject
] ]
{ #category : #accessing }
Tiddler >> uid [
| tempId |
self created
ifNotNil: [ tempId := self created hash hex copyFrom: 1 to: 5. ]
ifNil: [ tempId := self class nowLocal hash hex copyFrom: 1 to: 5 ].
self customFields at: 'uid' put: tempId .
^ tempId
]
{ #category : #accessing } { #category : #accessing }
Tiddler >> wiki [ Tiddler >> wiki [
^ wiki ^ wiki