Skip to content

Commit

Permalink
feat: use flymake-popon instead of sideline-flymake
Browse files Browse the repository at this point in the history
  • Loading branch information
seagle0128 committed Nov 20, 2024
1 parent 66e2ed1 commit b2b02d8
Showing 1 changed file with 8 additions and 10 deletions.
18 changes: 8 additions & 10 deletions lisp/init-check.el
Original file line number Diff line number Diff line change
Expand Up @@ -36,8 +36,7 @@
:bind ("C-c f" . flymake-show-buffer-diagnostics)
:hook (prog-mode . flymake-mode)
:init (setq flymake-no-changes-timeout nil
flymake-fringe-indicator-position 'right-fringe
flymake-margin-indicator-position 'right-margin)
flymake-fringe-indicator-position 'right-fringe)
:config
;; Check elisp with `load-path'
(defun my-elisp-flymake-byte-compile (fn &rest args)
Expand All @@ -47,15 +46,14 @@
(apply fn args)))
(advice-add 'elisp-flymake-byte-compile :around #'my-elisp-flymake-byte-compile))

(use-package sideline-flymake
:diminish sideline-mode
(use-package flymake-popon
:diminish
:custom-face
(sideline-flymake-error ((t (:height 0.85 :italic t))))
(sideline-flymake-warning ((t (:height 0.85 :italic t))))
(sideline-flymake-success ((t (:height 0.85 :italic t))))
:hook (flymake-mode . sideline-mode)
:init (setq sideline-flymake-display-mode 'point
sideline-backends-right '(sideline-flymake)))
(flymake-popon-posframe-border ((t :foreground ,(face-background 'region))))
:hook (flymake-mode . flymake-popon-mode)
:init (setq flymake-popon-width 70
flymake-popon-posframe-border-width 1
flymake-popon-method (if (childframe-workable-p) 'posframe 'popon)))

(provide 'init-check)

Expand Down

0 comments on commit b2b02d8

Please sign in to comment.