From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH] emacs: Report about "search paths" after operation. Date: Wed, 27 May 2015 21:15:27 +0300 Message-ID: <87d21lvqdc.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:33127) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Yxfra-000309-9w for guix-devel@gnu.org; Wed, 27 May 2015 14:15:38 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YxfrW-0000r7-Ss for guix-devel@gnu.org; Wed, 27 May 2015 14:15:34 -0400 Received: from mail-lb0-x230.google.com ([2a00:1450:4010:c04::230]:33278) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YxfrW-0000qt-K7 for guix-devel@gnu.org; Wed, 27 May 2015 14:15:30 -0400 Received: by lbcue7 with SMTP id ue7so13127255lbc.0 for ; Wed, 27 May 2015 11:15:29 -0700 (PDT) Received: from leviafan ([217.107.192.160]) by mx.google.com with ESMTPSA id xs12sm3998179lac.16.2015.05.27.11.15.28 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Wed, 27 May 2015 11:15:28 -0700 (PDT) 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 --=-=-= Content-Type: text/plain Missed output :-) --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-emacs-Report-about-search-paths-after-operation.patch >From f2e20ad5a86ba1d50e53d32f585d71ec17482b0b Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Wed, 27 May 2015 21:08:31 +0300 Subject: [PATCH] emacs: Report about "search paths" after operation. * guix/scripts/package.scm: Export 'display-search-paths'. * emacs/guix-main.scm (process-package-actions): Use it. --- emacs/guix-main.scm | 3 ++- guix/scripts/package.scm | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index b1662fb..c6e4a82 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -878,7 +878,8 @@ OUTPUTS is a list of package outputs (may be an empty list)." (format #t (N_ "~a package in profile~%" "~a packages in profile~%" count) - count)))))))))) + count) + (display-search-paths entries profile)))))))))) (define (delete-generations* profile generations) "Delete GENERATIONS from PROFILE. diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 9da6b9e..0df822e 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -53,6 +53,7 @@ roll-back delete-generation delete-generations + display-search-paths guix-package)) (define %store -- 2.4.0 --=-=-=--