Re: Bug? org-set-tags never uses ido

[Anders Johansson <mejlaandersj@gmail.com>]

A hack to get ido selection for multiple tags. It uses 
ido-completing-read-multiple (available here and included below: 
https://gist.github.com/mgalgs/1329188) to allow for completing one tag 
at a time and ending it by typing ":".

I haven't tested it much and it might possibly break things (or most 
certainly it's implemented in an ugly way). Perhaps someone more than me 
will find it useful.

Cheers,
Anders


----
(defadvice org-icompleting-read
   (around org-use-ido-for-tags
           (prompt coll &optional pred reqm initial hist def)
           activate)
   "Advised to use ido for multiple completion of tags"
   (setq ad-return-value
         (if (string= "Tags: " prompt)
             (mapconcat 'identity
                        (ido-completing-read-multiple
                         prompt
                         (mapcan
                          'copy-list org-last-tags-completion-table)
                         pred reqm initial hist def ":")
                        ":")
           ad-do-it)))


(defun ido-completing-read-multiple (prompt choices &optional predicate 
require-match initial-input hist def sentinel)
   "Read multiple items with ido-completing-read. Reading stops
   when the user enters SENTINEL. By default, SENTINEL is
   \"*done*\". SENTINEL is disambiguated with clashing completions
   by appending _ to SENTINEL until it becomes unique. So if there
   are multiple values that look like SENTINEL, the one with the
   most _ at the end is the actual sentinel value. See
   documentation for `ido-completing-read' for details on the
   other parameters."
   (let
       ((sentinel (if sentinel sentinel "*done*"))
        (done-reading nil)
        (res ()))

     ;; uniquify the SENTINEL value
     (while (find sentinel choices)
       (setq sentinel (concat sentinel "_")))
     (setq choices (cons sentinel choices))

     ;; read some choices
     (while (not done-reading)
       (setq this-choice (ido-completing-read prompt choices predicate 
require-match initial-input hist def))
       (if (equal this-choice sentinel)
           (setq done-reading t)
         (setq res (cons this-choice res))))

     ;; return the result
     res
     ))
----