This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(define-module (my packages) | |
#:use-module ((guix licenses) #:prefix license:) | |
#:use-module (gnu packages linux) | |
#:use-module (guix build-system trivial) | |
#:use-module (gnu) | |
#:use-module (guix download) | |
#:use-module (guix git-download) | |
#:use-module (guix packages)) | |
(define (linux-nonfree-urls version) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defvar-local +lsp--flycheck-eglot--current-errors nil) | |
(defun +lsp--flycheck-eglot-init (checker callback) | |
"CHECKER is the checker (eglot). | |
CALLBACK is the function that we need to call when we are done, on all the errors." | |
(eglot-flymake-backend #'+lsp--flycheck-eglot--on-diagnostics) | |
(funcall callback 'finished +lsp--flycheck-eglot--current-errors)) | |
(defun +lsp--flycheck-eglot--on-diagnostics (diags &rest _) | |
(cl-labels |