>>> "JK" == John Kitchin <jkitchin@andrew.cmu.edu> writes:

> This seems like something that could (should?) go in a personal config, as
> a custom function, or advice.

> You could, for example do something like this (lightly tested)

> #+BEGIN_SRC emacs-lisp
> (defun my-put (property value here)
>   (interactive (list nil nil current-prefix-arg))
>   (if (null here)
>       (org-set-property property value)
>     (let* ((property (or property (org-read-property-name)))
>   (value (or value (org-read-property-value property))))
>       (save-excursion
> (beginning-of-line)
> (search-forward ":")
> (backward-char)
> (insert (format ":%s: %s\n" property value))))))
> #+END_SRC

I tested it, and for my org files this is slightly better:


#+BEGIN_SRC emacs-lisp
(defun my-put (property value here)
  (interactive (list nil nil current-prefix-arg))
  (if (null here)
      (org-set-property property value)
    (let* ((property (or property (org-read-property-name)))
           (value (or value (org-read-property-value property))))
      (save-excursion
        (beginning-of-line)
        (search-forward ":")
        (backward-char)
        (insert (format ":%s: %s\n" property value))
                (indent-for-tab-command nil)))))
#+END_SRC


But this might be just me. In any case I think this functionality is
very helpful.

Uwe Brauer