;;; sideline-flymake.el --- Show flymake errors with sideline  -*- lexical-binding: t; -*-

;; Copyright (C) 2022-2026  Shen, Jen-Chieh

;; Author: Shen, Jen-Chieh <jcs090218@gmail.com>
;; Maintainer: Shen, Jen-Chieh <jcs090218@gmail.com>
;; URL: https://github.com/emacs-sideline/sideline-flymake
;; Version: 0.2.0
;; Package-Requires: ((emacs "28.1") (sideline "0.1.0"))
;; Keywords: convenience flymake

;; This file is not part of GNU Emacs.

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:
;;
;; This package allows display flymake errors with sideline.
;;
;; 1) Add sideline-flymake to sideline backends list,
;;
;;   (setq sideline-backends-right '(sideline-flymake))
;;
;; 2) Then enable sideline-mode in the target buffer,
;;
;;   M-x sideline-mode
;;

;;; Code:

(require 'cl-lib)
(require 'pcase)
(require 'flymake)
(require 'subr-x)

(require 'sideline)

(defgroup sideline-flymake nil
  "Show flymake errors with sideline."
  :prefix "sideline-flymake-"
  :group 'tool
  :link '(url-link :tag "Repository" "https://github.com/emacs-sideline/sideline-flymake"))

(defcustom sideline-flymake-display-mode 'point
  "Method type to when sideline will display flymake's errors."
  :type '(choice (const line)
                 (const point))
  :group 'sideline-flymake)

(defcustom sideline-flymake-show-backend-name nil
  "If non-nil, show the checker's name at the back."
  :type 'boolean
  :group 'sideline-flymake)

(defcustom sideline-flymake-max-lines 1
  "Maximum number of lines to show."
  :type 'integer
  :group 'sideline-flymake)

(defface sideline-flymake-error
  `((t :inherit error))
  "Indicate error operation."
  :group 'sideline-flymake)

(defface sideline-flymake-warning
  `((t :inherit warning))
  "Indicate warning operation."
  :group 'sideline-flymake)

(defface sideline-flymake-note
  `((t :inherit success))
  "Indicate note operation."
  :group 'sideline-flymake)

(defcustom sideline-flymake-error-prefix ""
  "Prefix for error sideline."
  :type 'string
  :group 'sideline-flymake)

(defcustom sideline-flymake-warning-prefix ""
  "Prefix for warning sideline."
  :type 'string
  :group 'sideline-flymake)

(defcustom sideline-flymake-note-prefix ""
  "Prefix for note sideline."
  :type 'string
  :group 'sideline-flymake)

;;
;;; Core

;;;###autoload
(defun sideline-flymake (command)
  "Backend for sideline.

Argument COMMAND is required in sideline backend."
  (cl-case command
    (`candidates (cons :async #'sideline-flymake--show-errors))))

(defun sideline-flymake--get-errors ()
  "Return flymake errors."
  (cl-case sideline-flymake-display-mode
    (`point (if-let* ((bounds (bounds-of-thing-at-point 'symbol)))
                (flymake-diagnostics (car bounds) (cdr bounds))
              (flymake-diagnostics (point))))
    (`line (flymake-diagnostics (line-beginning-position) (line-end-position)))
    (t (user-error "Invalid value of `sideline-flymake-display-mode': %s"
                   sideline-flymake-display-mode))))

(defun sideline-flymake--get-level (type)
  "Return level symbol by TYPE."
  (cl-case type
    (`eglot-error   'error)
    (`eglot-warning 'warning)
    (:error         'error)
    (:warning       'warning)
    (t              'note)))

(defun sideline-flymake--show-errors (callback &rest _)
  "Execute CALLBACK to display with sideline."
  (when flymake-mode
    (when-let* ((errors (sideline-flymake--get-errors)))
      (dolist (err errors)
        (let* ((text (flymake-diagnostic-text err))
               (lines (split-string text "\n"))
               (lines (butlast lines (- (length lines) sideline-flymake-max-lines)))
               (text (mapconcat #'identity lines "\n"))
               (type (flymake-diagnostic-type err))
               (type (sideline-flymake--get-level type))
               (backend (flymake-diagnostic-backend err))
               (face (pcase type
                       (`error   'sideline-flymake-error)
                       (`warning 'sideline-flymake-warning)
                       (`note    'sideline-flymake-note)))
               (prefix (pcase type
                         (`error   sideline-flymake-error-prefix)
                         (`warning sideline-flymake-warning-prefix)
                         (`note sideline-flymake-note-prefix)))
               (text (concat prefix text)))
          (when sideline-flymake-show-backend-name
            (setq text (format "%s (%s)" text backend)))
          (add-face-text-property 0 (length text) face nil text)
          (funcall callback (list text)))))))

(provide 'sideline-flymake)
;;; sideline-flymake.el ends heer