From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.devel Subject: Re: add keyword search and display in details for list-packages Date: Mon, 25 Nov 2013 22:27:34 -0500 Message-ID: References: <87wql1w6io.fsf@flea.lifelogs.com> <87r4axu4dm.fsf@flea.lifelogs.com> <87k3gorvs4.fsf@flea.lifelogs.com> <87eh6adbqr.fsf@flea.lifelogs.com> <87a9gyc8pp.fsf_-_@flea.lifelogs.com> <87txf5butd.fsf@flea.lifelogs.com> <87y54g8o63.fsf@flea.lifelogs.com> <87fvqk36n5.fsf@flea.lifelogs.com> <87li0c1nyk.fsf@flea.lifelogs.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1385436464 20593 80.91.229.3 (26 Nov 2013 03:27:44 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 26 Nov 2013 03:27:44 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Nov 26 04:27:50 2013 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Vl9JV-00028r-JS for ged-emacs-devel@m.gmane.org; Tue, 26 Nov 2013 04:27:49 +0100 Original-Received: from localhost ([::1]:56142 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vl9JV-0006iq-47 for ged-emacs-devel@m.gmane.org; Mon, 25 Nov 2013 22:27:49 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41248) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vl9JM-0006hh-Vd for emacs-devel@gnu.org; Mon, 25 Nov 2013 22:27:46 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Vl9JH-00061T-5T for emacs-devel@gnu.org; Mon, 25 Nov 2013 22:27:40 -0500 Original-Received: from ironport2-out.teksavvy.com ([206.248.154.181]:5120) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vl9JH-00061P-1A for emacs-devel@gnu.org; Mon, 25 Nov 2013 22:27:35 -0500 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: Av4EABK/CFFFxIQK/2dsb2JhbABEvw4Xc4IeAQEEAVYoCws0EhQYDYhCBgzBIY1hTYJcA4hhjkiNUYFegmor X-IPAS-Result: Av4EABK/CFFFxIQK/2dsb2JhbABEvw4Xc4IeAQEEAVYoCws0EhQYDYhCBgzBIY1hTYJcA4hhjkiNUYFegmor X-IronPort-AV: E=Sophos;i="4.84,565,1355115600"; d="scan'208";a="40404766" Original-Received: from 69-196-132-10.dsl.teksavvy.com (HELO pastel.home) ([69.196.132.10]) by ironport2-out.teksavvy.com with ESMTP/TLS/ADH-AES256-SHA; 25 Nov 2013 22:27:34 -0500 Original-Received: by pastel.home (Postfix, from userid 20848) id 4F33060A40; Mon, 25 Nov 2013 22:27:34 -0500 (EST) In-Reply-To: <87li0c1nyk.fsf@flea.lifelogs.com> (Ted Zlatanov's message of "Mon, 25 Nov 2013 10:49:07 -0500") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 206.248.154.181 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:165737 Archived-At: > diff --git a/admin/archive-contents.el b/admin/archive-contents.el > index 7ee9c1c..8fee66b 100644 > --- a/admin/archive-contents.el > +++ b/admin/archive-contents.el > @@ -187,13 +187,18 @@ Otherwise, return nil." > (requires-str (lm-header "package-requires")) > (pt (lm-header "package-type")) > (simple (if pt (equal pt "simple") (= (length files) 1))) > + (keywords (split-string (or (lm-header "keywords") "") > + "," t "[ ]+")) > (url (or (lm-header "url") > (format "http://elpa.gnu.org/packages/%s.html" pkg))) > (req > (if requires-str > (mapcar 'archive--convert-require > (car (read-from-string requires-str)))))) > - (list simple version description req (list (cons :url url))))))) > + (list simple version description req > + ;; extra parameters > + (list (cons :url url) > + (cons :keywords keywords))))))) > ((not (file-exists-p pkg-file)) > (error "Can find single file nor package desc file in %s" dir))))) Looks good, please commit it, and I'll install it into elpa.gnu.org. Stefan