package yocaml_otoml
Yocaml plugin for dealing with TOML as metadata provider
Install
dune-project
Dependency
Authors
Maintainers
Sources
yocaml-2.6.0.tbz
sha256=a006e9d52e520986d4262dfe7bfeba6a381f1423be32409494888d667d14ac73
sha512=8a25f1776e0bcd5e317484b681c67b0d6bb60952f0dd0942f44bf708fb3db03331522b4d8929e09c1926b213003bf14bb148468ddde35add0ad657b4d9237bd1
doc/src/yocaml_otoml/yocaml_otoml.ml.html
Source file yocaml_otoml.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
(* YOCaml a static blog generator. Copyright (C) 2024 The Funkyworkers and The YOCaml's developers This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see <https://www.gnu.org/licenses/>. *) module Data_provider = struct type t = Otoml.t let rec normalize = function | Otoml.TomlBoolean b -> Yocaml.Data.bool b | TomlString str -> Yocaml.Data.string str | TomlInteger i -> Yocaml.Data.int i | TomlFloat fl -> Yocaml.Data.float fl | TomlArray arr | TomlTableArray arr -> arr |> List.map normalize |> Yocaml.Data.list | TomlTable fields | TomlInlineTable fields -> fields |> List.map (fun (k, v) -> (k, normalize v)) |> Yocaml.Data.record (* Treat datetime related fields as regular strings. *) | TomlOffsetDateTime str | TomlLocalDateTime str | TomlLocalDate str | TomlLocalTime str -> Yocaml.Data.string str let from_string str = str |> Otoml.Parser.from_string_result |> Result.map_error (fun error -> let given = str and message = "Toml: " ^ error in Yocaml.Required.Parsing_error { given; message }) end include Yocaml.Make.Data_reader (Data_provider)
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>