>> + (let ((string (concat " " (prog2 (and ARG (forward-line 1)) >> + (org-trim (delete-and-extract-region >> (line-beginning-position) >> + >> (line-end-position)))))))
Also,
(concat " "
(progn (when ARG (forward-line))
(org-trim ...)))
