123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131 |
- (require 'bui)
- (require 'guix nil t)
- (require 'guix-repl)
- (require 'guix-repl)
- (require 'guix-guile)
- (require 'guix-utils)
- (require 'guix-read)
- (require 'guix-package)
- (guix-define-groups lint-checker)
- (bui-define-entry-type guix-lint-checker
- :message-function 'guix-lint-checker-message)
- (defun guix-lint-checker-get-entries (search-type &rest args)
- "Receive 'lint-checker' entries.
- SEARCH-TYPE may be one of the following symbols: `all', `local',
- `id', `name'."
- (guix-eval-read
- (apply #'guix-make-guile-expression
- 'lint-checker-sexps search-type args)))
- (defun guix-lint-checker-get-display (search-type &rest args)
- "Search for lint checkers and show results."
- (apply #'bui-list-get-display-entries
- 'guix-lint-checker search-type args))
- (defun guix-lint-checker-message (entries search-type &rest args)
- "Display a message after showing lint-checker ENTRIES."
- (when (null entries)
- (cond
- ((memq search-type '(all local))
- (message "Oops, lint checkers are not found for some reason."))
- ((memq search-type '(id name))
- (message "Lint checker '%s' not found." (car args))))))
- (bui-define-interface guix-lint-checker list
- :mode-name "Lint-Checker-List"
- :buffer-name "*Guix Lint Checkers*"
- :get-entries-function 'guix-lint-checker-get-entries
- :describe-function 'guix-lint-checker-list-describe
- :format '((name nil 30 t)
- (type nil 10 t)
- (description nil 50 t))
- :hint 'guix-lint-checker-list-hint)
- (let ((map guix-lint-checker-list-mode-map))
- (define-key map (kbd "i") nil)
- (define-key map (kbd "RET") nil)
- (define-key map (kbd "L") 'guix-lint-checker-list-lint))
- (defvar guix-lint-checker-list-default-hint
- '(("\\[guix-lint-checker-list-lint]") " lint packages;\n"))
- (defun guix-lint-checker-list-hint ()
- (bui-format-hints
- guix-lint-checker-list-default-hint
- (bui-list-hint)
- bui-common-hint))
- (defun guix-lint-checker-marked-or-current ()
- "Return names (strings) of the marked lint checkers."
- (mapcar #'symbol-name (bui-list-marked-or-current)))
- (defun guix-lint-checker-list-lint (packages)
- "Lint PACKAGES with the marked lint checkers.
- If there are no marked checkers, use checker on the current line.
- Interactively, prompt for PACKAGES."
- (interactive
- (list (guix-read-package-names "Lint package,s: ")))
- (guix-package-lint packages
- (guix-lint-checker-marked-or-current)))
- (defvar guix-lint-checker-types
- '(all local network)
- "List of types used by `guix-lint-checkers'.")
- (defun guix-lint-checker-read-type ()
- "Read lint checker type from minibuffer."
- (let ((type (guix-completing-read
- "Lint checker type: "
- (mapcar #'symbol-name
- guix-lint-checker-types))))
- (and type (intern type))))
- (defun guix-lint-checkers (&optional type)
- "Display lint checkers of the Guix packages.
- TYPE should be one of the following symbols: `all', `local', `network'.
- Interactively, with prefix argument, prompt for TYPE."
- (interactive
- (list (and current-prefix-arg
- (guix-lint-checker-read-type))))
- (guix-lint-checker-get-display (or type 'all)))
- (provide 'guix-ui-lint-checker)
|