Posts

Create, read, quote, reply to, search, and delete Bluesky posts.

Domain Types

TimelinePost

A post with engagement counts and viewer state, returned by feed, search, and thread functions.

PostRef

A reference to a specific version of a post record, returned when creating a post.

FeedItem

A single item from a feed or timeline, pairing a post with an optional reason.

FeedReason

Discriminated union indicating why a post appeared in a feed.

PostEmbed

Discriminated union for embedded content in a post. Uses [<RequireQualifiedAccess>].

Supporting types: PostImage has Thumb, Fullsize, Alt (all string). PostVideo has Thumbnail, Playlist (both string option), Alt (string option). PostExternalLink has Uri, Title, Description (all string), Thumb (string option).

ThreadNode

Discriminated union representing a node in a post thread tree.

ThreadPost

A post within a thread, with parent and reply context.

Functions

Creating Posts

Video upload involves three steps: uploadVideo to initiate, awaitVideoProcessing to poll until ready, then creating a post with the video blob. postWithVideo wraps all three steps.

taskResult {
    // Simple post with auto-detected mentions, links, hashtags
    let! postRef = Bluesky.post agent "Hello from F#! #atproto"

    // Quote another post
    let! quoteRef = Bluesky.quotePost agent "Great take" postRef

    // Reply (thread root resolved automatically)
    let! replyRef = Bluesky.replyTo agent "I agree!" postRef

    // Post with images
    let imageBytes = System.IO.File.ReadAllBytes "photo.jpg"
    let! imagePost = Bluesky.postWithImages agent "Check this out!"
                        [ { Data = imageBytes; MimeType = Jpeg; AltText = "A photo" } ]
    ()
}

Reading Posts

taskResult {
    let! posts = Bluesky.getPosts agent [ postRef.Uri ]
    let! results = Bluesky.searchPosts agent "F# atproto" (Some 10L) None

    // Thread with pattern matching
    let! thread = Bluesky.getPostThread agent postRef (Some 6L) (Some 3L)
    match thread with
    | ThreadNode.Post tp -> printfn "Post: %s" tp.Post.Text
    | ThreadNode.NotFound uri -> printfn "Not found: %s" (AtUri.value uri)
    | ThreadNode.Blocked uri -> printfn "Blocked: %s" (AtUri.value uri)

    // Or the simplified view
    let! threadOpt = Bluesky.getPostThreadView agent postRef (Some 6L) (Some 3L)
    match threadOpt with
    | Some tp -> printfn "Post: %s with %d replies" tp.Post.Text tp.Replies.Length
    | None -> printfn "Post not accessible"
}

Engagement

unlike and unrepost are also available as simpler alternatives that return unit instead of UndoResult. The generic Bluesky.undo accepts any ref type (LikeRef, RepostRef, FollowRef, BlockRef).

taskResult {
    let! likeRef = Bluesky.like agent post
    let! _ = Bluesky.undoLike agent likeRef

    // Or without keeping the ref:
    let! result = Bluesky.unlikePost agent post
    match result with
    | Undone -> printfn "Unliked"
    | WasNotPresent -> printfn "Was not liked"
}

Bookmarks

taskResult {
    do! Bluesky.addBookmark agent post
    let! page = Bluesky.getBookmarks agent (Some 25L) None
    ()
}

Deleting

taskResult {
    do! Bluesky.deleteRecord agent postRef
}

SRTP Polymorphism

Many post functions accept multiple types via SRTP (statically resolved type parameters):

• like, repost, replyTo, quotePost, addBookmark accept TimelinePost or PostRef
• deleteRecord, removeBookmark, getPostThread, getPostThreadView, getLikes, getRepostedBy, getQuotes, muteThread, unmuteThread accept TimelinePost, PostRef, or AtUri

Pass entities directly -- no need to extract .Uri or construct a PostRef:

taskResult {
    let! page = Bluesky.getTimeline agent (Some 10L) None
    let post = page.Items.Head.Post

    // Pass the TimelinePost directly
    let! likeRef = Bluesky.like agent post
    let! thread = Bluesky.getPostThreadView agent post (Some 6L) None
    ()
}