Earmuffs and variables

According to the Clojure coding standards for libraries, variables names should be written with *earmuffs* only when they are intended to be rebind.

Here and there I forget this rule and use earmuffs most of the time, so I decided to create an Emacs Lisp function to add/remove earmuffs to variable:

	(defun earmuffy (&optional arg)
	(interactive "P")
	(let* ((variable (thing-at-point 'sexp))
	(bounds (bounds-of-thing-at-point 'sexp))
	(current-point (point))
	(earmuffed-variable (concat "*" variable "*")))
	(save-excursion)
	(kill-region (car bounds) (cdr bounds))
	(if arg
	;; unearmuffy
	(progn
	(insert (substring variable 1 (- (length variable) 1)))
	(goto-char (- current-point 1)))
	;; earmuffy
	(progn
	(insert earmuffed-variable)
	(goto-char (+ current-point 1))))))

view raw earmuffy hosted with ❤ by GitHub

Add it to your .emacs file and then place your cursor on a variable and call it with

M-x earmuffy

to add earmuffs, or type

C-u M-x earmuffy

to remove them.