From mboxrd@z Thu Jan  1 00:00:00 1970
From: John Kitchin <jkitchin@andrew.cmu.edu>
Subject: Re: assign tags via helm/avy?
Date: Mon, 30 May 2016 20:42:58 -0400
Message-ID: <m2k2ibvyzx.fsf@Johns-MacBook-Air.local>
References: <CAOQHXPr-vFKHJgM-4HfS7abm8GQcq5DEhRr_RESYxH1T4aSvzg@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:53792)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <johnrkitchin@gmail.com>) id 1b7Xlt-0004mT-If
	for emacs-orgmode@gnu.org; Mon, 30 May 2016 20:43:02 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <johnrkitchin@gmail.com>) id 1b7Xlp-0003CV-Ck
	for emacs-orgmode@gnu.org; Mon, 30 May 2016 20:43:00 -0400
Received: from mail-qk0-x22e.google.com ([2607:f8b0:400d:c09::22e]:36597)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <johnrkitchin@gmail.com>) id 1b7Xlp-0003CH-7j
	for emacs-orgmode@gnu.org; Mon, 30 May 2016 20:42:57 -0400
Received: by mail-qk0-x22e.google.com with SMTP id x7so132447629qkd.3
	for <emacs-orgmode@gnu.org>; Mon, 30 May 2016 17:42:55 -0700 (PDT)
In-reply-to: <CAOQHXPr-vFKHJgM-4HfS7abm8GQcq5DEhRr_RESYxH1T4aSvzg@mail.gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode/>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: "Emacs-orgmode"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: Xebar Saram <zeltakc@gmail.com>
Cc: org mode <emacs-orgmode@gnu.org>

Here is a helm approach that seems like what you want.

#+BEGIN_SRC emacs-lisp
(defun tag-lister ()
  "Function that gets and returns possible tags."
  (list "tag1" "tag2" "tag3"))

(defun helm-tagger ()
  (interactive)
  (helm
   :sources
   `((name . "HELM tag setter")
     (candidates . ,(tag-lister))
     (action . (lambda (candidate)
                 (org-set-tags-to (helm-marked-candidates)))))))


#+END_SRC
Xebar Saram writes:

> Hi guys
>
> i have a bunch of tags i define via
>
> (:startgroup)
>     ("Where?")
>     (:grouptags)
>      ("@home" . ?h)
>      ("@work" . ?w)
>      ("@pc" . ?p)
>      ("@family" . ?f)
>      ("@shop" . ?s)
>      (:endgroup)
>
> (:startgrouptag)
>     ("people")
>     (:grouptags)
>     ("allan" . ?a)
>     ("bob" . ?o)
>     ("joel" . ?j)
>     ("david" . ?d)
>     ("boris" . ?b)
>     ("massimo" . ?s)
>      (:endgrouptag)
>
> anyone know of a way to quick add tags via a helm/avy interface?
>
> right now its quite cumbersome to press C-c then C-c to see a list of all
> tags. also some tags have the same key (?a) and then its impossible to
> select the 2nd one
>
> thx alot in advance
>
> Z


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