>>> "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

Thanks very much. I will test it and report back as soon as possible.