16 May
2009
16 May
'09
7:29 p.m.
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)