actual final changes and get rid of junk in lisp dir

actually works fine

1 files changed, 0 insertions, 158 deletions

diff --git a/.config/emacs/lisp/sideline-flymake.el b/.config/emacs/lisp/sideline-flymake.el
deleted file mode 100644
index bd22e5c..0000000
--- a/.config/emacs/lisp/sideline-flymake.el
+++ /dev/null
@@ -1,158 +0,0 @@
-;;; 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