*scratch*.el

(global-set-key (kbd "C-x c") 'compile)

(define-minor-mode ludus-mode "A minor mode for developing the ludus project" nil "Ludus"
  '(([rebind compile] . ludus-compile)))

(defun ludus-compile ()
  (interactive)
  (insert "ding"))

(define-minor-mode test-mode "test mode" nil "TEST"
  '(([remap compile] . new-compile)))

(defun new-compile ()
  (interactive)
  (insert "ding"))