From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 3/4] emacs: Use (guix scripts lint) only when needed. Date: Fri, 1 Apr 2016 11:06:41 +0300 Message-ID: <1459498002-3872-4-git-send-email-alezost@gmail.com> References: <1459498002-3872-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47997) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1alu6l-000807-GQ for guix-devel@gnu.org; Fri, 01 Apr 2016 04:07:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1alu6f-0000Sd-US for guix-devel@gnu.org; Fri, 01 Apr 2016 04:07:07 -0400 Received: from mail-lb0-x243.google.com ([2a00:1450:4010:c04::243]:36570) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1alu6f-0000SY-MG for guix-devel@gnu.org; Fri, 01 Apr 2016 04:07:01 -0400 Received: by mail-lb0-x243.google.com with SMTP id q4so8740908lbq.3 for ; Fri, 01 Apr 2016 01:07:01 -0700 (PDT) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id e66sm1974222lfg.23.2016.04.01.01.07.00 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Fri, 01 Apr 2016 01:07:00 -0700 (PDT) In-Reply-To: <1459498002-3872-1-git-send-email-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * emacs/guix-main.scm: Do not use (guix scripts pull) module. (lint-checker-names): Adjust to use it. --- emacs/guix-main.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index eb79adb..925d2b2 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -58,7 +58,6 @@ (guix licenses) (guix utils) (guix ui) - (guix scripts lint) (guix scripts package) (gnu packages) (gnu system)) @@ -1022,8 +1021,9 @@ Return #t if the shell command was executed successfully." (define (lint-checker-names) "Return a list of names of available lint checkers." (map (lambda (checker) - (symbol->string (lint-checker-name checker))) - %checkers)) + (symbol->string ((@ (guix scripts lint) lint-checker-name) + checker))) + (@ (guix scripts lint) %checkers))) (define (package-names) "Return a list of names of available packages." -- 2.7.3