From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Mattias =?UTF-8?Q?Engdeg=C3=A5rd?= Newsgroups: gmane.emacs.bugs Subject: bug#35331: [PATCH] Neater html table of old versions in ELPA Date: Mon, 13 May 2019 15:42:35 +0200 Message-ID: <299F3CF6-3DA6-4B95-BFEB-B462875FBFBA@acm.org> References: <17FAA112-7D1A-49F1-8156-95FED817E370@acm.org> <87lg03pcgs.fsf@tcd.ie> <491EC399-F6F1-4512-8926-69BA056B73A1@acm.org> Mime-Version: 1.0 (Mac OS X Mail 12.4 \(3445.104.8\)) Content-Type: multipart/mixed; boundary="Apple-Mail=_529B393A-EE77-45FF-AAA8-51345017F83A" Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="149581"; mail-complaints-to="usenet@blaine.gmane.org" Cc: 35331@debbugs.gnu.org To: "Basil L. Contovounesios" Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon May 13 15:54:18 2019 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.89) (envelope-from ) id 1hQBPF-000cn0-Ey for geb-bug-gnu-emacs@m.gmane.org; Mon, 13 May 2019 15:54:17 +0200 Original-Received: from localhost ([127.0.0.1]:57709 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hQBPE-00060k-C3 for geb-bug-gnu-emacs@m.gmane.org; Mon, 13 May 2019 09:54:16 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:59842) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hQBM6-0003HA-9W for bug-gnu-emacs@gnu.org; Mon, 13 May 2019 09:51:03 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hQBEN-0003n8-AL for bug-gnu-emacs@gnu.org; Mon, 13 May 2019 09:43:04 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:59161) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hQBEM-0003jG-Ee for bug-gnu-emacs@gnu.org; Mon, 13 May 2019 09:43:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hQBEM-00026i-8t for bug-gnu-emacs@gnu.org; Mon, 13 May 2019 09:43:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Mattias =?UTF-8?Q?Engdeg=C3=A5rd?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 13 May 2019 13:43:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 35331 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 35331-submit@debbugs.gnu.org id=B35331.15577549638075 (code B ref 35331); Mon, 13 May 2019 13:43:02 +0000 Original-Received: (at 35331) by debbugs.gnu.org; 13 May 2019 13:42:43 +0000 Original-Received: from localhost ([127.0.0.1]:44472 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hQBE3-00026B-7P for submit@debbugs.gnu.org; Mon, 13 May 2019 09:42:43 -0400 Original-Received: from mail236c50.megamailservers.eu ([91.136.10.246]:43478 helo=mail56c50.megamailservers.eu) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hQBE0-000260-BD for 35331@debbugs.gnu.org; Mon, 13 May 2019 09:42:41 -0400 X-Authenticated-User: mattiase@bredband.net DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=megamailservers.eu; s=maildub; t=1557754958; bh=rxuQgJcpRq341PdSyFG8zrmZfIK04lhEFDs+I5pIVxA=; h=From:Subject:Date:In-Reply-To:Cc:To:References:From; b=L7/2Gpulo4m93VM1vUilVV07ZzSyXuLGmZjHAQdOKlkJjUavlAdTpU64YdfXU0zoi 6oIuSj7PdQppbXtaBi/H9HgyQHeYEni3CJC5IKAEG2ll4hOhorHl2kfF0pyvfPrF2m yuG9Bq6niVlhSQR6Si4b3MOiIr0MTsvLhvbhnjwo= Feedback-ID: mattiase@acm.or Original-Received: from [192.168.1.64] (c-e636e253.032-75-73746f71.bbcust.telenor.se [83.226.54.230]) (authenticated bits=0) by mail56c50.megamailservers.eu (8.14.9/8.13.1) with ESMTP id x4DDgapZ023980; Mon, 13 May 2019 13:42:37 +0000 In-Reply-To: <491EC399-F6F1-4512-8926-69BA056B73A1@acm.org> X-Mailer: Apple Mail (2.3445.104.8) X-CTCH-RefID: str=0001.0A0B0202.5CD9744E.0044, ss=1, re=0.000, recu=0.000, reip=0.000, cl=1, cld=1, fgs=0 X-CTCH-VOD: Unknown X-CTCH-Spam: Unknown X-CTCH-Score: 0.000 X-CTCH-Flags: 0 X-CTCH-ScoreCust: 0.000 X-CSC: 0 X-CHA: v=2.3 cv=J7GEEjvS c=1 sm=1 tr=0 a=M+GU/qJco4WXjv8D6jB2IA==:117 a=M+GU/qJco4WXjv8D6jB2IA==:17 a=jpOVt7BSZ2e4Z31A5e1TngXxSK0=:19 a=g8R4woVSDoibBdHdh5EA:9 a=CjuIK1q_8ugA:10 a=SDAtDghFQh5gOl7n7V0A:9 a=B2y7HmGcmWMA:10 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:159177 Archived-At: --Apple-Mail=_529B393A-EE77-45FF-AAA8-51345017F83A Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=us-ascii > 21 apr. 2019 kl. 18.09 skrev Basil L. Contovounesios : >> >> (dolist (file (sort files (lambda (f1 f2) >> (version< (car f2) (car f1))))) >> ...) Revised patch. --Apple-Mail=_529B393A-EE77-45FF-AAA8-51345017F83A Content-Disposition: attachment; filename=0001-Neater-HTML-table-of-old-package-versions-bug-35331.patch Content-Type: application/octet-stream; x-unix-mode=0644; name="0001-Neater-HTML-table-of-old-package-versions-bug-35331.patch" Content-Transfer-Encoding: quoted-printable =46rom=20f9a3ca2c0e76b93394bf20e7dba9912376da8f4e=20Mon=20Sep=2017=20= 00:00:00=202001=0AFrom:=20=3D?UTF-8?q?Mattias=3D20Engdeg=3DC3=3DA5rd?=3D=20= =0ADate:=20Fri,=2019=20Apr=202019=2023:27:47=20+0200=0A= Subject:=20[PATCH]=20Neater=20HTML=20table=20of=20old=20package=20= versions=20(bug#35331)=0A=0A*=20admin/archive-contents.el=20= (archive--html-bytes-format):=20Use=20IEC=20prefixes.=0A= (archive--html-make-pkg):=20Sort=20old=20versions=20in=20= newest-to-oldest=20order.=0A---=0A=20admin/archive-contents.el=20|=2013=20= ++++++-------=0A=201=20file=20changed,=206=20insertions(+),=207=20= deletions(-)=0A=0Adiff=20--git=20a/admin/archive-contents.el=20= b/admin/archive-contents.el=0Aindex=20de444e381..c4c2e5af1=20100644=0A= ---=20a/admin/archive-contents.el=0A+++=20b/admin/archive-contents.el=0A= @@=20-387,16=20+387,14=20@@=20Rename=20DIR/=20to=20PKG-VERS/,=20and=20= return=20the=20descriptor."=0A=20=0A=20(defun=20= archive--html-bytes-format=20(bytes)=20;Aka=20memory-usage-format.=0A=20=20= =20(setq=20bytes=20(/=20bytes=201024.0))=0A-=20=20(let=20((units=20'(;;=20= "B"=0A-=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20"kB"=20"MB"=20= "GB"=20"TB")))=0A+=20=20(let=20((units=20'("KiB"=20"MiB"=20"GiB"=20= "TiB")))=0A=20=20=20=20=20(while=20(>=3D=20bytes=201024)=0A=20=20=20=20=20= =20=20(setq=20bytes=20(/=20bytes=201024.0))=0A=20=20=20=20=20=20=20(setq=20= units=20(cdr=20units)))=0A=20=20=20=20=20(cond=0A-=20=20=20=20=20;;=20= ((integerp=20bytes)=20(format=20"%4d%s"=20bytes=20(car=20units)))=0A-=20=20= =20=20=20((>=3D=20bytes=20100)=20(format=20"%4.0f%s"=20bytes=20(car=20= units)))=0A-=20=20=20=20=20((>=3D=20bytes=2010)=20(format=20"%4.1f%s"=20= bytes=20(car=20units)))=0A-=20=20=20=20=20(t=20(format=20"%4.2f%s"=20= bytes=20(car=20units))))))=0A+=20=20=20=20=20((>=3D=20bytes=20100)=20= (format=20"%4.0f %s"=20bytes=20(car=20units)))=0A+=20=20=20=20=20= ((>=3D=20bytes=2010)=20(format=20"%4.1f %s"=20bytes=20(car=20= units)))=0A+=20=20=20=20=20(t=20(format=20"%4.2f %s"=20bytes=20(car=20= units))))))=0A=20=0A=20(defun=20archive--get-prop=20(prop=20name=20= srcdir=20mainsrcfile)=0A=20=20=20(let=20((kprop=20(intern=20(format=20= ":%s"=20(downcase=20prop)))))=0A@@=20-536,7=20+534,8=20@@=20Rename=20= DIR/=20to=20PKG-VERS/,=20and=20return=20the=20descriptor."=0A=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20=20=20"\n\n")))=0A=20=20=20=20= =20=20=20(unless=20(<=20(length=20files)=20(if=20(zerop=20(length=20= latest))=201=202))=0A=20=20=20=20=20=20=20=20=20(insert=20(format=20= "

Old=20versions

\n"))=0A-=20=20=20=20=20=20=20=20(dolist=20= (file=20files)=0A+=20=20=20=20=20=20=20=20(dolist=20(file=0A+=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20(sort=20files=20(lambda=20(f1=20= f2)=20(version<=20(car=20f2)=20(car=20f1)))))=0A=20=20=20=20=20=20=20=20=20= =20=20(unless=20(equal=20(pop=20file)=20latest)=0A=20=20=20=20=20=20=20=20= =20=20=20=20=20(let=20((attrs=20(file-attributes=20file)))=0A=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20(insert=20(format=20"\n"=0A--=20=0A2.20.1=20(Apple=20= Git-117)=0A=0A= --Apple-Mail=_529B393A-EE77-45FF-AAA8-51345017F83A--
%s%s%s