An elisp macro that makes hook development much easier by automatically removing old version of hook

hook-add-or-update.el

(defmacro hook-add-or-update (hook fname &rest body)
  "Macro to make defining and updating hooks much easier.
   Hook functions get an fname.
   Before defining and adding a hook to a list, macro first checks if that fname is already defined, if so, the old version is removed from hook

  used as follows
  (hook-add-or-update
     shell-mode-hook fourth-shell-hook
     (message \"macro fourth rev 2\"))"
  
  `(progn
     (if (fboundp ',fname)
	 (progn 
	   (message "defined fname of %s" ',fname)
	   (remove-hook ',hook ',fname))
       (message "not found fname of %s" ',fname))
     (defun ,fname ()
       ,@body)
     (add-hook ',hook ',fname)))

An elisp macro that makes hook development much easier by automatically removing old version of hook