>>964さんのをいじってみた
(defun lite ()
(interactive)
(setq current-posion (point))
(insert "<@@>")
(goto-char (+ current-posion (/ (length "<@@>") 2))))

(global-set-key "\C-cn" 'lite)

秀丸マクロを覚えるなら、emacs-lispだろと思って触り始めてみたけど、かなり満足している
ケースバイケースでvimも使うけど、EmacsはUnix最強の文房具だね