recompile on save (not Elisp byte compilation)

recompile on save (not Elisp byte compilation)

[Terje Larsen]

[-- Attachment #1: Type: text/plain, Size: 1239 bytes --]

Greetings, I wonder if there is any functionality like recompile on save
for the regular 'recompile' command from the compile package.

A while ago I created this functionality like this:

  (defun compile-on-save-start ()
    (let ((main-buffer (current-buffer))
          (compile-buffer (compilation-find-buffer)))
      (unless (get-buffer-process compile-buffer)
        (recompile)
        (switch-to-buffer-other-window main-buffer))))

  (define-minor-mode compile-on-save-mode
    "Minor mode to automatically call `recompile' whenever the
current buffer is saved. When there is ongoing compilation,
nothing happens."
    :lighter " CoS"
    (if compile-on-save-mode
        (progn  (make-local-variable 'after-save-hook)
                (add-hook 'after-save-hook 'compile-on-save-start nil t))
      (kill-local-variable 'after-save-hook)))

I re-discovered it today, when I thought it was something built-in to GNU
Emacs, but realized it was my own thing. This got me thinking that this is
probably something that would be nice to have as part of GNU Emacs.

What do you all think? Is there something like this already? Would it be
useful?

I have used it to compile things, run tests, generate diagrams etc.

-- 
Terje Larsen

[-- Attachment #2: Type: text/html, Size: 1718 bytes --]