org-agenda-custom-commands

org-agenda-custom-commands

[Harald Weis]

Hi All,

I would like to define one entry of the org-agenda-custom-commands
variable like so:
(setq org-agenda-custom-commands
      '(("i" "item" tags-tree
	     (remedy-build-tags-tree-regex "item"))))

where ''item'' is the property key and
where the remedy-build-tags-tree-regex function is defined as follows:

(defun remedy-build-tags-tree-regex (propkey)
      (concat propkey
	  "={"
	  (read-from-minibuffer (concat propkey " : "))
	  "}"))

This would allow me to select the property value interactively.

The org-make-tags-matcher function does not appreciate.
''C-c a'' yields
i	item	: set of 2 commands

Selecting ''i'' produces the following error message in the minibuffer.
Wrong type argument: stringp, (remedy-build-tags-tree-regex "item")

Is there a way to get the desired functionality?

Thank you in advance for any help.
-- 
Harald Weis

Re: org-agenda-custom-commands

[Carsten Dominik]

Well, I guess I could evaluate match before it gets used.  But maybe  
you can also turn this around:  Dinfe a function what will call the  
tree maker directly


(defun my-tree (match)
   (interactive "s")
   (org-match-sparse-tree nil (concat "{" match "}")))

or something like this....

- Carsten

On Oct 18, 2009, at 4:43 PM, Harald Weis wrote:

> Hi All,
>
> I would like to define one entry of the org-agenda-custom-commands
> variable like so:
> (setq org-agenda-custom-commands
>      '(("i" "item" tags-tree
> 	     (remedy-build-tags-tree-regex "item"))))
>
> where ''item'' is the property key and
> where the remedy-build-tags-tree-regex function is defined as follows:
>
> (defun remedy-build-tags-tree-regex (propkey)
>      (concat propkey
> 	  "={"
> 	  (read-from-minibuffer (concat propkey " : "))
> 	  "}"))
>
> This would allow me to select the property value interactively.
>
> The org-make-tags-matcher function does not appreciate.
> ''C-c a'' yields
> i	item	: set of 2 commands
>
> Selecting ''i'' produces the following error message in the  
> minibuffer.
> Wrong type argument: stringp, (remedy-build-tags-tree-regex "item")
>
> Is there a way to get the desired functionality?
>
> Thank you in advance for any help.
> -- 
> Harald Weis
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten

Re: org-agenda-custom-commands

[Harald Weis]

Sorry, I was away for a couple of days.
Many thanks for your proposition which really works fine.
Still, would it be difficult to implement ``evaluating match before it
gets used''?
My user needs to define in his files a great number of
_multi-value_ property keys.    
He also requires for an occur-tree a horribly complicated regular
expression comprising a simple interactive character string.
I understand now that the latter could equally be accomplished with
the org-occur function the same way you've proposed for the
org-match-sparse-tree function, couldn't it?
Yes, it can! I've just tested the following function:
(defun my-occur (match)
  (interactive "s")
  (org-occur (concat "[:]" match "[:]"))) 
Great, it works.

But I still think it could be advantageous to do the whole lot within
the org-agenda-custom-commands variable if the match would be evaluated
before getting used.

Thank you very much indeed.
Harald Weis


On Mon, Oct 19, 2009 at 03:36:42PM +0200, Carsten Dominik wrote:
> Well, I guess I could evaluate match before it gets used.  But maybe  
> you can also turn this around:  Dinfe a function what will call the  
> tree maker directly
> 
> 
> (defun my-tree (match)
>   (interactive "s")
>   (org-match-sparse-tree nil (concat "{" match "}")))
> 
> or something like this....
> 
> - Carsten
> 
> On Oct 18, 2009, at 4:43 PM, Harald Weis wrote:
> 
> >Hi All,
> >
> >I would like to define one entry of the org-agenda-custom-commands
> >variable like so:
> >(setq org-agenda-custom-commands
> >     '(("i" "item" tags-tree
> >	     (remedy-build-tags-tree-regex "item"))))
> >
> >where ''item'' is the property key and
> >where the remedy-build-tags-tree-regex function is defined as follows:
> >
> >(defun remedy-build-tags-tree-regex (propkey)
> >     (concat propkey
> >	  "={"
> >	  (read-from-minibuffer (concat propkey " : "))
> >	  "}"))
> >
> >This would allow me to select the property value interactively.
> >
> >The org-make-tags-matcher function does not appreciate.
> >''C-c a'' yields
> >i	item	: set of 2 commands
> >
> >Selecting ''i'' produces the following error message in the  
> >minibuffer.
> >Wrong type argument: stringp, (remedy-build-tags-tree-regex "item")
> >
> >Is there a way to get the desired functionality?

Re: org-agenda-custom-commands

[Carsten Dominik]

On Oct 29, 2009, at 8:56 PM, Harald Weis wrote:
>
> But I still think it could be advantageous to do the whole lot within
> the org-agenda-custom-commands variable if the match would be  
> evaluated
> before getting used.

Well, we can try and see if it breaks something.  The latest git version
now does evaluate it, but I have not yet introduced this into the
customize type - so you need to set the command list in Lisp for the
time being.

- Carsten


>
> Thank you very much indeed.
> Harald Weis
>
>
> On Mon, Oct 19, 2009 at 03:36:42PM +0200, Carsten Dominik wrote:
>> Well, I guess I could evaluate match before it gets used.  But maybe
>> you can also turn this around:  Dinfe a function what will call the
>> tree maker directly
>>
>>
>> (defun my-tree (match)
>>  (interactive "s")
>>  (org-match-sparse-tree nil (concat "{" match "}")))
>>
>> or something like this....
>>
>> - Carsten
>>
>> On Oct 18, 2009, at 4:43 PM, Harald Weis wrote:
>>
>>> Hi All,
>>>
>>> I would like to define one entry of the org-agenda-custom-commands
>>> variable like so:
>>> (setq org-agenda-custom-commands
>>>    '(("i" "item" tags-tree
>>> 	     (remedy-build-tags-tree-regex "item"))))
>>>
>>> where ''item'' is the property key and
>>> where the remedy-build-tags-tree-regex function is defined as  
>>> follows:
>>>
>>> (defun remedy-build-tags-tree-regex (propkey)
>>>    (concat propkey
>>> 	  "={"
>>> 	  (read-from-minibuffer (concat propkey " : "))
>>> 	  "}"))
>>>
>>> This would allow me to select the property value interactively.
>>>
>>> The org-make-tags-matcher function does not appreciate.
>>> ''C-c a'' yields
>>> i	item	: set of 2 commands
>>>
>>> Selecting ''i'' produces the following error message in the
>>> minibuffer.
>>> Wrong type argument: stringp, (remedy-build-tags-tree-regex "item")
>>>
>>> Is there a way to get the desired functionality?
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten