lambda/main.lisp at master · lambdachad/lambda · GitHub

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
(in-package :lambda)

(defparameter *input-style*
  '(:color #xFBFBFC :height 75 :radius 8 :padding 20 :border-width 1.5 :border-color #xCFD5E2))

(defun input (label)
  (rect :style *input-style*
    :on-click (lambda (node)
                (node-set node :color #xEEF2FF :border-color #x3B82F6))
    (text label :size 24 :color #x707A8C)))

(defun hr ()
  (rect :color #xE0E0E0 :height 2))

(defun h1 (content)
  (text content :size 54 :color #x111111 :weight 500))

(defun p (content)
  (text content :color #x666666))

(defun a (content)
  (text content :color #x3B82F6))

(defui *page* :gap 24 :padding 24
  (hstack :gap 24
    (input "First name")
    (input "Last name"))
  (input "Email")
  (hr)
  (vstack :align :center :gap 12
    (h1 "Lambda")
    (p "GPU-powered UI from Common Lisp.")
    (hstack :justify :end :gap 12
      (p "Cancel")
      (a "Submit"))))