spaik 0.3.1

The SPAIK Programming Language
Documentation 
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
47
48
49
50
51
52
53
54
55
56

(defun escape (s)
  (or (and (or (number? s) (bool? s)) (string s))
      (and (symbol? s) (escape (string s)))
      (let ((out (vec)))
        (dolist (x s)
          (push out
                (cond ((= x (chr "<")) "&lt;")
                      ((= x (chr ">")) "&gt;")
                      ((= x (chr "&")) "&amp;")
                      (true x))))
        (apply concat out))))

(defun escape-attr (s)
  (or (and (or (number? s) (bool? s)) s)
      (and (symbol? s) s)
      (let ((out (vec)))
        (dolist (x s)
          (push out
                (cond ((= x (chr "<")) "&lt;")
                      ((= x (chr ">")) "&gt;")
                      ((= x (chr "&")) "&amp;")
                      ((= x (chr "\"")) "&quot;")
                      ((= x (chr "'")) "&#39;")
                      (true x))))
        (apply concat out))))

(defmacro html (&body b)
  (let ((s (vec 'vec)))
    (dolist (elem b)
      (if (cons? elem)
          (progn
            (if (symbol? (car elem))
                (let ((tag (string (car elem))))
                  (push s "<")
                  (push s tag)
                  (while (keyword? (cadr elem))
                    (push s " ")
                    (push s (keyword-name (cadr elem)))
                    (set elem (cdr elem))
                    (push s "=\"")
                    (if (cons? (cadr elem))
                        (push s (cadr elem))
                      (push s (escape-attr (cadr elem))))
                    (set elem (cdr elem))
                    (push s "\""))
                  (push s ">")
                  (push s `(html ,@(cdr elem)))
                  (push s "</")
                  (push s tag)
                  (push s ">"))
              (push s elem)))
        (if (symbol? elem)
            (push s elem)
          (push s (escape elem)))))
    `(apply concat
      ,(apply (lambda (&rest r) r) s))))