https://github.com/isovector/suavemente

:dancer: an applicative functor that seamlessly talks to HTML inputs
https://github.com/isovector/suavemente

applicative-functors diagrams haskell html websockets

Last synced: 22 days ago
JSON representation

:dancer: an applicative functor that seamlessly talks to HTML inputs

• Host: GitHub
• URL: https://github.com/isovector/suavemente
• Owner: isovector
• License: bsd-3-clause
• Created: 2019-01-04T15:44:46.000Z (almost 6 years ago)
• Default Branch: master
• Last Pushed: 2019-07-08T14:37:54.000Z (over 5 years ago)
• Last Synced: 2024-05-01T19:26:25.962Z (6 months ago)
• Topics: applicative-functors, diagrams, haskell, html, websockets
• Language: Haskell
• Homepage: https://hackage.haskell.org/package/suavemente
• Size: 49.8 KB
• Stars: 73
• Watchers: 6
• Forks: 5
• Open Issues: 1
• Metadata Files:
  • Readme: README.md
  • Changelog: ChangeLog.md
  • License: LICENSE

Awesome Lists containing this project

README

        
# suavemente

[![Build Status](https://travis-ci.org/isovector/suavemente.svg?branch=master)][build]

[![Hackage](https://img.shields.io/hackage/v/suavemente.svg)][hackage]

[![Stackage LTS](https://www.stackage.org/package/suavemente/badge/lts)][stackage]

[![Stackage Nightly](https://www.stackage.org/package/suavemente/badge/nightly)][nightly]

[build]: https://travis-ci.org/isovector/suavemente

[hackage]: https://hackage.haskell.org/package/suavemente

[stackage]: http://stackage.org/lts/package/suavemente

[nightly]: http://stackage.org/nightly/package/suavemente

## Dedication

> Today's kitchen is all about a well-planned space that makes cooking a

> completely interactive experience among family and friends.

>

> Candice Olson

## Overview

Suavemente is an applicative functor capable of seamlessly talking to HTML

elements. Running a suavemente program automatically spins up a webserver and

hooks up its pages with websockets. The use case is to quickly deploy simple,

interactive Haskell programs without needing to figure out how the fuck GHCJS

works.

## Example

```haskell

{-# LANGUAGE ApplicativeDo #-}

module Main where

import Diagrams.Backend.SVG

import Diagrams.Prelude hiding (rad)

import Web.Suavemente

import Web.Suavemente.Diagrams

main :: IO ()

main = suavemente sendDiagram $ do

  rad <- slider "Radius" 1 10 5

  r   <- realSlider "Red" 0 1 0.05 1

  g   <- realSlider "Green" 0 1 0.05 1

  b   <- realSlider "Blue" 0 1 0.05 1

  x   <- slider "X" 0 20 10

  y   <- slider "Y" 0 20 10

  pure (

    circle rad

            # fc (sRGB r g b)

            # translate (r2 (x, y))

            # rectEnvelope (p2 (0, 0)) (r2 (20, 20))

    :: Diagram B)

```

Hit `localhost:8080` to see it in action!