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: Fri, 19 Apr 2019 23:36:29 +0200 Message-ID: <17FAA112-7D1A-49F1-8156-95FED817E370@acm.org> Mime-Version: 1.0 (Mac OS X Mail 12.4 \(3445.104.8\)) Content-Type: multipart/mixed; boundary="Apple-Mail=_1EEA3491-09E2-4B02-A506-9C687152C984" Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="172230"; mail-complaints-to="usenet@blaine.gmane.org" To: 35331@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Apr 19 23:37:14 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 1hHbC5-000ij3-Ti for geb-bug-gnu-emacs@m.gmane.org; Fri, 19 Apr 2019 23:37:14 +0200 Original-Received: from localhost ([127.0.0.1]:33585 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hHbC4-0004Py-D7 for geb-bug-gnu-emacs@m.gmane.org; Fri, 19 Apr 2019 17:37:12 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:57100) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hHbBv-0004Pr-9L for bug-gnu-emacs@gnu.org; Fri, 19 Apr 2019 17:37:04 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hHbBu-0001fW-GF for bug-gnu-emacs@gnu.org; Fri, 19 Apr 2019 17:37:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:59516) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hHbBu-0001fP-CQ for bug-gnu-emacs@gnu.org; Fri, 19 Apr 2019 17:37:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hHbBu-0001Lk-7g for bug-gnu-emacs@gnu.org; Fri, 19 Apr 2019 17:37: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: Fri, 19 Apr 2019 21:37:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 35331 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.15557098045163 (code B ref -1); Fri, 19 Apr 2019 21:37:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 19 Apr 2019 21:36:44 +0000 Original-Received: from localhost ([127.0.0.1]:44827 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hHbBb-0001LD-R3 for submit@debbugs.gnu.org; Fri, 19 Apr 2019 17:36:44 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:42640) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hHbBZ-0001Kz-ES for submit@debbugs.gnu.org; Fri, 19 Apr 2019 17:36:42 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:39144) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hHbBU-0001Vn-7N for submit@debbugs.gnu.org; Fri, 19 Apr 2019 17:36:36 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:57020) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hHbBT-0004PT-AQ for bug-gnu-emacs@gnu.org; Fri, 19 Apr 2019 17:36:36 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hHbBS-0001VI-Ck for bug-gnu-emacs@gnu.org; Fri, 19 Apr 2019 17:36:35 -0400 Original-Received: from mail151c50.megamailservers.eu ([91.136.10.161]:55844 helo=mail50c50.megamailservers.eu) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hHbBR-0001UL-OB for bug-gnu-emacs@gnu.org; Fri, 19 Apr 2019 17:36:34 -0400 X-Authenticated-User: mattiase@bredband.net DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=megamailservers.eu; s=maildub; t=1555709791; bh=YfKWsnS8m/Z47ruJppw8K0QPXv7dhlqmi/2jg9NWdQo=; h=From:Subject:Date:To:From; b=m+TWUN90ukJBBoaV4xkhTButhBQTVI3YCgJyCM9QlvxvI8TP1VZ2RxkpCmhFQTJfD rwrzae2dBGvZA4KTRI9K8OGAJAFougGkXjNsclyh36oL6FzUEcOXlHttUzAuzVfynG aKxYBt/RP4JC0rVjwQfD8K65celmWcPkDzy8Oqzs= 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 mail50c50.megamailservers.eu (8.14.9/8.13.1) with ESMTP id x3JLaTOh005423 for ; Fri, 19 Apr 2019 21:36:31 +0000 X-Mailer: Apple Mail (2.3445.104.8) X-CTCH-RefID: str=0001.0A0B0202.5CBA3F5F.002A, 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=NJb7BXyg c=1 sm=1 tr=0 a=M+GU/qJco4WXjv8D6jB2IA==:117 a=M+GU/qJco4WXjv8D6jB2IA==:17 a=P7s68tA8fzL4GgTnqE0A:9 a=CjuIK1q_8ugA:10 a=SDAtDghFQh5gOl7n7V0A:9 a=B2y7HmGcmWMA:10 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x (no timestamps) [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x 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:157872 Archived-At: --Apple-Mail=_1EEA3491-09E2-4B02-A506-9C687152C984 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=us-ascii This patch sorts the "old versions" table for each ELPA package in = reverse chronological order, and uses correct unit prefixes. --Apple-Mail=_1EEA3491-09E2-4B02-A506-9C687152C984 Content-Disposition: attachment; filename=0001-Neater-html-table-of-old-versions.patch Content-Type: application/octet-stream; x-unix-mode=0644; name="0001-Neater-html-table-of-old-versions.patch" Content-Transfer-Encoding: quoted-printable =46rom=205fecea5da0cd87f73d77a78a80496f8aaf4a62dc=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=20versions=0A=0A*=20= admin/archive-contents.el=20(archive--html-bytes-format):=20Use=20IEC=20= prefixes.=0A(archive--html-make-pkg):=20Sort=20old=20versions=20in=20= newest-to-oldest=20order.=0A---=0A=20admin/archive-contents.el=20|=2015=20= +++++++++------=0A=201=20file=20changed,=209=20insertions(+),=206=20= deletions(-)=0A=0Adiff=20--git=20a/admin/archive-contents.el=20= b/admin/archive-contents.el=0Aindex=2030245437f..c7cac6e40=20100644=0A= ---=20a/admin/archive-contents.el=0A+++=20b/admin/archive-contents.el=0A= @@=20-388,15=20+388,15=20@@=20Rename=20DIR/=20to=20PKG-VERS/,=20and=20= return=20the=20descriptor."=0A=20(defun=20archive--html-bytes-format=20= (bytes)=20;Aka=20memory-usage-format.=0A=20=20=20(setq=20bytes=20(/=20= bytes=201024.0))=0A=20=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= =20=20=20=20=20=20=20=20=20=20=20=20=20=20=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;;=20((integerp=20bytes)=20= (format=20"%4d=20%s"=20bytes=20(car=20units)))=0A+=20=20=20=20=20((>=3D=20= bytes=20100)=20(format=20"%4.0f=20%s"=20bytes=20(car=20units)))=0A+=20=20= =20=20=20((>=3D=20bytes=2010)=20(format=20"%4.1f=20%s"=20bytes=20(car=20= units)))=0A+=20=20=20=20=20(t=20(format=20"%4.2f=20%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+536,10=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=20=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)=0A+=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20(version-list-<=20(version-to-list=20(car=20= f2))=0A+=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= (version-to-list=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=_1EEA3491-09E2-4B02-A506-9C687152C984--
%s%s%s