[Orgmode] Re: tagging during creation

[Andrew J. Korty]

Here's what I use:

 (defun org-set-buffer-todo-tags ()
   "Set tags for all tagless TODO headings in the current buffer."
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward "\\* \\(?:TODO\\|ACTION\\|WAITING\\) " nil t)
       (let ((tags (org-get-tags)))
         (if (or (not tags) (string= tags ""))
             (org-set-tags))))))
 
 (add-hook 'remember-hook
           (lambda ()
             (define-key (current-local-map) ""
               (lambda ()
                 (interactive)
                 (if (string= (buffer-name (current-buffer)) "*Remember*")
                     (org-set-buffer-todo-tags))
                 (org-ctrl-c-ctrl-c)))))

-- 
Andrew J. Korty, Deputy Information Security Officer
Office of the Vice President for Information Technology and CIO
Indiana University