diff options
| author | Alex Kost <alezost@gmail.com> | 2015-08-12 14:36:41 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-08-30 18:26:02 +0300 |
| commit | 056b5ceffce3d20b603567a8ce641ae8975f8d62 (patch) | |
| tree | 019d5b5600eabcbb58e51596b21ae22d699d9b1d | |
| parent | 521a11e0a68b54bbacbb4912d622a29cfc86c153 (diff) | |
| download | guix-056b5ceffce3d20b603567a8ce641ae8975f8d62.tar.gz | |
emacs: Add 'guix-lint-checker-names'.
* emacs/guix-main.scm: Use (guix scripts lint) module. (lint-checker-names): New procedure. * emacs/guix-base.el (guix-lint-checker-names): New function.
| -rw-r--r-- | emacs/guix-base.el | 9 | ||||
| -rw-r--r-- | emacs/guix-main.scm | 12 |
2 files changed, 19 insertions, 2 deletions
diff --git a/emacs/guix-base.el b/emacs/guix-base.el index 76974e12ab..daf15bf45b 100644 --- a/emacs/guix-base.el +++ b/emacs/guix-base.el @@ -1,6 +1,6 @@ ;;; guix-base.el --- Common definitions -*- lexical-binding: t -*- -;; Copyright © 2014 Alex Kost <alezost@gmail.com> +;; Copyright © 2014, 2015 Alex Kost <alezost@gmail.com> ;; This file is part of GNU Guix. @@ -181,6 +181,13 @@ If PATH is relative, it is considered to be relative to (message "Couldn't find package location.")))) +;;; Receivable lists of packages, lint checkers, etc. + +(guix-memoized-defun guix-lint-checker-names () + "Return a list of names of available lint checkers." + (guix-eval-read (guix-make-guile-expression 'lint-checker-names))) + + ;;; Buffers and auto updating. (defcustom guix-update-after-operation 'current diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index e0dc683d88..2c5b0baa65 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014 Alex Kost <alezost@gmail.com> +;;; Copyright © 2014, 2015 Alex Kost <alezost@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,6 +57,7 @@ (guix licenses) (guix utils) (guix ui) + (guix scripts lint) (guix scripts package) (guix scripts pull) (gnu packages)) @@ -927,3 +928,12 @@ GENERATIONS is a list of generation numbers." (build-derivations store derivations)) (format #t "The source store path: ~a~%" (package-source-derivation->store-path derivation)))))) + + +;;; Lists of packages, lint checkers, etc. + +(define (lint-checker-names) + "Return a list of names of available lint checkers." + (map (lambda (checker) + (symbol->string (lint-checker-name checker))) + %checkers)) |