commit 836fc286924dc8adc49be9402bf070397dcb8e9e · anil.recoil.org/ocaml-jsonfeed

+18

LICENSE.md

···

       1
       1
       +
       (*

     

       2
       2
       +
        * ISC License

     

       3
       3
       +
        * 

     

       4
       4
       +
        * Copyright (c) 2025 Anil Madhavapeddy <anil@recoil.org>

     

       5
       5
       +
        *

     

       6
       6
       +
        * Permission to use, copy, modify, and distribute this software for any

     

       7
       7
       +
        * purpose with or without fee is hereby granted, provided that the above

     

       8
       8
       +
        * copyright notice and this permission notice appear in all copies.

     

       9
       9
       +
        *

     

       10
       10
       +
        * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

     

       11
       11
       +
        * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF

     

       12
       12
       +
        * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

     

       13
       13
       +
        * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

     

       14
       14
       +
        * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

     

       15
       15
       +
        * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

     

       16
       16
       +
        * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

     

       17
       17
       +
        *

     

       18
       18
       +
        *)

+160

README.md

···

       1
       1
       +
       # OCaml-JSONFeed

     

       2
       2
       +
       

     

       3
       3
       +
       An OCaml library for parsing and generating [JSON Feed](https://www.jsonfeed.org/) documents.

     

       4
       4
       +
       

     

       5
       5
       +
       JSON Feed is a format similar to RSS and Atom but uses JSON instead of XML.

     

       6
       6
       +
       It is designed to be easier for developers to work with while providing all the

     

       7
       7
       +
       functionality needed for feed syndication.

     

       8
       8
       +
       

     

       9
       9
       +
       ## Installation

     

       10
       10
       +
       

     

       11
       11
       +
       Add to your `dune-project`:

     

       12
       12
       +
       

     

       13
       13
       +
       ```lisp

     

       14
       14
       +
       (package

     

       15
       15
       +
         (name your-package)

     

       16
       16
       +
         (depends

     

       17
       17
       +
           jsonfeed

     

       18
       18
       +
           ...))

     

       19
       19
       +
       ```

     

       20
       20
       +
       

     

       21
       21
       +
       ## Quick Start

     

       22
       22
       +
       

     

       23
       23
       +
       ### Creating a Feed

     

       24
       24
       +
       

     

       25
       25
       +
       ```ocaml

     

       26
       26
       +
       open Jsonfeed

     

       27
       27
       +
       

     

       28
       28
       +
       (* Create an author *)

     

       29
       29
       +
       let author = Author.create

     

       30
       30
       +
         ~name:"Jane Doe"

     

       31
       31
       +
         ~url:"https://example.com/jane"

     

       32
       32
       +
         ()

     

       33
       33
       +
       

     

       34
       34
       +
       (* Create an item with HTML content *)

     

       35
       35
       +
       let item = Item.create

     

       36
       36
       +
         ~id:"https://example.com/posts/1"

     

       37
       37
       +
         ~url:"https://example.com/posts/1"

     

       38
       38
       +
         ~title:"Hello, JSON Feed!"

     

       39
       39
       +
         ~content:(`Html "<p>My first post using JSON Feed.</p>")

     

       40
       40
       +
         ~authors:[author]

     

       41
       41
       +
         ~tags:["introduction"; "jsonfeed"]

     

       42
       42
       +
         ()

     

       43
       43
       +
       

     

       44
       44
       +
       (* Create the feed *)

     

       45
       45
       +
       let feed = Jsonfeed.create

     

       46
       46
       +
         ~title:"My Blog"

     

       47
       47
       +
         ~home_page_url:"https://example.com"

     

       48
       48
       +
         ~feed_url:"https://example.com/feed.json"

     

       49
       49
       +
         ~items:[item]

     

       50
       50
       +
         ()

     

       51
       51
       +
       

     

       52
       52
       +
       (* Serialize to JSON *)

     

       53
       53
       +
       let json = Jsonfeed.to_string feed

     

       54
       54
       +
       ```

     

       55
       55
       +
       

     

       56
       56
       +
       ### Parsing a Feed

     

       57
       57
       +
       

     

       58
       58
       +
       ```ocaml

     

       59
       59
       +
       open Jsonfeed

     

       60
       60
       +
       

     

       61
       61
       +
       (* Parse from string *)

     

       62
       62
       +
       match Jsonfeed.of_string json_string with

     

       63
       63
       +
       | Ok feed ->

     

       64
       64
       +
           Printf.printf "Feed: %s\n" (Jsonfeed.title feed);

     

       65
       65
       +
           List.iter (fun item ->

     

       66
       66
       +
             match Item.title item with

     

       67
       67
       +
             | Some title -> Printf.printf "- %s\n" title

     

       68
       68
       +
             | None -> ()

     

       69
       69
       +
           ) (Jsonfeed.items feed)

     

       70
       70
       +
       | Error (`Msg err) ->

     

       71
       71
       +
           Printf.eprintf "Parse error: %s\n" err

     

       72
       72
       +
       

     

       73
       73
       +
       (* Parse from file *)

     

       74
       74
       +
       let content = In_channel.with_open_text "feed.json" In_channel.input_all in

     

       75
       75
       +
       match Jsonfeed.of_string content with

     

       76
       76
       +
       | Ok feed -> (* ... *)

     

       77
       77
       +
       | Error _ -> (* ... *)

     

       78
       78
       +
       ```

     

       79
       79
       +
       

     

       80
       80
       +
       ### Content Types

     

       81
       81
       +
       

     

       82
       82
       +
       Items can have HTML content, plain text content, or both:

     

       83
       83
       +
       

     

       84
       84
       +
       ```ocaml

     

       85
       85
       +
       (* HTML only *)

     

       86
       86
       +
       let item1 = Item.create

     

       87
       87
       +
         ~id:"1"

     

       88
       88
       +
         ~content:(`Html "<p>Rich <strong>HTML</strong> content</p>")

     

       89
       89
       +
         ()

     

       90
       90
       +
       

     

       91
       91
       +
       (* Plain text only *)

     

       92
       92
       +
       let item2 = Item.create

     

       93
       93
       +
         ~id:"2"

     

       94
       94
       +
         ~content:(`Text "Plain text content")

     

       95
       95
       +
         ()

     

       96
       96
       +
       

     

       97
       97
       +
       (* Both HTML and text *)

     

       98
       98
       +
       let item3 = Item.create

     

       99
       99
       +
         ~id:"3"

     

       100
       100
       +
         ~content:(`Both ("<p>HTML version</p>", "Text version"))

     

       101
       101
       +
         ()

     

       102
       102
       +
       

     

       103
       103
       +
       (* Access content *)

     

       104
       104
       +
       match Item.content_html item1 with

     

       105
       105
       +
       | Some html -> Printf.printf "HTML: %s\n" html

     

       106
       106
       +
       | None -> ()

     

       107
       107
       +
       ```

     

       108
       108
       +
       

     

       109
       109
       +
       ### Podcast Feed with Attachments

     

       110
       110
       +
       

     

       111
       111
       +
       ```ocaml

     

       112
       112
       +
       (* Create an audio attachment *)

     

       113
       113
       +
       let episode_audio = Attachment.create

     

       114
       114
       +
         ~url:"https://podcast.example.com/ep1.mp3"

     

       115
       115
       +
         ~mime_type:"audio/mpeg"

     

       116
       116
       +
         ~size_in_bytes:15_728_640L

     

       117
       117
       +
         ~duration_in_seconds:1800

     

       118
       118
       +
         ()

     

       119
       119
       +
       

     

       120
       120
       +
       (* Create a podcast episode *)

     

       121
       121
       +
       let episode = Item.create

     

       122
       122
       +
         ~id:"https://podcast.example.com/episodes/1"

     

       123
       123
       +
         ~title:"Episode 1: Introduction"

     

       124
       124
       +
         ~content:(`Html "<p>Welcome to the show!</p>")

     

       125
       125
       +
         ~attachments:[episode_audio]

     

       126
       126
       +
         ()

     

       127
       127
       +
       ```

     

       128
       128
       +
       

     

       129
       129
       +
       ## Examples

     

       130
       130
       +
       

     

       131
       131
       +
       The `example/` directory contains several complete examples:

     

       132
       132
       +
       

     

       133
       133
       +
       - **feed_example.ml** - Creating and serializing feeds (blog and podcast)

     

       134
       134
       +
       - **feed_parser.ml** - Parsing and analyzing feeds from files

     

       135
       135
       +
       - **feed_validator.ml** - Validating feeds and demonstrating various feed types

     

       136
       136
       +
       

     

       137
       137
       +
       Run examples:

     

       138
       138
       +
       

     

       139
       139
       +
       ```bash

     

       140
       140
       +
       opam exec -- dune exec -- ./example/feed_parser.exe

     

       141
       141
       +
       opam exec -- dune exec -- ./example/feed_example.exe

     

       142
       142
       +
       ```

     

       143
       143
       +
       

     

       144
       144
       +
       ## API Documentation

     

       145
       145
       +
       

     

       146
       146
       +
       Build the API documentation:

     

       147
       147
       +
       

     

       148
       148
       +
       ```bash

     

       149
       149
       +
       opam exec -- dune build @doc

     

       150
       150
       +
       ```

     

       151
       151
       +
       

     

       152
       152
       +
       Then open `_build/default/_doc/_html/index.html` in your browser.

     

       153
       153
       +
       

     

       154
       154
       +
       ## Specification

     

       155
       155
       +
       

     

       156
       156
       +
       This library implements [JSON Feed Version 1.1](https://www.jsonfeed.org/version/1.1/).

     

       157
       157
       +
       

     

       158
       158
       +
       ## License

     

       159
       159
       +
       

     

       160
       160
       +
       See LICENSE.md for details.