[parenscript-devel] emacs uprading trick

[William Halliburton]

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)