emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: John Kitchin <jkitchin@andrew.cmu.edu>
To: Daimrod <daimrod@gmail.com>
Cc: "emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org>
Subject: Re: org-contacts email completion by tags
Date: Thu, 5 Jun 2014 12:54:19 -0400	[thread overview]
Message-ID: <CAJ51ETor37SAbowRLBQCnZVZr528jbp7G4xUrt+nOt=LM-7eiQ@mail.gmail.com> (raw)
In-Reply-To: <87bnu7fucv.fsf@tanger.home>

[-- Attachment #1: Type: text/plain, Size: 1465 bytes --]

On Thu, Jun 5, 2014 at 7:50 AM, Daimrod <daimrod@gmail.com> wrote:

> org-contacts-complete-group


Here is a better function I think. It uses the builtin org-contacts
database:

(defun insert-emails-from-tags (tag-expression)
  "insert emails from org-contacts that match the tags expression. For
example:
group-phd will match entries tagged with group but not with phd."
  (interactive "sTags: ")
  (insert
   (mapconcat 'identity
          (loop for contact in (org-contacts-filter)
            for contact-name = (car contact)
            for email = (org-contacts-strip-link (car
(org-contacts-split-property
                                   (or
                                (cdr (assoc-string
org-contacts-email-property
                                           (caddr contact)))
                                ""))))
            for tags = (cdr (assoc "TAGS" (nth 2 contact)))
            for tags-list = (if tags
                    (split-string (substring (cdr (assoc "TAGS" (nth 2
contact))) 1 -1) ":")
                      '())
            if (let ((todo-only nil))
             (eval (cdr (org-make-tags-matcher tag-expression))))

            collect (org-contacts-format-email contact-name email))
          ",")))


John

-----------------------------------
John Kitchin
Associate Professor
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
http://kitchingroup.cheme.cmu.edu

[-- Attachment #2: Type: text/html, Size: 2378 bytes --]

  reply	other threads:[~2014-06-05 16:54 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2014-06-04 23:16 org-contacts email completion by tags John Kitchin
2014-06-05  4:51 ` Daimrod
2014-06-05 11:33   ` John Kitchin
2014-06-05 11:50     ` Daimrod
2014-06-05 16:54       ` John Kitchin [this message]
2014-06-07  1:39         ` John Kitchin
2014-06-17  7:45           ` Daimrod
2014-07-13 10:48             ` Daimrod

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='CAJ51ETor37SAbowRLBQCnZVZr528jbp7G4xUrt+nOt=LM-7eiQ@mail.gmail.com' \
    --to=jkitchin@andrew.cmu.edu \
    --cc=daimrod@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).