More ergonomic way to add before-save-hook in ELisp

macros.el

;; This macro hopefully provides a more ergonomic way to add mode-specific hooks before buffer save events.
;; 
;; In ELisp you might see docs that tell you to write the following:
;; (add-hook 'reason-mode-hook (lambda () (add-hook 'before-save-hook #'refmt-before-save)))
;;
;; Instead of writing this, use this macro to write:
;; (add-hook-before-save 'reason-mode-hook #'refmt-before-save)

(defmacro add-hook-before-save
    (mode f)
  `(add-hook ,mode
             (lambda ()
               (add-hook 'before-save-hook ,f))))