Skip to content

Instantly share code, notes, and snippets.

@fiddlerwoaroof

fiddlerwoaroof/tag-name-lquery-function.lisp

Forked from anonymous/tag-name-lquery-function.lisp
Last active September 3, 2015 07:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fiddlerwoaroof/8fb4c1af3bd71b1da1c8 to your computer and use it in GitHub Desktop.
Save fiddlerwoaroof/8fb4c1af3bd71b1da1c8 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