bit-badger/myWebLog
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects Releases 11 Activity

WIP on OpenGraph edit form (#52)

Browse Source
This commit is contained in:
Daniel J. Summers
2025-08-02 20:57:29 -04:00
parent cba1bbfa28
commit bc1d17d916
3 changed files with 60 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/MyWebLog.Domain/SupportTypes.fs
+16
View File
@@ -581,6 +581,22 @@ type OpenGraphType =
| "website" -> Website
| _ -> invalidArg (nameof typ) $"{typ} is not a valid OpenGraph type"
/// <summary>The values and display names for valid values of this type</summary>
static member Selections =
[ string Article, nameof Article
string Book, nameof Book
string MusicAlbum, "Music: Album"
string MusicPlaylist, "Music: Playlist"
string MusicRadioStation, "Music: Radio Station"
string MusicSong, "Music: Song"
string PaymentLink, "Payment Link"
string Profile, nameof Profile
string VideoEpisode, "Video: Episode"
string VideoMovie, "Video: Movie"
string VideoOther, "Video: Other"
string VideoTvShow, "Video: TV Show"
string Website, nameof Website ]
override this.ToString() =
match this with
| Article -> "article"