https://github.com/georgefst/prettyprinter-lucid

Pretty HTML from Haskell.
https://github.com/georgefst/prettyprinter-lucid

html prettyprinter

Last synced: 4 months ago
JSON representation

Pretty HTML from Haskell.

• Host: GitHub
• URL: https://github.com/georgefst/prettyprinter-lucid
• Owner: georgefst
• License: bsd-3-clause
• Created: 2020-08-16T17:59:55.000Z (almost 6 years ago)
• Default Branch: master
• Last Pushed: 2025-03-06T11:55:09.000Z (about 1 year ago)
• Last Synced: 2025-05-23T05:57:18.675Z (about 1 year ago)
• Topics: html, prettyprinter
• Language: Haskell
• Homepage: http://hackage.haskell.org/package/prettyprinter-lucid
• Size: 34.2 KB
• Stars: 0
• Watchers: 2
• Forks: 0
• Open Issues: 3
• Metadata Files:
  • Readme: README.md
  • Changelog: CHANGELOG.md
  • License: LICENSE

Awesome Lists containing this project

README

          
# Pretty HTML

This is just a tiny library enabling [lucid](https://hackage.haskell.org/package/lucid) to be used as a backend for [prettyprinter](https://hackage.haskell.org/package/prettyprinter). This makes it easy to programmatically generate HTML documents with complex nested styling.

# Example

This code, adapted from `prettyprinter`'s main example, produces the following:

![png](./doc/example.png)

```hs

{- cabal:

build-depends: base, text, lucid, prettyprinter, prettyprinter-lucid

-}

{-# LANGUAGE GHC2021 #-}

{-# LANGUAGE OverloadedStrings #-}

{-# OPTIONS_GHC -Wall #-}

module Main (main) where

import Data.Text (Text)

import Lucid

import Lucid.Base

import Prettyprinter

import Prettyprinter.Lucid

import Prettyprinter.Render.Util.SimpleDocTree (treeForm)

main :: IO ()

main = renderToFile "example.html" $ render 20 doc

render :: Int -> Doc (Html () -> Html ()) -> Html ()

render width' =

    div_ [style "background-color: #1F1F1F; padding: 0.2rem; padding-left: 0.4rem"]

        . renderHtml

        . treeForm

        . layoutPretty

            defaultLayoutOptions{layoutPageWidth = AvailablePerLine width' 1}

doc :: Doc (Html () -> Html ())

doc =

    annotate (span_ [style "font-weight: bold"]) $

        prettyprintDeclaration

            "example"

            ["Int", "Bool", "Char", "IO ()"]

  where

    prettyprintDeclaration n tys =

        colour "#DCDCAA" (pretty @Text n) <+> prettyprintType tys

    prettyprintType =

        align

            . sep

            . zipWith (<+>) (map (colour "#CC524B") $ "::" : repeat "->")

            . map (colour "569CD6")

    colour c =

        annotate (span_ [style $ "color: " <> c])

style :: Text -> Attribute

style = makeAttribute "style"

```