Viewing Value of a Property of an Item in the Agenda

Viewing Value of a Property of an Item in the Agenda

[Varun Vats]

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

Hi All,

I have the LOCATION property set for a few appointments in my org files.
When I look at the agenda, I sometimes want to be able to view the location
of an appointment quickly. Right now I hit TAB on the agenda item (to go to
its original location in the org file) and open the :PROPERTIES: drawer to
view the LOCATION property.

Is there any way I can quickly look-up an item's propert(y/ies) in the
agenda view? I know one option would be to set up a column view for the
agenda. However, this requires that I know the properties I want to view
beforehand. Any ideas/suggestions are appreciated.

Thank you.

--
Sincerely,
Varun Vats
Graduate Student
University of Wisconsin, Madison
mailvarunvats@gmail.com

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

Re: Viewing Value of a Property of an Item in the Agenda

[Bastien]

Hi Varun,

Varun Vats <mailvarunvats@gmail.com> writes:

> I have the LOCATION property set for a few appointments in my org
> files. When I look at the agenda, I sometimes want to be able to view
> the location of an appointment quickly. Right now I hit TAB on the
> agenda item (to go to its original location in the org file) and open
> the :PROPERTIES: drawer to view the LOCATION property. 
>
> Is there any way I can quickly look-up an item's propert(y/ies) in
> the agenda view? I know one option would be to set up a column view
> for the agenda. However, this requires that I know the properties I
> want to view beforehand. Any ideas/suggestions are appreciated.

Hackish but works:

(defun my-org-agenda-view-item-properties ()
  "Display the properties of the item at point in the agenda."
  (interactive)
  (let ((m (get-text-property (point) 'org-hd-marker)) pp)
    (with-current-buffer (marker-buffer m)
      (goto-char m)
      (while (re-search-forward
	      org-property-re
	      (save-excursion (org-end-of-subtree)) t)
	(push (concat (match-string 2) ": " (match-string 3)) pp)))
    (delete-other-windows)
    (pop-to-buffer "*org properties*")
    (erase-buffer)
    (mapcar (lambda(p) (insert p "\n")) pp)
    (org-fit-window-to-buffer)
    (other-window 1)))

HTH,

-- 
 Bastien