me/guix
Archived
1
0
Fork 0
Code 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 -*- ;;; 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. ;; 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) (guix-find-location loc)
(message "Couldn't find package location.")))) (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. ;;; Buffers and auto updating.

12
emacs/guix-main.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -57,6 +57,7 @@
(guix licenses) (guix licenses)
(guix utils) (guix utils)
(guix ui) (guix ui)
(guix scripts lint)
(guix scripts package) (guix scripts package)
(guix scripts pull) (guix scripts pull)
(gnu packages)) (gnu packages))
@ -927,3 +928,12 @@ GENERATIONS is a list of generation numbers."
(build-derivations store derivations)) (build-derivations store derivations))
(format #t "The source store path: ~a~%" (format #t "The source store path: ~a~%"
(package-source-derivation->store-path derivation)))))) (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))