From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Amirouche Boubekki Newsgroups: gmane.lisp.guile.user Subject: Very Small Atom Feed Reader Date: Sun, 06 Mar 2016 15:12:02 +0100 Message-ID: <0255377f2892d74fa18c2d534c47bf4d@hypermove.net> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=_65c96fc6feb1f4c869d3211be1e8053f" X-Trace: ger.gmane.org 1457273557 15972 80.91.229.3 (6 Mar 2016 14:12:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 6 Mar 2016 14:12:37 +0000 (UTC) To: Guile User Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sun Mar 06 15:12:25 2016 Return-path: Envelope-to: guile-user@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 1acZQ0-0006XL-Rd for guile-user@m.gmane.org; Sun, 06 Mar 2016 15:12:25 +0100 Original-Received: from localhost ([::1]:50668 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1acZQ0-0007iZ-95 for guile-user@m.gmane.org; Sun, 06 Mar 2016 09:12:24 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58817) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1acZPl-0007gv-Hl for guile-user@gnu.org; Sun, 06 Mar 2016 09:12:10 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1acZPi-00084P-8m for guile-user@gnu.org; Sun, 06 Mar 2016 09:12:09 -0500 Original-Received: from relay6-d.mail.gandi.net ([217.70.183.198]:36351) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1acZPh-00084E-Uo for guile-user@gnu.org; Sun, 06 Mar 2016 09:12:06 -0500 Original-Received: from mfilter38-d.gandi.net (mfilter38-d.gandi.net [217.70.178.169]) by relay6-d.mail.gandi.net (Postfix) with ESMTP id AA37EFB887 for ; Sun, 6 Mar 2016 15:12:04 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mfilter38-d.gandi.net Original-Received: from relay6-d.mail.gandi.net ([IPv6:::ffff:217.70.183.198]) by mfilter38-d.gandi.net (mfilter38-d.gandi.net [::ffff:10.0.15.180]) (amavisd-new, port 10024) with ESMTP id d6j802SioVnG for ; Sun, 6 Mar 2016 15:12:02 +0100 (CET) X-Originating-IP: 10.58.1.141 Original-Received: from webmail.gandi.net (webmail1-d.mgt.gandi.net [10.58.1.141]) (Authenticated sender: amirouche@hypermove.net) by relay6-d.mail.gandi.net (Postfix) with ESMTPA id DEBA3FB886 for ; Sun, 6 Mar 2016 15:12:02 +0100 (CET) X-Sender: amirouche@hypermove.net User-Agent: Roundcube Webmail/1.1.2 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 217.70.183.198 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:12458 Archived-At: --=_65c96fc6feb1f4c869d3211be1e8053f Content-Transfer-Encoding: 8bit Content-Type: text/plain; charset=UTF-8; format=flowed Héllo, I share with you this small *atom* feed reader which works from command line. Create a ~/.prime.txt file with the address of atom files you want to follow and then run the script. The problem I have is that it fails on wingolog and others but I'm accepting patches ;) -- Amirouche ~ amz3 ~ http://www.hyperdev.fr --=_65c96fc6feb1f4c869d3211be1e8053f Content-Transfer-Encoding: base64 Content-Type: text/plain; name=main.scm Content-Disposition: attachment; filename=main.scm; size=5664 KHVzZS1tb2R1bGVzIChzcmZpIHNyZmktOSkpCih1c2UtbW9kdWxlcyAoc3JmaSBzcmZpLTE5KSkK KHVzZS1tb2R1bGVzIChzcmZpIHNyZmktMjYpKQoKKHVzZS1tb2R1bGVzIChpY2UtOSBtYXRjaCkp Cih1c2UtbW9kdWxlcyAoaWNlLTkgcmRlbGltKSkKKHVzZS1tb2R1bGVzIChpY2UtOSByZWNlaXZl KSkKCih1c2UtbW9kdWxlcyAoc3htbCB4cGF0aCkpCih1c2UtbW9kdWxlcyAoc3htbCBzaW1wbGUp KQoKKHVzZS1tb2R1bGVzIChzcmZpIHNyZmktMSkpCgoodXNlLW1vZHVsZXMgKHdlYiBjbGllbnQp KQoKOzsgWFhYOiB0aGlzIGlzIHJlcXVpcmVkIGZvciBzb21lIHJlYXNvbgooc2V0bG9jYWxlIExD X0FMTCAiIikKCjs7OyBzcmZpLTk5OQoKKGRlZmluZS1zeW50YXggZGVmaW5lLXJlY29yZC10eXBl KgogIChsYW1iZGEgKHgpCiAgICAoZGVmaW5lICglaWQtbmFtZSBuYW1lKSAoc3RyaW5nLT5zeW1i b2wgKHN0cmluZy1kcm9wCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg ICAgIChzdHJpbmctZHJvcC1yaWdodAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg ICAgICAgICAgICAgKHN5bWJvbC0+c3RyaW5nIG5hbWUpIDEpIDEpKSkKICAgIChkZWZpbmUgKGlk LW5hbWUgY3R4IG5hbWUpCiAgICAgIChkYXR1bS0+c3ludGF4IGN0eCAoJWlkLW5hbWUgKHN5bnRh eC0+ZGF0dW0gbmFtZSkpKSkKICAgIChkZWZpbmUgKGlkLWFwcGVuZCBjdHggLiBzeW1zKQogICAg ICAoZGF0dW0tPnN5bnRheCBjdHggKGFwcGx5IHN5bWJvbC1hcHBlbmQgKG1hcCBzeW50YXgtPmRh dHVtIHN5bXMpKSkpCiAgICAoc3ludGF4LWNhc2UgeCAoKQogICAgICAoKF8gcm5hbWUgZmllbGQg Li4uKQogICAgICAgKGFuZCAoaWRlbnRpZmllcj8gIydybmFtZSkgKGFuZC1tYXAgaWRlbnRpZmll cj8gIycoZmllbGQgLi4uKSkpCiAgICAgICAod2l0aC1zeW50YXggKChjb25zIChpZC1hcHBlbmQg IydybmFtZSAjJ21ha2UtIChpZC1uYW1lICMncm5hbWUgIydybmFtZSkpKQogICAgICAgICAgICAg ICAgICAgICAocHJlZCAoaWQtYXBwZW5kICMncm5hbWUgKGlkLW5hbWUgIydybmFtZSAjJ3JuYW1l KSAjJz8pKQogICAgICAgICAgICAgICAgICAgICAoKGdldHRlciAuLi4pIChtYXAgKGxhbWJkYSAo ZikKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGlkLWFwcGVuZCBm IChpZC1uYW1lICMncm5hbWUgIydybmFtZSkgIyctIGYpKQogICAgICAgICAgICAgICAgICAgICAg ICAgICAgICAgICAgICAgICAgIycoZmllbGQgLi4uKSkpKQogICAgICAgICAjJyhkZWZpbmUtcmVj b3JkLXR5cGUgcm5hbWUKICAgICAgICAgICAgIChjb25zIGZpZWxkIC4uLikKICAgICAgICAgICAg IHByZWQKICAgICAgICAgICAgIChmaWVsZCBnZXR0ZXIpCiAgICAgICAgICAgICAuLi4pKSkpKSkK Cjs7OyBzeG1sIHByb2NlZHVyZXMKCihkZWZpbmUgKGZpbGUtPnN4bWwgZmlsZW5hbWUpCiAgKGNk ciAoeG1sLT5zeG1sICh3aXRoLWlucHV0LWZyb20tZmlsZSBmaWxlbmFtZQogICAgICAgICAgICAg ICAgICAgIChsYW1iZGEgKCkKICAgICAgICAgICAgICAgICAgICAgIChyZWFkLXN0cmluZykpKSkp KQoKKGRlZmluZSAodXJsLWZldGNoIHVybCkKICAocGsgdXJsKQogIChyZWNlaXZlIChfIGJvZHkp IChodHRwLWdldCB1cmwpIGJvZHkpKQoKOzsgaGVscGVycyB0byB0dXJuIGF0b20gaW50byBzY2hl bWUKCihkZWZpbmUgKHN4bWwtPmRhdGUgc3htbCkKICA7OyBGSVhNRTogYWRkIHN1cHBvcnQgZm9y IFRaCiAgKGxldCogKCh0aW1lc3RhbXAgKGNhciAoKHN4cGF0aCAnKGh0dHA6Ly93d3cudzMub3Jn LzIwMDUvQXRvbTp1cGRhdGVkICp0ZXh0KikpIHN4bWwpKSkKICAgICAgICAgKGxlbmd0aCAoc3Ry aW5nLWxlbmd0aCAiMjAxNS0wOC0xM1QwMDoyNDowMCIpKQogICAgICAgICAoZGF0ZSAoc3RyaW5n LT5kYXRlIChzdHJpbmctdGFrZSB0aW1lc3RhbXAgbGVuZ3RoKSAiflktfm0tfmRUfkg6fk06flMi KSkpCiAgICA7OyBkYXRlKSkKICAgIHRpbWVzdGFtcCkpCgooZGVmaW5lIChzeG1sLT5mZWVkIHN4 bWwpCiAgKG1hcCAobGFtYmRhIChzcGVjKSAoY29ucyAoY2FyIHNwZWMpICgoY2FkciBzcGVjKSBz eG1sKSkpCiAgICAgICBgKCh0aXRsZSAsKHN4cGF0aCAnKGh0dHA6Ly93d3cudzMub3JnLzIwMDUv QXRvbTppZCAqdGV4dCopKSkKICAgICAgICAgKHVwZGF0ZWQtYXQgLHN4bWwtPmRhdGUpCiAgICAg ICAgIChhdXRob3IgLChzeHBhdGggJyhodHRwOi8vd3d3LnczLm9yZy8yMDA1L0F0b206YXV0aG9y IGh0dHA6Ly93d3cudzMub3JnLzIwMDUvQXRvbTpuYW1lICp0ZXh0KikpKQogICAgICAgICA7OyBY WFg6IGNhbid0IHJldHJpZXZlIGEgdXJsIG5vZGUgYmVjYXVzZSB0aGUgYXR0cmlidXRlIGF4aXMg YGVxdWFsP2BgbWF0Y2ggYWxsIHRoZSBjaGlsZHJlbgogICAgICAgICA7OyBpbnN0ZWFkIG9mIHRl c3RpbmcgdGhlIGV4aXN0YW5jZSBvZiB0aGUgcHJvdmlkZWQgcGFpci4KICAgICAgICAgOzsgWFhY OiB0aGUgZm9sbG93aW5nIHNob3VsZCBtYXRjaCB0aGUgImhyZWYiIGF0dHJpYnV0ZSB2YWx1ZSBv ZiB0aGUgImFsdGVybmF0ZSIgbGluayBub2RlCiAgICAgICAgIDs7ICh1cmwgLChzeHBhdGggJyho dHRwOi8vd3d3LnczLm9yZy8yMDA1L0F0b206bGluayAoQCAoZXF1YWw/IChyZWwgImFsdGVybmF0 ZSIpKSkgQCBocmVmICp0ZXh0KikpKQogICAgICAgICAoZW50cmllcyAsKHN4cGF0aCAnKGh0dHA6 Ly93d3cudzMub3JnLzIwMDUvQXRvbTplbnRyeSkpKSkpKQoKCjs7IGJvcnJvd2VkIGZyb20gZ3Vp eAooZGVmaW5lKiAoc3RyaW5nLXJlcGxhY2Utc3Vic3RyaW5nIHN0ciBzdWJzdHIgcmVwbGFjZW1l bnQKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjOm9wdGlvbmFsCiAgICAgICAg ICAgICAgICAgICAgICAgICAgICAgICAgICAgKHN0YXJ0IDApCiAgICAgICAgICAgICAgICAgICAg ICAgICAgICAgICAgICAgKGVuZCAoc3RyaW5nLWxlbmd0aCBzdHIpKSkKICAiUmVwbGFjZSBhbGwg b2NjdXJyZW5jZXMgb2YgU1VCU1RSIGluIHRoZSBTVEFSVC0tRU5EIHJhbmdlCiAgIG9mIFNUUiBi eSBSRVBMQUNFTUVOVC4iCiAgKG1hdGNoIChzdHJpbmctbGVuZ3RoIHN1YnN0cikKICAgICgwCiAg ICAgKGVycm9yICJzdHJpbmctcmVwbGFjZS1zdWJzdHJpbmc6IGVtcHR5IHN1YnN0cmluZyIpKQog ICAgKHN1YnN0ci1sZW5ndGgKICAgICAobGV0IGxvb3AgKChzdGFydCAgc3RhcnQpCiAgICAgICAg ICAgICAgICAocGllY2VzIChsaXN0IChzdWJzdHJpbmcgc3RyIDAgc3RhcnQpKSkpCiAgICAgICAo bWF0Y2ggKHN0cmluZy1jb250YWlucyBzdHIgc3Vic3RyIHN0YXJ0IGVuZCkKICAgICAgICAgKCNm CiAgICAgICAgICAoc3RyaW5nLWNvbmNhdGVuYXRlLXJldmVyc2UKICAgICAgICAgICAoY29ucyAo c3Vic3RyaW5nIHN0ciBzdGFydCkgcGllY2VzKSkpCiAgICAgICAgIChpbmRleAogICAgICAgICAg KGxvb3AgKCsgaW5kZXggc3Vic3RyLWxlbmd0aCkKICAgICAgICAgICAgICAgIChjb25zKiByZXBs YWNlbWVudAogICAgICAgICAgICAgICAgICAgICAgIChzdWJzdHJpbmcgc3RyIHN0YXJ0IGluZGV4 KQogICAgICAgICAgICAgICAgICAgICAgIHBpZWNlcykpKSkpKSkpCgo7OyBib3Jyb3dlZCBmcm9t IGhhdW50CihkZWZpbmUgKHVuZXNjYXBlIHN0cikKICAoZGVmaW5lICplc2NhcGUtbWFwKiAnKCgi Jmx0OyIuICI8IikKICAgICAgICAgICAgICAgICAgICAgICAgICgiJmd0OyIgLiAiPiIpCiAgICAg ICAgICAgICAgICAgICAgICAgICAoIiZhbXA7IiAuICImIikKICAgICAgICAgICAgICAgICAgICAg ICAgICgiJnF1b3Q7IiAuICJcIiIpKSkKICAoZm9sZCAobGFtYmRhIChlc2NhcGUgc3RyKQogICAg ICAgICAgKHN0cmluZy1yZXBsYWNlLXN1YnN0cmluZyBzdHIgKGNhciBlc2NhcGUpIChjZHIgZXNj YXBlKSkpCiAgICAgICAgc3RyCiAgICAgICAgKmVzY2FwZS1tYXAqKSkKCihkZWZpbmUgKHN4bWwt PnN1bW1hcnkgc3htbCkKICAoZGVmaW5lIHN1bW1hcnktPnN0cmluZwogICAgKGNvbXBvc2UgY2Ry IHhtbC0+c3htbCB1bmVzY2FwZSBjYXIgKHN4cGF0aCAnKGh0dHA6Ly93d3cudzMub3JnLzIwMDUv QXRvbTpzdW1tYXJ5ICp0ZXh0KikpKSkKICAoY2F0Y2ggI3RydWUKICAgIChsYW1iZGEgKCkgKHN1 bW1hcnktPnN0cmluZyBzeG1sKSkKICAgIChsYW1iZGEgKGtleSAuIGFyZ3MpICIiKSkpCgooZGVm aW5lIChzeG1sLT5lbnRyeSBzeG1sKQogIChtYXAgKGxhbWJkYSAoc3BlYykgKGNvbnMgKGNhciBz cGVjKSAoKGNkciBzcGVjKSBzeG1sKSkpCiAgICAgICBgKCh0aXRsZSAuICwoY29tcG9zZSBjYXIg KHN4cGF0aCAnKGh0dHA6Ly93d3cudzMub3JnLzIwMDUvQXRvbTp0aXRsZSAqdGV4dCopKSkpCiAg ICAgICAgICh1cmwgLiAsKGNvbXBvc2UgY2FyIChzeHBhdGggJyhodHRwOi8vd3d3LnczLm9yZy8y MDA1L0F0b206bGluayBAIGhyZWYgKnRleHQqKSkpKQogICAgICAgICA7OyAoc3VtbWFyeSAuICxz eG1sLT5zdW1tYXJ5KQogICAgICAgICAodXBkYXRlZC1hdCAuICxzeG1sLT5kYXRlKQogICAgICAg ICA7OyAodWlkIC4gLChjb21wb3NlIGNhciAoc3hwYXRoICcoaHR0cDovL3d3dy53My5vcmcvMjAw NS9BdG9tOmlkICp0ZXh0KikpKSkKICAgICAgICAgKSkpCgooZGVmaW5lIHVybC0+ZmVlZCAoY29t cG9zZSBzeG1sLT5mZWVkIGNkciB4bWwtPnN4bWwgdXJsLWZldGNoKSkKCihkZWZpbmUgKHVybC0+ ZW50cmllcyB1cmwpCiAgKG1hcCBzeG1sLT5lbnRyeSAoYXNzb2MtcmVmICh1cmwtPmZlZWQgdXJs KSAnZW50cmllcykpKQoKCihkZWZpbmUgKGZlZWRzKQogIChsZXQgKChwcmltZS50eHQgKHN0cmlu Zy1qb2luIChsaXN0IChnZXRlbnYgIkhPTUUiKSAiLnByaW1lLnR4dCIpICIvIikpKQogICAgKGNh bGwtd2l0aC1pbnB1dC1maWxlIHByaW1lLnR4dAogICAgICAobGFtYmRhIChwb3J0KQogICAgICAg IChsZXQgbG9vcCAoKGxpbmUgKHJlYWQtbGluZSBwb3J0KSkKICAgICAgICAgICAgICAgICAgIChv dXQgJygpKSkKICAgICAgICAgIChpZiAoZW9mLW9iamVjdD8gbGluZSkKICAgICAgICAgICAgICBv dXQKICAgICAgICAgICAgICAobG9vcCAocmVhZC1saW5lIHBvcnQpIChjb25zIGxpbmUgb3V0KSkp KSkpKSkKCihkZWZpbmUgKHNvcnQtZW50cmllcyBhIGIpCiAgKHN0cmluZz4/IChhc3NvYy1yZWYg YSAndXBkYXRlZC1hdCkgKGFzc29jLXJlZiBiICd1cGRhdGVkLWF0KSkpCgooZGVmaW5lIChmb3Jt YXQtZW50cnkgZW50cnkpCiAgKGZvcm1hdCAjdCAiKiB+YVxuKiogfmFcbioqIH5hXG5cbiIKICAg ICAgICAgIChhc3NvYy1yZWYgZW50cnkgJ3RpdGxlKQogICAgICAgICAgKGFzc29jLXJlZiBlbnRy eSAndXJsKQogICAgICAgICAgKGFzc29jLXJlZiBlbnRyeSAndXBkYXRlZC1hdCkpKQogICAgICAg ICAgCgoobWFwIGZvcm1hdC1lbnRyeSAoc29ydCAoYXBwZW5kLW1hcCB1cmwtPmVudHJpZXMgKGZl ZWRzKSkgc29ydC1lbnRyaWVzKSkKCjs7IC5wcmltZS50eHQgY29udGVudAo7Owo7OyBodHRwOi8v c2F2YW5uYWguZ251Lm9yZy9uZXdzL2F0b20ucGhwP2dyb3VwPWd1aXgKOzsgaHR0cDovL3NhdmFu bmFoLmdudS5vcmcvbmV3cy9hdG9tLnBocD9ncm91cD1ndWlsZQo7OyBodHRwOi8vZHVzdHljbG91 ZC5vcmcvYmxvZy9pbmRleC54bWwK --=_65c96fc6feb1f4c869d3211be1e8053f--