Remove css-selector-like annotation
This commit is contained in:
parent
3dd9c7cdf0
commit
979489c15b
3 changed files with 2 additions and 46 deletions
src
|
@ -180,29 +180,7 @@ When given :ASCII and :ATTR, it's possible to insert html text as a children, e.
|
|||
,@(tree-leaves
|
||||
body
|
||||
(html-element-p x)
|
||||
(multiple-value-bind (name id class) (collect-id-and-class x)
|
||||
(if (or id class)
|
||||
(make-!expanded :list (list (find-symbol (string-upcase name) :piccolo)
|
||||
(coerce (append (when id (list :id id))
|
||||
(when class (list :class class)))
|
||||
'vector)))
|
||||
(find-symbol (string-upcase name) :piccolo))))))
|
||||
|
||||
;;; Experimental
|
||||
;; (when (find :illusion *features*)
|
||||
;; (illusion:set-paren-reader
|
||||
;; :piccolo
|
||||
;; #'html-element-p
|
||||
;; (lambda (stream indicator)
|
||||
;; (multiple-value-bind (name id class) (collect-id-and-class indicator)
|
||||
;; (if (or id class)
|
||||
;; (list* (find-symbol (string-upcase name) :piccolo)
|
||||
;; (coerce (append (when id (list :id))
|
||||
;; (when class (list :class class)))
|
||||
;; 'vector)
|
||||
;; (illusion:cl-read-list stream))
|
||||
;; (cons (find-symbol (string-upcase name) :piccolo)
|
||||
;; (illusion:cl-read-list stream)))))))
|
||||
(find-symbol (string-upcase x) :piccolo))))
|
||||
|
||||
(defmethod element-string ((element element))
|
||||
(with-output-to-string (s)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue