[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/20: emacs: Add 'guix-lint-checker-names'.
From: |
Alex Kost |
Subject: |
02/20: emacs: Add 'guix-lint-checker-names'. |
Date: |
Tue, 18 Aug 2015 09:41:08 +0000 |
alezost pushed a commit to branch wip-emacs-popup-ui
in repository guix.
commit 435035df40fc19652639fbae6d32d54f2249417e
Author: Alex Kost <address@hidden>
Date: Wed Aug 12 14:36:41 2015 +0300
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 variable and function.
---
emacs/guix-base.el | 15 ++++++++++++++-
emacs/guix-main.scm | 12 +++++++++++-
2 files changed, 25 insertions(+), 2 deletions(-)
diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index fe89584..bfb535e 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 <address@hidden>
+;; Copyright © 2014, 2015 Alex Kost <address@hidden>
;; This file is part of GNU Guix.
@@ -181,6 +181,19 @@ If PATH is relative, it is considered to be relative to
(message "Couldn't find package location."))))
+;;; Receivable lists of packages, lint checkers, etc.
+
+(defvar guix-lint-checker-names nil
+ "List of names of available lint checkers.")
+
+(defun guix-lint-checker-names ()
+ "Return a list of names of available lint checkers."
+ (or guix-lint-checker-names
+ (setq guix-lint-checker-names
+ (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 e0dc683..2c5b0ba 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 <address@hidden>
+;;; Copyright © 2014, 2015 Alex Kost <address@hidden>
;;;
;;; 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))
- branch wip-emacs-popup-ui created (now 2392984), Alex Kost, 2015/08/18
- 01/20: guix lint: Export checkers and <lint-checker> accessors., Alex Kost, 2015/08/18
- 03/20: emacs: Add 'guix-package-names'., Alex Kost, 2015/08/18
- 05/20: emacs: Add and use 'guix-concat-strings'., Alex Kost, 2015/08/18
- 04/20: emacs: Add and use 'guix-while-search'., Alex Kost, 2015/08/18
- 06/20: emacs: Add utils to make symbol and string for guix command., Alex Kost, 2015/08/18
- 08/20: emacs: Add 'guix-any'., Alex Kost, 2015/08/18
- 09/20: emacs: Add 'guix-memoized-defalias' macro., Alex Kost, 2015/08/18
- 13/20: ui: Add 'run-guix'., Alex Kost, 2015/08/18
- 02/20: emacs: Add 'guix-lint-checker-names'.,
Alex Kost <=
- 14/20: emacs: Add code to run guix command in REPL., Alex Kost, 2015/08/18
- 10/20: emacs: Add help variables., Alex Kost, 2015/08/18
- 07/20: emacs: Add utils to copy guix command., Alex Kost, 2015/08/18
- 15/20: emacs: Add code to run guix command in shell., Alex Kost, 2015/08/18
- 20/20: emacs: Use popup interface instead 'guix-pull' command., Alex Kost, 2015/08/18
- 11/20: emacs: Add minibuffer readers., Alex Kost, 2015/08/18
- 16/20: doc: Reorganize "Emacs Interface" node., Alex Kost, 2015/08/18
- 17/20: emacs: Add "guix-popup.el"., Alex Kost, 2015/08/18
- 12/20: emacs: Add and use alist accessors., Alex Kost, 2015/08/18
- 19/20: emacs: Use prompt for packages instead popup for edit action., Alex Kost, 2015/08/18