Using org-map-entries to add properties to all entries with tags

Question

I'm trying to make a function that will allow me to add properties to all entries in an org file that contain a particular tag ("drill"):

(defun add-to-chinese-anki ()
  (interactive)
  (org-entry-put (point) "ANKI_DECK" "Chinese Org Notes")
  (org-entry-put (point) "ANKI_NOTE_TYPE" "chinese-org-drill")
  (org-entry-put (point) "ANKI_TAGS" "languages")
  )

(defun add-all-to-chinese-anki ()
  (interactive)
  (org-map-entries (lambda () (add-to-chinese-anki) "drill" 'file))
  )

However the above code is adding the tags to every entry in the file, and not filtering by tag. Any help would be appreciated!

Answer 1

Your call to org-map-entries is wrong - you have a misplaced paren. It should be

   ...
   (org-map-entries (lambda () (add-to-chinese-anki)) "drill" 'file)
   ...

Note that the lambda is not necessary. The following works just as well:

   ...
   (org-map-entries #'add-to-chinese-anki "drill" 'file)
   ...

For more complicated matching, the Matching tags and properties section of the manual is indispensable: you can read it locally with C-h i g(org) Matching tags RET.