guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

emacs: Add 'guix-lint-checker-names'.

Browse source 
* emacs/guix-main.scm: Use (guix scripts lint) module.
  (lint-checker-names): New procedure.
* emacs/guix-base.el (guix-lint-checker-names): New function.
This commit is contained in:
Alex Kost 2015-08-12 14:36:41 +03:00
parent 521a11e0a6
commit 056b5ceffc
2 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/guix-base.el
View file

@ -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.
@ -180,6 +180,13 @@ If PATH is relative, it is considered to be relative to
(guix-find-location loc)
(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.

12
emacs/guix-main.scm
View file

@ -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))