Querying media links in custom fields.

2024-04-02 08:33:39 -05:00 · 2024-04-02 08:33:39 -05:00 · 6901ad18a6
parent beac5afca1
commit 6901ad18a6
1 changed files with 11 additions and 0 deletions
--- a/repository/TiddlyWiki/Tiddler.class.st
+++ b/repository/TiddlyWiki/Tiddler.class.st
@ -170,6 +170,17 @@ Tiddler >> customFields [
 	^ customFields ifNil: [ customFields := Dictionary new]
 ]

+{ #category : #accessing }
+Tiddler >> customFieldsWithMediaLinks [
+	| response |
+	response := OrderedDictionary new.
+	self customFields keysAndValuesDo: [:k :v | 
+		(v endsWithAnyOf: #('mp4' 'jpg' 'jpeg' 'png'))
+			ifTrue: [response at: k put: v ]
+	].
+	^ response
+]
+
 { #category : #accessing }
 Tiddler >> deleteUid [
 	self customFields deleteKey: 'uid'.