Function: flymake--eol-overlay-summary

flymake--eol-overlay-summary is a byte-compiled function defined in flymake.el.gz.

Signature

(flymake--eol-overlay-summary SRC-OVS)

Documentation

Helper function for flymake--update-eol-overlays.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/flymake.el.gz
(defun flymake--eol-overlay-summary (src-ovs)
  "Helper function for `flymake--update-eol-overlays'."
  (cl-flet ((summarize (d)
              (flymake--format-diagnostic d :eol 'eol-face)))
    (let* ((diags
            (cl-sort
             (mapcar (lambda (o) (overlay-get o 'flymake-diagnostic)) src-ovs)
             #'>
             :key (lambda (d) (flymake--severity (flymake-diagnostic-type d)))))
           (summary
            (concat
             "  "
             (cond ((eq flymake-show-diagnostics-at-end-of-line 'short)
                    (concat
                     (summarize (car diags))
                     (and (cdr diags)
                          (concat
                           " "
                           (propertize (format "and %s more"
                                               (1- (length diags)))
                                       'face 'flymake-eol-information-face)))))
                   ((eq flymake-show-diagnostics-at-end-of-line 'fancy)
                    (flymake--eol-draw-fancy diags #'summarize))
                   (t
                    (mapconcat #'summarize diags " ")))
             "\n")))
      (put-text-property 0 1 'cursor t summary)
      summary)))