elpa/fringe-helper-0.1.1/fringe-helper-autoloads.el elpa/fringe-helper-0.1.1/fringe-helper-pkg.el elpa/fringe-helper-0.1.1/fringe-helper.el @@ -31,4 +31,29 @@ it)" (cons 'flymake-show-error-for-current-line post-command-hook))))) +;; http://nschum.de/src/emacs/fringe-helper/ +(eval-after-load "flymake" + '(progn + (require 'fringe-helper) + + (defvar flymake-fringe-overlays nil) + (make-variable-buffer-local 'flymake-fringe-overlays) + + (defadvice flymake-make-overlay (after add-to-fringe first + (beg end tooltip-text face mouse-face) + activate compile) + (push (fringe-helper-insert-region + beg end + (fringe-lib-load (if (eq face 'flymake-errline) + fringe-lib-exclamation-mark + fringe-lib-question-mark)) + 'left-fringe 'font-lock-warning-face) + flymake-fringe-overlays)) + + (defadvice flymake-delete-own-overlays (after remove-from-fringe activate + compile) + (mapc 'fringe-helper-remove flymake-fringe-overlays) + (setq flymake-fringe-overlays nil)))) + + (provide 'init-flymake) init-flymake.el 9c528be9d5e8bcd2111804f8de22447874d1fc7d Steve Purcell steve@sanityinc.com http://github.com/purcell/emacs.d/commit/a9f66a57f3dd295aa7477c8e64834d2c97de6575 a9f66a57f3dd295aa7477c8e64834d2c97de6575 2009-05-26T08:01:43-07:00 2009-05-26T08:01:43-07:00 Install fringe-helper and use it to highlight flymake errors 7fae40352b8ef7e47bf2af6913bbc0b6d06a1496 Steve Purcell steve@sanityinc.com