add elisp functions that clean up compilation output

lecopivo · Jun 19, 2024 · c746548 · c746548
1 parent a81c2c9
commit c746548
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/.dir-locals.el b/.dir-locals.el
@@ -4,3 +4,20 @@
 ((lean4-mode . ((fill-column . 100)
                 (show-trailing-whitespace . t)
                 (eval . (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)))))
+
+
+
+;; hide warning/note/info from compilation output
+;; ((nil . ((eval . (progn
+;;                    (require 'compile)
+;;                    (defun my-hide-compilation-warnings ()
+;;                      "Hide lines in compilation buffer that start with 'warning:', 'note:', or 'info:'."
+;;                      (save-excursion
+;;                        (goto-char (point-min))
+;;                        (while (re-search-forward "^\\(warning\\|note\\|info\\):.*\n" nil t) 
+;;                          (replace-match ""))))
+;;                    (defun my-add-compilation-hook ()
+;;                      "Add compilation filter hook if buffer is visiting a file."
+;;                      (when buffer-file-name
+;;                        (add-hook 'compilation-filter-hook 'my-hide-compilation-warnings)))
+;;                    (add-hook 'find-file-hook 'my-add-compilation-hook))))))