From 74f3b67b3cfe28a4557b629216bbf9349d606060 Mon Sep 17 00:00:00 2001 From: Christoph Thiede Date: Mon, 5 Jun 2023 00:11:34 +0200 Subject: [PATCH] add missing extension method for HyperKitty URLs complements b9bcae3 --- .../Integer.extension/instance/talkAsByteArray.st | 8 ++++++++ .../Integer.extension/methodProperties.json | 5 +++++ .../Integer.extension/properties.json | 2 ++ .../instance/hyperkittyUrlForMessageId.thread..st | 2 +- .../TalkInbox.class/methodProperties.json | 2 +- 5 files changed, 17 insertions(+), 2 deletions(-) create mode 100644 packages/SqueakInboxTalk.package/Integer.extension/instance/talkAsByteArray.st create mode 100644 packages/SqueakInboxTalk.package/Integer.extension/methodProperties.json create mode 100644 packages/SqueakInboxTalk.package/Integer.extension/properties.json diff --git a/packages/SqueakInboxTalk.package/Integer.extension/instance/talkAsByteArray.st b/packages/SqueakInboxTalk.package/Integer.extension/instance/talkAsByteArray.st new file mode 100644 index 0000000..5fd5293 --- /dev/null +++ b/packages/SqueakInboxTalk.package/Integer.extension/instance/talkAsByteArray.st @@ -0,0 +1,8 @@ +*SqueakInboxTalk-Core-converting +talkAsByteArray + "copied from Pharo 5" + | stream | + stream := ByteArray new writeStream. + self digitLength to: 1 by: -1 do: [:digitIndex | + stream nextPut: (self digitAt: digitIndex)]. + ^ stream contents \ No newline at end of file diff --git a/packages/SqueakInboxTalk.package/Integer.extension/methodProperties.json b/packages/SqueakInboxTalk.package/Integer.extension/methodProperties.json new file mode 100644 index 0000000..83d018f --- /dev/null +++ b/packages/SqueakInboxTalk.package/Integer.extension/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "talkAsByteArray" : "ct 6/5/2023 00:09" } } diff --git a/packages/SqueakInboxTalk.package/Integer.extension/properties.json b/packages/SqueakInboxTalk.package/Integer.extension/properties.json new file mode 100644 index 0000000..d27420b --- /dev/null +++ b/packages/SqueakInboxTalk.package/Integer.extension/properties.json @@ -0,0 +1,2 @@ +{ + "name" : "Integer" } diff --git a/packages/SqueakInboxTalk.package/TalkInbox.class/instance/hyperkittyUrlForMessageId.thread..st b/packages/SqueakInboxTalk.package/TalkInbox.class/instance/hyperkittyUrlForMessageId.thread..st index 8a55e9c..65084a5 100644 --- a/packages/SqueakInboxTalk.package/TalkInbox.class/instance/hyperkittyUrlForMessageId.thread..st +++ b/packages/SqueakInboxTalk.package/TalkInbox.class/instance/hyperkittyUrlForMessageId.thread..st @@ -8,6 +8,6 @@ hyperkittyUrlForMessageId: messageId thread: thread id := id allButFirst allButLast]. id := id take: 255. hash := (Base32MimeConverter mimeEncode: - (SecureHashAlgorithm new hashMessage: id) asByteArray readStream) + (SecureHashAlgorithm new hashMessage: id) talkAsByteArray readStream) contents. ^ 'https://lists.squeakfoundation.org/archives/list/{1}@lists.squeakfoundation.org/{2}/{3}/' format: {self name. thread ifTrue: ['thread'] ifFalse: ['message']. hash} \ No newline at end of file diff --git a/packages/SqueakInboxTalk.package/TalkInbox.class/methodProperties.json b/packages/SqueakInboxTalk.package/TalkInbox.class/methodProperties.json index 2e8f829..f075277 100644 --- a/packages/SqueakInboxTalk.package/TalkInbox.class/methodProperties.json +++ b/packages/SqueakInboxTalk.package/TalkInbox.class/methodProperties.json @@ -29,7 +29,7 @@ "downloadRange:" : "ct 5/25/2021 18:32", "hyperkittyThreadUrlForMessageId:" : "ct 6/1/2023 18:27", "hyperkittyUrlForMessageId:" : "ct 6/1/2023 18:25", - "hyperkittyUrlForMessageId:thread:" : "ct 6/1/2023 18:25", + "hyperkittyUrlForMessageId:thread:" : "ct 6/5/2023 00:10", "initialize" : "ct 12/2/2022 00:10", "lastRefreshed" : "ct 7/8/2021 13:11", "mailAddress" : "ct 5/26/2021 16:43",