Skip to content

skyizwhite/hsx

Repository files navigation

HSX – HTML S-expression

HSX is a declarative, component-oriented HTML DSL for Common Lisp. It lets you describe HTML structures and reusable components directly in Lisp, safely render them to HTML strings, and seamlessly integrate with your web applications.

Example Project


How It Works

HSX translates Lisp S-expressions into HTML by expanding them into calls to create-element.

Each tag or component inside an (hsx ...) form becomes:

(create-element type props children)

For example:

(hsx
  (article :class "container"
    (h1 "Title")
    (p "Paragraph")
    (~share-button :service :x)))

Expands into:

(create-element :article
                (list :class "container")
                (list (create-element :h1 nil (list "Title"))
                      (create-element :p nil (list "Paragraph"))
                      (create-element #'~share-button
                                      (list :service :x)
                                      nil)))

Quick Example

(hsx
  (div :id "main" :class "container"
    (h1 "Hello, HSX!")
    (p "This is a simple paragraph.")))

<div id="main" class="container">
  <h1>Hello, HSX!</h1>
  <p>This is a simple paragraph.</p>
</div>

Basic Usage

Step 1: Create a Component

Components are defined using defcomp. They are simple Lisp functions that return HSX elements.

Component names must start with ~ and props should be declared with &key and/or &rest. The special children key automatically receives any nested elements.

(defcomp ~button (&key href class children)
  (hsx
    (a :href href :class (clsx "btn" class)
      children)))

Step 2: Combine Components

HSX allows composition of components just like JSX.

(defcomp ~card (&key title children)
  (hsx
    (div :class "card"
      (h2 title)
      (div :class "content"
        children))))

(defparameter *view*
  (hsx
    (div :class "container"
      (~card :title "Hello"
        (~button :href "/start" :class "primary"
          "Get Started"))
      (~card :title "Docs"
        (p "Read the documentation to learn more.")))))

Step 3: Render to HTML

Use render-to-string to produce a full HTML string. Pass :pretty t for indented, human-readable output.

(render-to-string *view* :pretty t)

Output:

<div class="container">
  <div class="card">
    <h2>Hello</h2>
    <div class="content">
      <a href="/start" class="btn primary">Get Started</a>
    </div>
  </div>
  <div class="card">
    <h2>Docs</h2>
    <div class="content">
      <p>Read the documentation to learn more.</p>
    </div>
  </div>
</div>

Fragments

<> — Fragment

Combine multiple elements without creating an extra parent tag.

(hsx
  (<>
    (li "One")
    (li "Two")))

<li>One</li>
<li>Two</li>

Fragments are useful when returning multiple sibling elements from a component.

raw! — Raw Fragment

HSX automatically escapes unsafe characters in text and attribute values to prevent injection attacks. If you need to insert raw, unescaped HTML, you can do so — but use it only with trusted content, as it disables automatic escaping and may expose security risks.

(hsx
  (script (raw! "alert('unsafe if user-generated!')")))

Expressions and Logic

You can embed any Lisp expression directly inside an HSX form. Since HSX is just Lisp syntax, you can use if, when, loop, or any other macro to build dynamic content.

Conditional Rendering

(hsx
  (div
    (if (> (random 10) 5)
        (hsx (p "High!"))
        (hsx (p "Low!")))))

Loop Rendering

(hsx
  (ul
    (loop :for item :in items :collect
      (hsx (li item)))))

Dynamic Props

HSX supports both inline plist props and dynamic plist props.

(let ((props '(:class "btn" :href "/")))
  (hsx (a props "Dynamic Link")))

Utilities

register-web-components

Makes Web Components usable in HSX.

(register-web-components
 custom1 custom2)

(hsx
  (custom1 :prop "val"
    (custom2)))

<custom1 prop="val">
  <custom2></custom2>
</custom1>

clear-web-components

Clears all registered Web Components.

clsx

Builds class strings conditionally. Removes nil and joins the remaining strings with spaces.

(clsx "btn" nil "primary")
;; => "btn primary"

License

MIT License

© 2024 Akira Tempaku

© 2018 Bo Yao (original flute project)

About

HTML S-expression

Topics

Resources

License

Stars

Watchers

Forks