summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-08-12 14:36:41 +0300
committerAlex Kost <alezost@gmail.com>2015-08-30 18:26:02 +0300
commit056b5ceffce3d20b603567a8ce641ae8975f8d62 (patch)
tree019d5b5600eabcbb58e51596b21ae22d699d9b1d
parent521a11e0a68b54bbacbb4912d622a29cfc86c153 (diff)
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.el9
-rw-r--r--emacs/guix-main.scm12
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))