Skip to content

Instantly share code, notes, and snippets.

/tag-name-lquery-function.lisp

Created September 3, 2015 07:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save anonymous/8cd442e4d8bbbf1485bd to your computer and use it in GitHub Desktop.
Save anonymous/8cd442e4d8bbbf1485bd to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tag-name-lquery-function.lisp
(lquery:define-lquery-list-function tag-name (nodes &rest tags)
"Manipulate elements on the basis of there tag-name.
With no arguments, return their names else return
the corresponding tags."
(if (null tags)
(map 'vector #'plump:tag-name nodes)
(loop for node across nodes
if (find (plump:tag-name node) tags :test #'string=)
collect node)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment