Re: [Orgmode] RFC: interactive tag query adjustment

[Christopher League]

On Dec 8, 2007, at 1:29 PM, Adam Spiers wrote:
> The idea sounds great! though I copied your code into a buffer, did
> M-x eval-buffer, typed C-c a m and couldn't get any of the "electric"
> keys to behave any differently to normal.  Not sure if I did something
> wrong.

Huh, okay.  Maybe the code is rougher than I thought.  :)

The first step is, from the *Org Agenda* buffer, try C-h c / to make  
sure it is bound to cl-agenda-tag-and-cmd.  If not, then maybe the org- 
defkey failed.  Also, org-tag-alist must be set up with shortcut keys  
for each tag.  If this is the case, then typing "/h" should add  
"+home" to the current query, assuming you have ("home" . ?h) in org- 
tag-alist.  It will NOT prompt for anything after typing just the "/".

I'll paste the rest of my current org config below, in case there's  
some other relevant assumption I'm making about how things are set  
up.  My org-version is 5.16a.  If this needs further troubleshooting,  
maybe we can take it off-list until it gets resolved.

Thanks,
Chris

;; current org configuration

(setq org-agenda-files "~/v/plan/orgfiles.txt")
(setq org-startup-folded nil)
(setq org-hide-leading-stars t)
(setq org-todo-keywords
      ;; task states
      '((type "NEXT(N)" "|" "WAIT(W)" "DONE(D)")
        ;; project states
        (sequence "|" "ONEDAY(O)" "ACTIVE(A)" "CLOSED(C)")))
(setq org-todo-keyword-faces
      '(("NEXT" . (:foreground "green3" :weight bold))
        ("WAIT" . (:foreground "orange2" :weight bold))
        ("DONE" . (:foreground "red4" :weight bold))
        ("ONEDAY" . (:foreground "orange2" :inverse-video t))
        ("ACTIVE" . (:foreground "green3" :inverse-video t))
        ("CLOSED" . (:foreground "red4" :inverse-video t))))
(setq org-fast-tag-selection-include-todo t)

(setq org-tag-alist
      '(("ARCHIVE" . ?-)
        (:startgroup)
        ("focus" . ?f)
        ("tired" . ?t)
        (:endgroup)
        (:startgroup)
        ("inet" . ?i)
        ("comp" . ?c)
        (:endgroup)
        (:startgroup)
        ("email" . ?m)
        ("phone" . ?p)
        (:endgroup)
        (:startgroup)
        ("home" . ?h)
        ("office" . ?o)
        ("errand" . ?e)
        (:endgroup)))
(setq org-log-done nil)
(setq org-use-tag-inheritance nil)

(setq org-agenda-ndays 10)
(setq org-stuck-projects
      '("/ACTIVE" ("NEXT" "WAIT")
        nil ""))

(setq org-agenda-sorting-strategy
      '((agenda time-up priority-down category-keep)
        (todo priority-down tag-up category-keep)
        (tags priority-down tag-up category-keep)))