1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
%
% anyremote configuration file for RSS reading. (Server-mode)
% based on configuration file from Domjan Svilkovic
%
% STATUS unknown
% XTEST no
% SOUND no
% ENV no
% Uncomment if needed
%AutoRepeat=false
%Baudrate=19200
%Device=bluetooth:19
%Log=true
Screen=true
GuiAppName=RSS Reader
GuiAppIcon=view_text.png
GuiAppType=Custom
GuiAppBinary=true
[Aliases]
% Cancel buttons on different phones
-11=Cancel
-8=Cancel
69=Cancel
[End]
[Keys]
(Init)=Exec(echo 'if [ ! -f ~/.rssfeeds ]; then echo "http://rss.slashdot.org/Slashdot/slashdot,http://feeds.feedburner.com/spaceheadlines,http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/world/rss.xml,http://newsrss.bbc.co.uk/rss/newsonline_uk_edition/sci/tech/rss.xml" > ~/.rssfeeds; fi;'|bash -f -s);
(Connect)=Set(icons,Rss Reader,1,view_tree,2,default,3,default,4,default,5,default,6,default,7,default,8,default,9,default,*,question,0,default,#,default);\
Macro(SHOW_FEEDS);\
Set(menu,add,Select);
Back=Set(text,close);
1=Macro(SHOW_FEEDS);Set(menu,replace,Select);
* *=Set(text,replace,Help,Press 1 to show list of feeds)
SHOW_FEEDS =ExecAndSet(list,replace,List of feeds,cat ~/.rssfeeds);
LOAD_FEED =Set(menu,clear);\
Set(menu,add,Wait!);\
Set(list,replace,Load feed,Loading ...);\
ExecAndSet(list,replace,SAME,echo 'wget $(Param) -O - 2>/dev/null|perl -pe "s/\n//g;s/</\n</g;s/\r/\n</g;" > $HOME/.anyRemote/feed.txt'|bash -f -s;echo Loading ...);\
Macro(SHOW_TITLES);\
Macro(PARSE_DSC);\
Set(menu,replace,Select);\
SetMode(FEED);
SET_ARTNUM =ExecAndSend(string,cat $HOME/.anyRemote/titles.txt|wc -l|tr -d ' '|awk '{ ORS="";print "Set\050text,add,$(Index)/";print $0;print ",\051;"}');
GET_FEEDNAME=ExecAndSend(string,grep '<title>' $HOME/.anyRemote/feed.txt |head -1|cut -f 2 -d '>'|awk '{ORS="";print "Set\050list,add,";print $0;print ",\051;"}');
SHOW_TITLES =Macro(GET_FEEDNAME);\
ExecAndSet(list,replace,SAME,cat $HOME/.anyRemote/feed.txt|awk '{ i=index($0,"\074item "); if(i==0) i=index($0,"\074item\076"); if(i==0) nextline; else { j=0; while (getline && j==0) { k=index($0,"\074title"); if(k!=0) { print $0;j=1; } } } }'|sed "s/'/\'/g"|cut -f 2 -d '>'|sed 's/,/\r/;s/\$/USD/g;s/$/,/' > $HOME/.anyRemote/titles.txt;cat $HOME/.anyRemote/titles.txt);
PARSE_DSC =Exec(cat $HOME/.anyRemote/feed.txt|awk '{ i=index($0,"\074item "); if(i==0) i=index($0,"\074item\076"); if(i==0) nextline; else { j=0; while (getline && j==0) { k=index($0,"\074description"); if(k!=0) { print $0;j=1; } } } }'|cut -f 2 -d '>' > $HOME/.anyRemote/descr.txt);
TYPE_TTL =ExecAndSet(list,replace,List of articles,cat $HOME/.anyRemote/titles.txt);
SHOW_ARTICLE=ExecAndSet(text,replace,SAME,cat $HOME/.anyRemote/descr.txt|head -$(Index)|tail -1|sed "s/'/\'/g;s/>/>/g;s/</</g");Exec(echo $(Index) > $HOME/.anyRemote/feed_idx.txt);
Select($$)=Macro(LOAD_FEED);
Back($$)=Set(list,close);
[Mode]=FEED
Select($$)=Set(text,replace,TEXT,Loading ...);Macro(SET_ARTNUM);Macro(SHOW_ARTICLE);
Back=Macro(TYPE_TTL);ExecAndSet(list,select,cat $HOME/.anyRemote/feed_idx.txt);Set(menu,replace,Select);
Back($$)=Macro(SHOW_FEEDS);SetMode(default);
[ModeEnd]
[End]
|
