Squeak SmalltalkJoker Squeak Smalltalk : Code Snippets : Rss Feed Reader

If you have Yaxo installed, try this:

UIManager default
  edit: (Text streamContents: [:stream |
    (XMLDOMParser parseDocumentFrom: (HTTPClient httpGet:  'source.squeakfoundation.org/feed.rss'))
      tagsNamed: #item do: [:item |
        #(title bold author italic pubDate normal  description normal) pairsDo: [:tag :attr |
          stream withAttribute: (TextEmphasis perform:  attr) do: [
            item tagsNamed: tag do: [:element |
              stream nextPutAll: element  contentString; space]].
          attr = #normal ifTrue: [stream cr]]]])
  label: 'Bert''s Minimal Feed Reader'

- Bert -