paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

utility for accessing attrs

Browse source
This commit is contained in:
Bo Yao 2018-06-27 13:00:53 -04:00
parent 91f4a2bd9f
commit 77521e12c7
1 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/flute.lisp
View file

@ -5,7 +5,8 @@
:alist :alist
:alistp :alistp
:hash-alist :hash-alist
:alist-plist) :aget
:delete-from-alistf)
(:import-from :let-over-lambda (:import-from :let-over-lambda
:defmacro! :defmacro!
:mkstr :mkstr
@ -58,17 +59,23 @@
(defstruct attrs alist) (defstruct attrs alist)
;;; TODO make it setf (defmethod (setf attr) (value (attrs attrs) key)
(defmethod set-attr ((attrs attrs) key value) (setf (aget (attrs-alist) key) value))
)
(defmethod delete-attr ((attrs attrs) key value) (defmethod delete-attr ((attrs attrs) key)
) (delete-from-alistf (attrs-alist attrs) key))
(defmethod get-attr ((attrs attrs)) (defmethod attr ((attrs attrs) key)
) (aget (attrs-alist attrs) key))
; (defmethod set-attr ((element element) key value)) (defmethod (setf attr) (value (element element) key)
(setf (attr (element-attrs element) key) value))
(defmethod delete-attr ((element element) key)
(delete-attr (element-attrs element) key))
(defmethod attr ((element element) key)
(attr (element-attrs element)))
(defun split-attrs-and-children (attrs-and-children) (defun split-attrs-and-children (attrs-and-children)
(cond (cond