Creando subfolders de metadatos
This commit is contained in:
parent
d1568f748d
commit
5984ff492c
@ -19,7 +19,8 @@ PaqueteSemanal class >> location: anObject [
|
||||
{ #category : #accessing }
|
||||
PaqueteSemanal >> extractMetadataForFolder: subfolder [
|
||||
|
||||
| subfolderFiles extractMetadatos |
|
||||
| subfolderFiles extractMetadatos subfolderRenamed |
|
||||
subfolderRenamed := self sanitizeFolderNamed: subfolder.
|
||||
subfolderFiles := (self location / subfolder) allChildren select: [:item | item isFile and: [(item basename = '.DS_Store') not ]].
|
||||
subfolderFiles do: [:archivoPruebas | | metadatosArchivo titulo metaTiddler |
|
||||
extractMetadatos := GtSubprocessWithInMemoryOutput new
|
||||
@ -35,10 +36,10 @@ PaqueteSemanal >> extractMetadataForFolder: subfolder [
|
||||
text: metadatosArchivo;
|
||||
type: 'application/json'.
|
||||
MarkupFile
|
||||
exportAsFileOn: (self metadataFolder / titulo, 'json')
|
||||
exportAsFileOn: (self metadataFolder / subfolderRenamed / titulo, 'json')
|
||||
containing: metaTiddler asJson
|
||||
].
|
||||
^ self metadataFolder
|
||||
^ self metadataFolder / subfolderRenamed
|
||||
|
||||
]
|
||||
|
||||
@ -66,3 +67,12 @@ PaqueteSemanal >> repository [
|
||||
PaqueteSemanal >> repository: folder [
|
||||
repository := folder
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
PaqueteSemanal >> sanitizeFolderNamed: name [
|
||||
| sanitized |
|
||||
sanitized := name trimmed copyReplaceAll: '!' with: ''.
|
||||
sanitized := sanitized copyReplaceAll: ' ' with: ''.
|
||||
sanitized := sanitized romanizeAccents.
|
||||
^ sanitized
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user