Replace Character Sequences in Emacs for Syntactic Sugar

replace-seqs.el

(defmacro replace-seqs (chars modes)
  `(progn ,@(loop for char in chars collect `(replace-seq ,(first char) ,(second char) ,modes))
	  nil))

(defmacro replace-seq (char replacement modes)
  (let ((fname (gensym)))
    `(progn
       (defun ,fname ()
	 (font-lock-add-keywords
	  nil
	  '((,char (0
		    (progn
		      (compose-region (match-beginning 0)
				      (match-end 0)
				      ,replacement)
		      nil))))))
       
       ,@(loop for mode in modes collect `(add-hook ,mode (quote ,fname)))
       nil)))


;;; Example
(replace-seqs (("#'" "⍘") ("\\<lambda\\>" "λ") ("\\<funcall\\>" "⨐")) ('slime-mode-hook 'emacs-lisp-mode-hook 'slime-repl-mode-hook))