To help convert older parenscript scripts into the latest fashions. ;; ps-upgrade.el ;; converts foo.baz.boz -> (@ foo baz boz) (defun ps-upgrade () (interactive) (let ((sym (symbol-at-point))) (delete-region (beginning-of-thing 'symbol) (end-of-thing 'symbol)) (insert "(@ " (substitute ?\s ?. (symbol-name sym)) ")"))) ;(global-set-key "\C-c\C-v" 'ps-upgrade)