Script Library: 1238 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Archive version of: rss.r ... version: 23 ... piotrgapinsk 12-Jul-2007

Amendment note: tweaks in UTF8/iconv and path-thru functions || Publicly available? Yes

REBOL [
	Title: "RSS feed reader"
	Purpose: "Live Bookmarks"
	Date: 2007-07-12
	Version: 2.0.5
	Author: "Piotr Gapinski"
	Email: {news [at] rowery! olsztyn.pl}
	File: %rss.r
	Url: http://rowery.olsztyn.pl/narg/rebol/rss
	Copyright: "Olsztynska Strona Rowerowa http://www.rowery.olsztyn.pl"
	License: "GNU General Public License (Version II)"
	Library: [
		level: 'intermediate
		platform: 'all
		type: [tool]
		domain: [web]
		tested-under: [
			view 1.3.1  on [Linux]
			view 1.3.2  on [Linux WinXP]
		]
		support: none
		license: 'GPL
	]
	Zmiany: {
		2.0.5 2007-07-12
		- znaki UTF8 skladajace sie z trzech oktetow sa usuwane
		- path-thru potrafi obslugiwac url bez nazwy pliku
		2.0.4 2007-04-03
		- wybieranie rss za pomoca klawiatury powoduje aktualizacje listy kanalow
		2.0.3 2007-03-22
		- read-thru potrafi zapisywac w cache pliki zawierajace znaki specejalne;
		  mozliwe dzieki podmianie funkcji path-thru
		2.0.2 2007-03-12
		- ctx-rss-xml/escape-html domyslnie usuwa nieznane entity html
		- zamienione kody znakow zet i ziet dla utf-8; zobacz standards/utf-8
		- docelowe kodowanie znakow jest uzaleznione od systemu operacyjnego;
			zobacz ctx-rss-xml/to-local-charset
		2.0.1 2007-03-09
		- obsluga polskich znakow w standardzie UTF-8; zobacz ctx-rss-xml/iconv
		- obsluga znacznikow ldquo, rdquo oraz rsquo; zobacz ctx-rss-xml/escape-html
	}
]

if system/version < 1.3.1 [to error! "RSS feed reader requires Rebol/View 1.3.1 or greater"]
secure allow

if error? err: try [
ctx-rss-hosts: context [
	hosts: [
		; [site "nazwa serwisu" url url!-pliku-rss refresh time!-do-odswiezenia]
		; Linux
		[site "Linuxnews.pl" url http://linuxnews.pl/feed/ refresh 1:00]
		[site "jakilinux.org" url http://jakilinux.org/category/newsy/feed/]
		[site "7th Guard"    url http://rss.7thguard.net/7thguard.xml]
		[site "Slackware SSA" url http://dev.slackware.it/rss/slackware-security.xml]
		[site "Slackware Changelog" url http://riexc.r1g.edu.lv/stuff/slachrss.php]
		[site "Develia.org"  url http://www.develia.org/news.rss20.en.xml]
		[site "KDE-Apps.org" url http://www.kde.org/dot/kde-apps-content.rdf]
		[site "Freshmeat"    url http://freshmeat.net/backend/fm-releases.rdf]
		[site "Linux.com"    url http://www.linux.com/index.rss]

		; Software
		[site "REBOLution"   url http://www.rebol.net/blog/carl-rss.xml]
		[site "Rebol Update News" url http://www.rebol.net/upnews/upnews-rss.xml]
		[site "Rebol3 Front Line" url http://www.rebol.net/r3blogs/rebol3-rss.xml]
		[site "Rebol.org"    url http://www.rebol.org/cgi-bin/cgiwrap/rebol/rss-get-feed.r]
		[site "PHP Home"     url http://www.php.net/news.rss]
		[site "Google: CakePHP" url http://groups.google.com/group/cake-php/feed/rss_v2_0_msgs.xml]
		[site "Ruby Home"    url http://www.ruby-lang.org/en/index.rdf]
		[site "Google: RubyOnRails" url http://groups.google.com/group/rubyonrails/feed/rss_v2_0_msgs.xml]
		[site "Rails Trac"   url http://dev.rubyonrails.org/timeline?milestone=on&ticket=on&ticket_details=on&changeset=on&max=30&daysback=7&format=rss]
		[site "Mono Project" url http://www.mono-project.com/news/index.rss2]
		[site "MySQL"        url http://dev.mysql.com/mysql.rss]
		[site "PostgreeSQL"  url http://www.postgresql.org/news.rss]
		[site "Joel on Software" url http://www.joelonsoftware.com/rss.xml]

		; Amiga
		[site "Polski Portal Amigowy" url http://www.ppa.pl/newsy/b2rss.xml]

		; Inne
		[site "Rowery!Olsztyn" url http://www.rowery.olsztyn.pl/wiki/feed.php refresh 2:00]
		[site "DCResource"   url http://www.dcresource.com/newsfeed/news.rdf]
	]

	def-refresh: 1:00

	set 'rss-site has [site] [
		; zwraca liste nazw serwisow rss
		site: copy []
		foreach rss hosts [append site rss/site]
		return site
	]

	set 'load-rss func [
		"Wczytuje RSS serwera okreslonego pozycja w liscie serwerow; Zwraca string! lub none!"
		num [integer!] "numer sajtu"
		/force "wymusza aktualizacje danych"
		/local url dat] [

		attempt [
			url: to-url hosts/:num/url
			dat: either any [not (valid-rss num) force] [read-thru/update url] [read-thru url]
			to-string dat
		]
	]

	set 'valid-rss func [
		"Sprawdza czy dane w cache sa aktulne; Zwraca wartosc logic!"
		num [integer!] "numer sajtu"
		/local max-age] [

		if not attempt [exists? path-thru hosts/:num/url] [return false]
		max-age: any [
			attempt [to-time hosts/:num/refresh]
			def-refresh
		]
		((rss-datetime num) + max-age) > now
	]

	set 'rss-datetime func [
		"Pobiera date pobrania danych do cache; Zwraca wartosc date!"
		num [integer!] "numer sajtu"] [

		any [
			attempt [modified? path-thru hosts/:num/url]
			now
		]
	]
]

ctx-rss-xml: context [
	standards: [
		; tabela standardow zamiany 18 polskich znakow (duze/male)
		windows-1250 [165 198 202 163 209 211 140 143 175 185 230 234 179 241 243 156 159 191]
		iso-8859-2 [161 198 202 163 209 211 166 172 175 177 230 234 179 241 243 182 188 191]
		utf-8 [260 262 280 321 323 211 346 377 379 261 263 281 322 324 243 347 378 380]
		ascii [065 067 069 076 078 079 083 090 090 097 099 101 108 110 111 115 122 122]
	]
	
	to-local-charset: func [
		"Zmienia standard polskich znakow; Zwraca string! po konwersji"
		str [string!] "tekst do konwersji"
		encoding [string! none!] "standard zrodlowy"
		/local inp out] [

		inp: any [
			attempt [select standards (to-word lowercase to-string encoding)]
			reduce standards/utf-8
		]
		out: any [
			select reduce [4 standards/ascii 3 standards/windows-1250] (fourth system/version)
			reduce standards/ascii
		]
		iconv str inp out
	]

	iconv: func [
		"Konwertuje polskie znaki w tekscie; Zwraca string! po konwersji"
		str [string!] "tekst do konwersji"
		inp [block!] "tablica konwersji (wejsciowa)"
		out [block!]  "tablica konwersji (wyjsciowa)"
		/local i j c here] [

		if same? inp out [return str]

		parse/all str [
			any [
				here: skip (
					c: first here
					if all [(inp/1 < 255) (c > 127)] [
						any [
							none? i: attempt [index? find inp to-integer c]
							change here to-char out/:i
						]
					]
					if (inp/1 > 255) [
						if all [(c > 191) (c < 224)] [
							; TODO obsluga 3-bajtowych oktetow UTF-8
							i: ((to-integer c) and 31) * to-integer (power 2 6)
							i: i or to-integer (second here) and 63
							any [
								none? j: attempt [index? find inp i]
								do [
									change here to-char out/:j
									remove skip here 1
								]
							]
						]
						if c >= 224 [remove/part here (skip here 3)]
					]
				) :here
				skip
			]
		]
		head here
	]

	tokens: ["amp" {&} "lt" {<} "gt" {>} "nbsp" { } "apos" {'} "quot" {"}
			 "raquo" {-} "ldquo" {"} "rdquo" {"} "rsquo" {'}]
	escape-html: func [
		"Zamienia encje HTML na tekst; Zwraca string! po konwersji"
		text [string!] "tekst do konwersji"
		/local here there entity] [

		entity: complement charset { :;<>&#}
		parse/all text [
			any [
				here:
				end break

				| "&"
					[
					"#" copy item to ";" skip there: (
						remove/part here there
						attempt [insert here form to-char to-integer item]
					) 
					:here

					| copy item some entity ";" there: (
						remove/part here there
						any [
							none? code: select tokens item
							insert here code
						]
					)
					:here
					]

				| ["<![" "CDATA[" | "]]>"] there: (remove/part here there) :here

				| skip
			] 
		]
		head here
	]

	strip-html: func [
		"Usuwa znaczniki HTML z tekstu; Zwraca string! po konwersji"
		text [string!] "tekst do konwersji"
		/local page] [

		remove-each tag page: load/markup escape-html (trim/lines/tail text) [tag? tag]
		form page
	]

	rss: copy [] ; miejsce na wynikowa tablice informacji
	ctx: copy [] ; kontekst znalezionego znacznika

	emit: func ['scope desc] [
		desc: any [desc ""]
		repend ctx [scope (strip-html desc)]
	]

	parts: [
		["<channel" thru ">" (append rss 'channel ctx: copy [])] | </channel> |
		["<image" thru ">" (repend rss [ctx 'image] ctx: copy [])] | </image> |
		["<items" thru ">"] | </items> |
		["<poll" thru ">" (repend rss [ctx 'poll] ctx: copy [])] | </poll> |
		["<textinput" thru ">" (repend rss [ctx 'textinput] ctx: copy [])] | </textinput> |
		["<item" thru ">" (repend rss [ctx 'item] ctx: copy [])] | </item> |
		[<title> copy title to </title> (emit 'title title)] |
		[<link> copy link to </link> (emit 'link link)] |
		[<url> copy url to </url> (emit 'url url)] |
		[<description> copy desc to </description> (emit 'description desc)] |
		[<pubdate> copy pubdate to </pubdate> (emit 'pubdate pubdate)] |
		[<dc:date> copy pubdate to </dc:date> (emit 'pubdate pubdate)] |
		[<dc:pubdate> copy pubdate to </dc:pubdate> (emit 'pubdate pubdate)] |
		skip
	]

	rules: [
		some parts
		to end (repend rss [ctx])
	]

	set 'parse-rss func [
		"Zamienia RSS XML na blok danych rebol; Zwraca wartosc logic!"
		scope [word!] "zakres danych (channel|image|item|poll|...)"
		dat [string!] "dane xml"
		f [any-function!] "funkcja callback; otrzymuje parametry scope jako argument (block!)"
		/local rc encoding] [

		rc: true
		; pobieranie poszczegolnych newsow (item) oznacza koniecznosc odwiezenia calego rss
		if any [(empty? rss) (scope = 'item)] [
		
			; konwertuj wykryty standard (domyslnie UTF-8)
			any [
				parse/all detab dat [to "<?xml" thru "encoding" 2 skip copy encoding to {"} thru {?>} to end]
				encoding: none
			]
			dat: to-local-charset dat encoding

			clear rss
			clear ctx
			rc: parse/all detab dat rules
		]
		if rc [
			; dla kazdego elementu zakresu (scope) wywolaj funkcje callback
			; parametrem funkcji callback jest blok danych zwiazany z danym zakresem
			; na wszelki wypadek jest sprawdzane czy zakres (scope) jest typu word! co
			; zapobiega przekazywaniu do callback przypadkowych danych
			foreach [item item-data] rss [if all [(word? item) (item = scope)] [f item-data]]
		]
		return rc
	]
]

ctx-rss-display: context [
	def-offset: 4x1 ; odleglosc XY od gornej ramki do pierwszego elementu listy newsow
	def-list-separator: on
	def-list-date: on
	def-list-desc: on
    
	pos-offset: def-offset
	browse-url: none
	list-box: none
	list-pane: none
	last-rss-num: 0

	; funkcje przesuwajace liste newsow (scroll-list) oraz scrollera (scroller-value)
	; przesuniecie slidera powoduje aktualizacje pozycji listy newsow
	scroll-list: func [value [number!]] [
		list-box/offset/y: negate value * (list-box/size/y - gui-news-list/size/y)
		show list-box
	]
	scroller-value: func [distance [number!]] [
		delta-y: gui-news-slider/data + (distance * 20 / pos-offset/y)
		if delta-y < 0 [delta-y: 0]
		if delta-y > 1 [delta-y: 1]
		scroll-list gui-news-slider/data: delta-y
		show gui-news-slider
	]

	; funkcje wybierajace z listy nastepny (next-host) lub poprzedni (prev-host) serwis rss w liscie
	; lista serwisow jest pobierana bezposredniu z VID gui-hosts-list
	next-host: has [data] [
		data: skip gui-hosts-list/data 1
		if not empty? data [gui-hosts-list/data: data]
		index? gui-hosts-list/data
	]
	prev-host: does [index? gui-hosts-list/data: skip gui-hosts-list/data -1]

	clear-display: does [
		; inicjalizuje zmienne gui; funkcja musi byc wywolana przed dostepem do list-pane i list-box
		; odswiezenie gui nastepuje w funkcji display-rss
		pos-offset: def-offset
		list-box: make-face/size 'box as-pair gui-news-list/size/x 1
		gui-news-list/pane: list-box
		list-pane: list-box/pane: copy []
	]

	display-error: func [
		"Wyswietla informacje o bledzie; Odswiezenie gui nastepuje w funkcji display-rss"
		text [string!] "naglowek bledu"
		desc [string! none!] "opis bledu"] [

		clear-display
		hide gui-browse-button
		append-news text none desc none
	]

	parse-rss-items: func [
		"Callback funkcji parse-rss; Dodaje do listy koleny news"
		news [block!] "block danych przekazany przez parse-rss"
		/local link desc date] [

		desc: attempt [news/description]
		link: attempt [news/link]
		date: any [
			attempt [form to-date skip news/pubdate 5]
			attempt [form to-date replace copy news/pubdate "T" " "]
			attempt [news/pubdate]
		]
		attempt [append-news (form news/title) link desc date]
	]
	parse-rss-channel: func [
		"Callback funkcji parse-rss; Pobiera channel/link url do zmiennej globalnej browse-url"
		channel [block!] "block! danych przekazany przez parse-rss"] [

		browse-url: none
		any [
			attempt [
				browse-url: to-url channel/link
				show gui-browse-button
			]
			hide gui-browse-button
		]
	]

	set 'display-rss func [
		"Wyswietla rss serwera okreslonego pozycja w liscie serwerow; Zwraca wartosc logic!"
		num [integer!] "numer sajtu"
		/force "wymusza aktualizacje danych"
		/local desc link nf error list-lay tl][

		either all [
			valid-rss num
			not force
		][
			; jezeli nie bylo zmiany rss - nie odswiezaj listy
			if (last-rss-num = num) [return true]
			nf: false
			dat: load-rss num
		][
			nf: flash/with "Please Wait..." main-window
			dat: load-rss/force num
		]
		last-rss-num: num

		; upewnij sie ze gui-hosts-list zawiera poprawne dane o wybranym serwerze rss
		gui-hosts-list/data: skip gui-hosts-list/list-data (num - 1)
		gui-hosts-list/text: first gui-hosts-list/data

		attempt [
			; hack! niestety wymaga by drop-down by wczesniej chociaz raz otwarty
			if list-lay: gui-hosts-list/list-lay [
				tl: first list-lay/pane
				; zmien podswietlony element w liscie drop-down zgodnie z wyborem usera
				clear tl/picked
				append tl/picked gui-hosts-list/text
				; przesun liste tak by nowy element byl widoczny
				tl/sld/data: (index? gui-hosts-list/data) / (length? gui-hosts-list/texts)
				do-face tl/sld tl/sld/data
			]
		]

		either not none? dat [
			clear-display
			gui-timer/text: form rss-datetime num

			error: not all [
				parse-rss 'item dat :parse-rss-items
				parse-rss 'channel dat :parse-rss-channel
				not empty? list-pane ; list-pane jest pusty gdy gui-news-list nie zawiera newsow
			]
		][

			; dane nie zostaly zaladowane
			error: true
		]
		if error [display-error {Error reading news feed!} {please check internet connection; press "refresh" button to try again}]
		if nf [unview/only nf]

		; przesun scroller w polozenie wyjsciowe i przelicz pozycje suwaka
		gui-news-slider/data: 0
		gui-news-slider/redrag (gui-news-list/size/y / list-box/size/y)

		show [
			gui-news-slider
			gui-timer
			gui-news-list
			gui-hosts-list
		]

		recycle
		return not none? dat
	]

	make-header: func [
		"Tworzy naglowek wiadomosci wykorzystujac VID button; Zwraca object! VID BUTTON"
		hdr-text [string! none!] hdr-url [url! string! none!] hdr-size [pair!] hdr-offset [pair!]] [

		make get-style 'button [
			size: hdr-size
			offset: hdr-offset
			text: trim/lines/head/tail hdr-text
			edge: make edge [size: 0x0]
			font: make font [align: 'left size: 13]
			user-data: either none? hdr-url [none] [copy hdr-url]
			action: make function! [] [if not none? user-data [browse/only user-data]]
		]
	]
	make-line: func [
		"Tworzy linie oddzielajaca naglowek wiadomosci od jej tresci; Zwraca object! VID BOX"
		line-size [pair!] line-offset [pair!]] [

		make get-style 'box [
			size: line-size ; minimalna wysokosc 'box wynosi 3pix
			offset: line-offset
			edge: make edge [color: coal size: 1x1]
		]
	]
	make-description: func [
		"Tworzy opis wiadomosci wykorzystujac VID txt; Zwraca object! VID TXT"
		desc-text [string! none!] desc-size [pair!] desc-offset [pair!]] [

		make get-style 'txt [
			size: desc-size
			offset: desc-offset
			text: trim/lines/head/tail desc-text
			font: make font [align: 'left color: black]
		]
	]
	make-pubdate: func [
		"Tworzy informcje o dacie publikacji wykorzystujac VID text; Zwraca object! VID TEXT"
		pubdate-text [string! none!] pubdate-size [pair!] pubdate-offset [pair!]] [

		make get-style 'text [
			size: pubdate-size
			offset: pubdate-offset
			text: trim/lines/head/tail pubdate-text
			font: make font [align: 'left color: black name: "arial" size: 11]
		]
	]

	append-news: func [
		"Dodaje pozycje do listy wyswietlanych newsow (list-box); Nie zwraca wartosci"
		text [string!] "tekst do wyswietlenia"
		link [string! none!] "link powiazany z tekstem do wyswietlania lub none!"
		desc [string! none!] "dodatkowe informacje do wyswietlenia lub none!"
		date [string! none!] "data publikacji"
		/local btn btn-size wh] [

		btn-size: as-pair (gui-news-list/size/x - pos-offset/x - 8) (16)
		jobs: [
			; [check this] [do that]
			[true] [make-header text link btn-size pos-offset]
			[def-list-separator] [make-line (as-pair btn-size/x 3) pos-offset]
			[all [def-list-date date]] [make-pubdate date btn-size pos-offset]
			[all [def-list-desc desc]] [make-description desc btn-size pos-offset]
		]

		foreach [check job] jobs [
			if do check [
				btn: do job
				; jezeli tekst nie miesci sie w jednej linijce to zmien wysokosc przycisku (Y)
				if not zero? (wh: size-text btn) [btn/size/y: wh/y + 4]
				append list-pane btn
				list-box/size/y: list-box/size/y + btn/size/y
				pos-offset: as-pair (pos-offset/x) (pos-offset/y + btn/size/y)
			]
		]
		; dodaj odstep miedzy poszczegolnymi newsami
		list-box/size/y: list-box/size/y + 4
		pos-offset/y: pos-offset/y + 4
	]

	set 'look-and-feel stylize [
		cycle-list: drop-down 180 rows 8 texts rss-site black [
			; self/data musi zawierac index? do pozycji elementu w liscie self/list-data
			; z indexu korzystaja wszystkie funkcje gui
			gui-hosts-list/data: find gui-hosts-list/list-data gui-hosts-list/data
			display-rss index? gui-hosts-list/data
		]

		refresh-btn: btn #"r" "Refresh" [display-rss/force index? gui-hosts-list/data]

		browse-btn: btn #"b" "Browse Site" [if not none? browse-url [browse/only browse-url]]

		about-btn: btn-help [browse http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=rss.r]

		news-list: box 336x260 edge [size: 1x1 color: black]

		news-slider: scroller 16x260 edge [size: 1x1 color: black] [scroll-list value]

		refresh-time: info 200 middle form now edge [size: 0x0]
			feel [engage: func [face action event] [if action = 'time [do-face face none]]]
			[display-rss index? gui-hosts-list/data]
	]
        
	insert-event-func [
		switch event/type [
			; obsluga kolka w myszce (przesuwanie listy newsow)
			scroll-line [scroller-value event/offset/y]
			; obslga klawiszy kursora
			key [
				switch event/key [
					up [scroller-value -3]
					down [scroller-value 3]
					left [display-rss prev-host]
					right [display-rss next-host]
				]
			]
		]
		event
	]
]

if get-env "KDEDIR" [
	attempt [
		unprotect 'browse
		browse: func [value [any-string!] /only][call reform ["konqueror" rejoin [{"} value {"}]]]
	]
]

attempt [
	unprotect 'path-thru
	path-thru: func [
		"Return a path relative to the disk cache."
		url /local purl path
	][
		if file? url [return url]
		if not all [purl: decode-url url purl/host] [return none]
		path: rejoin [view-root/public slash purl/host slash any [purl/path ""] any [purl/target ""]]
		foreach ch [{?} {*} {"} {<} {>} {|}] [replace/all path ch "_"]
		any [suffix? path append path "index.txt"]
		return path
	]
]

img: load 64#{
/9j/4AAQSkZJRgABAQIAAAAAAAD/2wBDAAoHBwgHBgoICAgLCgoLDhgQDg0NDh0V
FhEYIx8lJCIfIiEmKzcvJik0KSEiMEExNDk7Pj4+JS5ESUM8SDc9Pjv/2wBDAQoL
Cw4NDhwQEBw7KCIoOzs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7
Ozs7Ozs7Ozs7Ozs7Ozv/wAARCAGQAfQDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEA
AAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh
MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6
Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZ
mqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx
8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREA
AgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV
YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hp
anN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPE
xcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDt
aKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAEoyKCQoyTxV
SWVpG2jOKAFml3HavSprWxL4aQcelSWdnjEkg57Cr+MUAIqqi4AwKXpS9KoXl55f
yIeaAFvb0Rgoh+astiWbcxyTQSWOT1NJQAUtFFACVYtLczyDI+UdahVdzADvW1aQ
CGEDuaAJlUKoA6CloooAKKKKACiiigAoopCwHU0AZuqdQKz60ryI3MgEfOKbHph6
uaAM7BNSJbyueENa8dnCn8OanACjAGKAMuPTWJy5xVuOyhjHTJqzjij8KAGhQvQA
UtFFACUUtJQAlFFBoAQ0UGigCvdQCWM4HNZDqUYqeCK36z763/jUfWgDPooooAKK
KKAEpKdTaACiiigDZooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiig
BKCcDJoJxyaikLHoM56CgCKWQyNsXkmrlpZ7QHk5PpTrSzCDe4+arlABiiiq13dL
ChAPzUAMvbsRKUX7xrJYknJOSaV3Z23MeTTaACloooASiinxRmRwo70AW9Pt977y
OBWoKZDGIowop+RQAtFMaVF6sKhe+hXvmgCzSZrOk1Psoqs95M/8WBQBsNKidWFV
31CJenNZLOzdWNNoAvyak5+6MVWkuZXPLGoaKANXTeYjV2qemf6k1doASiiigApK
U0lACUUUUAIaKDRQAGkNLSGgBKMUUUAJSMoZSD3p1JQBj3cHkvx0qCtq4hEsZBHN
YzoUYq3WgBKKKKAEooooATFFLRQBsUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAUUU
UAFFFJQAtITgc0HgZp8Ue794/CjtQAJHlfMfgCiFo/Mz+VVby7LsUQ4UVXSdk6UA
bwIPSlrIS+ZasQ3kkrYAoAs3M6wRknrWLJK0rlm71qS2XnHc7n6UwaYnc5oAzKMV
rLp0YqQWUI/hoAxdp7A08QyHoprbEEa9FFOCqOgFAGOtlM38NPjK2b/Ny1acriOM
saxJXMkhY+tAFttSc/dAqB7yZz96oKKAHNIzdSabRRQAUlLRQAUUUUAJRRRQBraZ
/qKu1S0z/UVdoASilpKAA0lLSUAFJS0hoAKSlpDQAUhpTSUAFIaWkoAKSlpKAENU
r633DzFHNXjSEAjBoAwT1oqe7h8qQkDg1BQAlFFFABRRRQBsUUUUAFFFFABRRRQA
UUUUAFFFFABRRRQAUUUUAFFFCKZHwOnc0AOiTzOTwoqC9u8/u4uB3NOu7oKPKiOM
dazue9AC0lLQOtACqpdgq9a2LO2EMYJ+8agsLXaBI457VoUAFFFFABRRRQAUUUyR
wkZY9qAKOozceWD9az6fM/mSFs96ZQAUUUUAJRilooASiijFABRRRQAUlLSUAa2m
n9zV2qOmH90avUAFJS0UAJQaKDQAlJS0UAJRQaKAENJSmigBDSGlNIaACiiigBKS
lpKAIriESxkd6x3UoxU8YrdqjfW4I8xfxoAzqKekbucKM1ai0925fgUAUqK1xZwq
MYooAWiiigAooooAKKKKACiiigAooooAKKKKACiikOTwOpoAACzBVoup1t4zGn3u
5p8kgtYefvkVlu5dtxOSaAEJJOT1pKKWgAq3Y2xkfew+UVDbwmaQAVtRRiJAooAc
AAMCloooAKKKKACiiigAqhqE2B5YPXrV5mCjJ7Vizv5krN70ARUYoxRigAxSUtFA
CUUuKSgAooooASilpKACijFFAGppn+qNXqoaX/qzV+gAooooASiiigBKKKKAEooo
oAQ0Gg0GgBDSUtJQAUlKaY8qJ95hQA40hOBmqkmoKv3OapSXUsv8WB7UAaUl1FHk
Fsn0qlNflxtAAFVDyeaKANa0eNowQBnvU5rJtJjFIMng1rAhgDQAfjRRRQBDRRRQ
AUUUUAFFFFABRRRQAUUUUAFJS0lAB0FPXbEhlf8AAU1AGO4/dXrVS7uPOfaD8ooA
jnmaVySeKjpKWgApQpZsDqaSr9hb7j5jDpQBas4BFEMj5jVmiigAooooAKKKKACi
iigCrfS7IcdzWVVm9k8yXHYVXoASilooASkxTjSUAJRS4pMUAJiinUmKAEopcUlA
BSUtFAGhpZ4YVo1m6Z95hWlQAUUUUAFJS0lACUUtJQAlFLTSwA5IFAAaKglvYY+N
2TVOTUXbIQYFAGi7KvU1Wkv4k6cms15pJOrGo6ALUt9I+dvAqszsxyxzSUlABRRR
QAGiiigAzWlZT71CMeazadE5jkDCgDaopscodAwPWigBlFFFABRRRQAUUUUAFFFF
ABRRRQAlGNzbB1NDHApWf7PCWb756UARXk3lp5SH61RpWYuxYnrSUAFFLSqpY4He
gCS3hMsgA6VtIgRdo7VBZ24hj9zVmgAooooAKKKKACiiigAqKeQRxM1S1Q1CTogo
Aos25iT3pKKKACiiigAoxRRQAYoNFFACUGlpKAEoIpaKAG0UpFFAF3TT+8IrTrK0
44mxWpQAtFFNaRV6kCgB1JVaS/iQ4HNVJdRduFGKANMsq9SKryXsSd8msp55H6sa
j696AL0upMeEFVHuJJM5Y4plJQAp5pKWkNABRRRQAlFFBoASiiigAoNFBoAKKKSg
CVJ3RdoPFFRUUAbFFFFABRRRQAUUUUAFFFFACUUtMlfYme9ACrguSfurVO4mM0hP
YVLcSMsYUd+tVaACgUoooABV2wg3vvI4FVY0LuFHetqGMRRhRQBJRRRQAUUUUAFF
FFABRRRQAhOBmse5fzJia07mTy4Se9Y5OTmgAooooAKKKKACiiigAooooAKKKBkm
gApOtSLDI/RDUyWErHngUAVaNpPStJNOQfeOasJbRJ0UUAZ1qrROJGBAqxJqKL90
Zqe6UfZ2wKxiKALMl/K/Q4qu0jv95iabRQAhopaSgAooooASjFLSUAJRSmigBKKD
RQAUlLSUAFJSmkoAKDRQaACkpaKAExRS0UAa9FFFABRRRQAUUUUAFFFFACVHEhuJ
/wDZFEzHG1epq7awiKP3NAFO+hI5FUMVvyxCRcGsyezZDlRxQBUpaUqQeRUkERll
CjpmgC5YQYHmMPpV+mooRQo7U6gAooooAKKKKACiiigAoopCcDNAFHUJOiCqGKnu
HLzHmosH0oATFJ+NPEbnopqQWsp6rQBDj1NGKtrYMetSrp6/xEmgDOxShGPQE1qr
ZxL2zUqxIvRRQBkrbSt/DUyafIepxWliloAprp8Y6nNTrbRL0UVLRQAgUDoKWiig
AooooAjnGYW+lYh61uyDMbD2rDYYY0ANxSU40lACUlLRQAlFBooAKKKKAEopaQ0A
JRS0hoAKKKKAEooooASg0tJQAUUUUAFFFFAGvRRRQAUUUUAFFFFACUMcKT6UVHJl
2ES9T1oAfaxmWXzD0HStGo4YxFGFFSUAFIQD1FLRQBBJaxPyRVVJoraQqBmrlxKI
oiax2JZiT1NAGmL6I9TUguoj/FWPijnNAG19oiH8QpPtEX94Vj/jRzQBsfaIv71I
bqIfxVkUuKANQ3kXrTTfxDpzWbRQBfOoL2WliuWnbZt4NUKu2CdWoAnFpEDnHNPE
EY/hFSUUAIFUdAKWiigAooooAKKKKACiiigAooooAKKKKACiiigBG+6axJR+9b61
tnpWNcDEzD3oAiNJTqTFACGkpSKSgApKWkNABRRRQAUlLSUAJRSmkoAKKKKAEooo
oAKSlpKAA0UGigAooooA16KKKACiiigAooooAQnAJp1lHvcyn8KiclmCL1PWtCJB
HGFoAfRRRQAUhpaiuJBFESaAKN9NvfYOgqpSsxZiT1NJQAUUuKPagApRRS0AJSii
igAoFLijpQAda1LVNsI96zo13SAVrKMKBQAtFFFABRRRQAUUUUAFFFFABRRRQAUU
UUAFFFFABRRRQAVkXq4uDWvWZqAxLmgCpSUtFACUhFLig0ANoNFFACUUtJQAUUUU
AJRS0hoASiiigBKKKKACkpaSgAooooAKKKKANeiiigAooooAKTNLTXyRtHU0APtI
98plI47VeqOFPLjC1JQAUUUUAFZl/LufYDwKvzyeXEWrGYlmLHvQAlLQBRigA60u
KWigAxRSijpQAYpQMUYpaAExmjFLS0ATWibpc+laNVbNcKWx1q1QAUUUUAFFFFAB
RRRQAUUUUAFFFFABRRRQAUUUUAFFFFABWfqI6GtCqeoLmIH0oAzaKKKAA0lLSUAJ
iilpDQAlIaWkoAKKMUUAFJS0lACUGlpDQAUlLSUABpKWigBKKKDQAUUUUAa9FFFA
BRRRQAUW4EkxPZaazbRmrVsm2POME0AT0UUUAFFFIx2qSe1AFHUJeAgP1qhUk7mS
Yn3plAC4oopaACgUUuKACl6iilAxQAUtFKKAEwaUA0YpyjLjFAGhAu2IVJSKMKBS
0AFFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFFFFABRRRQAVXvRmA1YqK5GYWoAxqK
DwcUUAFFFFACGkNOppoATFFLSUAJRQaKACiiigBDSGlNIaACkpaSgAoNFHWgBKKl
SCSTopwatRadnlz+FAFDFFbC28SDG0UUAJRRRQAUUUUAIE8yRV7dTV8DAwKrWi5y
/vVqgAooooAKq3suyLHc1ZrLvZfMlwOgoArcmnCkpRQAtGKKWgApaBS0AHalFFKB
QAYNL7d6OtLQAVLbrukFR4qxaj5iaALdFFFABRRRQAUUUUAFFFFABRRRQAUUUUAF
FFFABRRRQAUUUUAFNkGUI9qdSHkUAYjjDH602pZxiVh71FQAUUUUABpKWjFADaQ0
tIaAEopaQ0AJRQaKAA0hp4jZ/uqTU8djI/XgUAVackbv91TWlHYxp94ZqdY1X7ox
QBnR2Dt97irUdnFHzjJqzRQAiqq9BRRQaAEoozRQBDRRRQAlIx+WlqOZtoFAF+3U
LEAKlqK3O6EGpaACiiigCOd9kTH2rGJy2T3rQ1CTagUd6z8e4oAUUtIKdigA7UCg
YpRzQAuAaKKXFAC4pQKSnUAGMUoopQKADFW7ZcJn1qtV2IYjFAD6KKKACiiigAoo
ooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKAMq8GJzVc1cv1xKD7VT60AJRR
RQAUUUYJoAaaDUqQSP0U1YTTnb7xwKAKNOWN3+6prUSwiXqMmp1jVegAoAy47CRv
vcVajsI0681bNJQAxY1T7oFOxRRQAlJS0lAAaKKKACkNLTaACij8KKAIaKKKACqt
w/zYqyTgE1RlO5vxoA0dPl3R7fSrtYltMYZAR0rYjkEiAigB9J0pajmbZEx9qAM2
7kDzn2qEfhQTuYn1ooAUUtJmlFAC4yKXFJTqAAUuKBS0AHSnAUlOGaAAU7tQBRQA
o6iry8ACqcQzIKuigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiii
gAopCwHU1G1zEvVqAK2oL8oaqBrRaRLptgqRLOJe2aAMtUZvuqTUyWcrdsVqCNV6
KBTqAKCacP4jVlLWJOi81NRQAgUDoKWiigBKSlooAaaKDRQAlJS0lACGig0lABRR
RQAUlLSd6AEooOaKAIaKKKAI5jtjNUW5NWrk8AVV70AAqzb3LRMMniqwp1AG1HOk
gyDUF/IAgXPWs9JGQ/Kavm3NxGrE80AZ/Snc1K9rJH2zUeCOo/SgBOe1LSCnD6UA
Lz60tJS0ALTqQUuKAFFKPQUgAp46UAApaSigCW3GZPpVuq9sOpqxQAUUUUAFFFFA
BRRRQAUUUUAFFGQKaXUd6AHUVGZ0Heozc+goAsUZqobhj04phkY9TQBcMijvTGuI
x3qmSaaaALLXg7CoGunbocVGaQ9KABndurGozTqQ0ASWxxOtatY8ZxICK11OVH0o
AWiiigAooooAKKKKAEooooAaaKDRQAlIaWkNACGkNLSGgAooooAQ0UUlABRRRQBD
RRSUAVbg5fHpUFPlOXNMoAWnCmindKAHRLukAraQYQD2rLskDTj2rWoATGaY0KN1
UVJRQBVayQ/d4qM2TDoavUUAZ32Vx0FN8iQdRWnRQBmeWw7UBT6VpbR6UmxfQUAZ
4B9DTvwq9sX0FGxfSgClg+lGCe1Xtq+lG0elAEcAwnNSZHrUEzENgHFRZPrQBcyP
WjcPWquT60UAWS6jvSeatQdKKAJvOHYU3zj2FR0UAPMrU0yMe9JikoACT6mmmlpD
QAlJS0hoASiiigBD9abTz0phoAaRSGlNIRQA2kPWnU00AIDg575rWhbdEprJNadm
26Ae1AE9FFFABRRRQAUUUUAIaSlpKAEooooASkNFIaACkNLSUAFFFFACGkpTSUAF
FGaKAIKRzhSaWmT/AOqNAFJzliaSg9aBQAop1JS0AX9OTALGr9QWaBIB71PQAUUU
UAFFFFABRRRQAUUUUAFFFFABRRRQBUmP7ymilk5c0goAWlFIKWgBaKKKACiiigAp
KWkoAKQ0tJQA00lKaSgBDQKKWgBD0pmKeaYaAENNNONNNACU2nGmmgBD0q9YN8pB
qiatWLfvCKANCiiigAooooAKKKKAEpKU0lACUlLSUAIaSlpKAEoNLSGgAooooAQ0
lLmkoASiiigCKobnOzipar3RIwKAKp60opKUUAOFPRdzqPemCp7Vd06+1AGsg2oB
TqBRQAUUUUAFFFFABRRRQAUUUUAFFFFABQelFIxwpoApNyxpRSdSaWgBRS0maKAH
A0UlLQAUUUE0AFIaM0daAEzSGlpCaAEpKKKACkoooAQ00049aaaAExxTSaU0hoAS
kNBpDQAhqW2bbMtQmlQ4cH3oA2hRTUOVB9qdQAUUUUAFFFFACUmKWkoASkNLSGgB
DSUppKACkoNFABSUtFADcUUUUAJRRRQBDVW6b5gMdBVuqdz980AQUopKUUAOFXNP
XMu70qmK0dOTClqAL1FFFABRRRQAUUUUAFFFFABRRRQAUUUUAFMkOENPqObiM0AV
M0tJQKAHZopKWgBaWkooAWikooAKKKSgApM0ZxSGgAooooASig0E0ANPWmmnE+1N
oASmmlPWkNACGkNKabQAhpM4NKeuaQ0Aa1s26EGpqqWD7oselW6ACiiigAoopDQA
UlLTTQAUlLSUAJSUppKAEpKWkFAC0UUhoASg0UlABRRmigCGqU+cmrtVbpcKD70A
V6UUlKKAHCtaxXEA96yVGTW3AoWFQPSgCSiiigAooooAKKKKACiiigAooooAKKKK
ACo5/wDVmpKiuD+7xQBUpaSloAKXNJRQA7NGabS5oAWikzRmgAzRSUUAFFFJQAtF
FJQAU05zSk02gApppSabQAE02lpDQAh/WkNKab3oAKSik70AXdPbBK1oVk2bBZxW
tQAUUUUAFJS0lACUhpaSgBDSUppKAEooooASk7UtJ2oAWkNL2ptACUUtJQAUUUUA
Q025j/0bdTicDNWEUS2+D3FAGLSinSoUkKn1ptAD4xlwPU1uIMIB7ViwDMy/Wtsd
BQAtFFFABRRRQAUUUUAFFFFABRRRQAUUUUAFQXJ+Sp6guj8ooArUtNBpc0AFFLRQ
AUUlFAC0UlFABS0lFABS0hoNABSE0ZppPNABSUUmaAEJpKUmkoAO9NJpTTe9ABSU
GkJoAKTNLTaAHxNtlU1tKcqDWEDgg1s27boVNAEtFFFABSUtNoAKSiigBDSUGjNA
CUhpaQ0AFFFFACUhpe1IaAEooppYL1IFADqKgN5EDjNFACnoatW3+pFVT901btv9
SKAKl/b5/eKKzq6BlDDB6Gsm7tTExYD5TQA20Gbha2RWRYLmcVr0AFFFFABRRRQA
UUUUAFFFFABRRRQAUUUUAFV7voKsVWvPuigCsKXJptANADwaKbnmj8aAHUUmaM0A
LRSbqM0ALRTcntRxQAu7ikzSUUABpOlGaQnmgANJ2ozSGgAzSZozSGgAzTc0ppKA
EoNBpDQAh60UGigArT098xY9KzKuae2HIz1oA0qKKKAENITS02gApKU80lACGkpa
SgBKDQeKY8qJ95gKAHUVVkvo1+7zVaS+kbpwKANFpFQZJFV3vo06HNZrSO3VjTTz
QBak1B2J28VWeZ3PzMabRQAlFFFAGxVuAYiAqrVqA5joAlproHXDDIp1FAFSK3EE
5PY1aqnqDFUBBqO3viMK/wCdAGjRTUdXGVOadQAUUUUAFFFFABRRRQAUUUUAFFFF
ABVa8+6Ks1WvfuCgCmOtLmmigUAOzQDSZozQA7NGaTNFAC59aM0n40ZoAWk6UZxS
ZzQApNGaTNITQAtITzSE9KKAENFBpCaAD3pDRmkoAXNNpc0hoATNFIaKACiiigAN
TWjbZxUNKjbWBHrQBuDpRTY2zGD7UpYKOSMUAFJUT3USfxVWfUlH3RmgC8aYWA6n
FZj38rHjioHmkfqxoA1Xu4k/iqs+o9lFZ5+pooAnkvJX74qEuzdSTSUlABSdKU0h
oAKKKSgAoooNACUUUUAf/9k=
}

main-window: center-face layout [
	backdrop img effect [tile-view]
	key (escape) [unview quit]
	styles look-and-feel
	origin 2x2 space 2x2 across
	gui-hosts-list: cycle-list pad 08x0 refresh-btn
	gui-browse-button: browse-btn about-btn return
	gui-news-list: news-list
	gui-news-slider: news-slider return
	gui-timer: refresh-time rate 00:15:00
]

display-rss 1
view/title main-window "Live Bookmarks"

][
	alert rejoin [{We apologize, an unexpected error occurred (} get in disarm err 'id { error)}]
]
quit