iam-git / IvoRSS (public) (License: MIT) (since 2022-06-16) (hash sha1)
simple RSS client for Amiga flavor OSes
Clone URLs: https://rocketgit.com/user/iam-git/IvoRSS ssh://rocketgit@ssh.rocketgit.com/user/iam-git/IvoRSS git://git.rocketgit.com/user/iam-git/IvoRSS
main
List of commits:
Subject Hash Author Date (UTC)
implement Load/Save feeds' tree ce6ded536ef07a49e96f181c07c84c1239ef607d Alex 2022-07-05 23:10:44
implement feed tree filling dad148576a106072f87be33803e7a916cb044d35 Alex 2022-07-05 17:09:20
implement item selection b42586a38c98a4087937b8f85f7dd2570cb61bf7 Alex 2022-06-19 02:42:29
show items list ee6686fc57690fc236aefc334861dbf0fd65b2ce Alex 2022-06-19 01:42:38
parse channel title and description 96ec5e38931158d27a75c0fe922fd14a8647dba1 Alex 2022-06-18 23:53:49
add XML parser... 4f2d6297a47fe2f9f377bf9ce5afd9545cf9ae2f Alex 2022-06-18 14:29:17
prepare textfield b88f2e78f55a4ba7e62f674bcdf38615f3d3eb09 Alex 2022-06-18 02:35:37
initial commit 702a1b31f80bf565bf20cc6ecc4e9d748d772363 Alex 2022-06-17 23:42:13
Commit ce6ded536ef07a49e96f181c07c84c1239ef607d - implement Load/Save feeds' tree
Author: Alex
Author date (UTC): 2022-07-05 23:10
Committer name: Alex
Committer date (UTC): 2022-07-05 23:10
Parent(s): dad148576a106072f87be33803e7a916cb044d35
Signer:
Signing key:
Signing status: N
Tree: ca4062ebd41d4b8d3a22662de4831587590e4715
File Lines added Lines deleted
AppWindow.xml 2 2
IvoRSS.hws 12 11
feedtree.hws 13 13
File AppWindow.xml changed (mode: 100755) (index 56602c7..3e06093)
1 1 <?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
2 <application id="app" base="IVORSS">
2 <application id="app" base="IVORSS" icon="IvoRSS.info">
3 3 <menustrip id="mainstrip"> <menustrip id="mainstrip">
4 4 <menu title="Project"> <menu title="Project">
5 5 <item id="menu_about" notify="selected">About...</item> <item id="menu_about" notify="selected">About...</item>
 
15 15
16 16 <window id="win" muiid="MAIN" title="IvoRSS" screentitle="IvoRSS" notify="closerequest" menustrip="mainstrip" appwindow="true"> <window id="win" muiid="MAIN" title="IvoRSS" screentitle="IvoRSS" notify="closerequest" menustrip="mainstrip" appwindow="true">
17 17 <hgroup> <hgroup>
18 <listtree id="feedtree" title="RSS feeds" notify="active" />
18 <listtree id="feedtree" title="RSS feeds" weight="50" notify="active" />
19 19 <vgroup> <vgroup>
20 20 <text id="channel_title" PreParse="\33b"/> <text id="channel_title" PreParse="\33b"/>
21 21 <text id="channel_description"/> <text id="channel_description"/>
File IvoRSS.hws changed (mode: 100755) (index b94ff01..6b003da)
1 1 @VERSION 6,0 @VERSION 6,0
2 2 @APPTITLE "IvoRSS" @APPTITLE "IvoRSS"
3 @APPVERSION "$VER: IvoRSS 0.1 (16.6.22)"
3 @APPVERSION "$VER: IvoRSS 0.2 (5.7.22)"
4 4 @APPCOPYRIGHT "© 2022, Aleksei Gerasimov" @APPCOPYRIGHT "© 2022, Aleksei Gerasimov"
5 5 @APPAUTHOR "Aleksei Gerasimov" @APPAUTHOR "Aleksei Gerasimov"
6 6 @APPDESCRIPTION "Simple RSS reader" @APPDESCRIPTION "Simple RSS reader"
 
... ... p:Close()
130 130
131 131
132 132
133 ; dFeeds is imported from feedtree.hws
134 prf = {feeds=dFeeds, feedsdata={}}
135 LoadPrefs(prf)
133 136
134
135
136 p_FillListTree("feedtree", dFeeds) ; dFeeds is imported from feedtree.hws
137
137 p_FillListTree("feedtree", prf.feeds)
138 138
139 p_DumpListTree("feedtree", "root", 0)
139
140 140
141 141
142 142 ;sum$ = MD5Str(s$) ;sum$ = MD5Str(s$)
 
... ... p_DumpListTree("feedtree", "root", 0)
145 145
146 146 ;t = CreateList() ;t = CreateList()
147 147
148 ; prf = {lastfile$ = "test.txt", lastxpos = 100, lastypos = 200}
149 ; SavePrefs(prf)
150 148
151 ;prf = {lastfile$ = "Unnamed", lastxpos = 0, lastypos = 0}
152 ; LoadPrefs(prf)
149
150
153 151
154 152
155 153
156 154 ;Print(GetCatalogString(4, "default string")) ;Print(GetCatalogString(4, "default string"))
157 155
158 156 Repeat Repeat
159 WaitEvent
157 WaitEvent
158 cFeeds = p_DumpFeedTree("feedtree")
159 prf = {feeds=cFeeds, feedsdata={}}
160 SavePrefs(prf)
160 161 Forever Forever
File feedtree.hws changed (mode: 100755) (index 16bcef5..e11c682)
... ... Function p_FillListTree(listtree$, treetable)
49 49 EndFunction EndFunction
50 50
51 51
52 Function p_DumpFeedTree(listtree$)
53 cFeeds = CreateList() ;currentFeeds
54 p_DumpListTree(listtree$, cFeeds, "Root", "Root")
55 Return(cFeeds)
56 EndFunction
57
52 58
53
54
55 Function p_DumpListTree(id$, node, indent)
56 Local found, t = mui.DoMethod(id$, "GetEntry", node, "Head", "")
57 While found = True
58 If indent > 0
59 DebugPrint(RepeatStr(" ", indent) ..
60 IIf(t.Node = True, "+", "") .. t.name)
61 Else
62 DebugPrint(IIf(t.Node = True, "+", "") .. t.name)
63 EndIf
64 If t.Node = True Then p_DumpListTree(id$, t.muiid, indent + 4)
65 found, t = mui.DoMethod(id$, "GetEntry", t.muiid, "Next", "")
59 ;č tohle musí být rekurzivní
60 Function p_DumpListTree(listtree$, tabletree, nodeid, muiid)
61 Local isFound, t = mui.DoMethod(listtree$, "GetEntry", muiid, "Head", "")
62 While isFound
63 InsertItem(tabletree, {id=t.id, name=t.name, isNode=t.node, parent=nodeid})
64 If t.Node = True Then p_DumpListTree(listtree$, tabletree, t.id, t.muiid)
65 isFound, t = mui.DoMethod(listtree$, "GetEntry", t.muiid, "Next", "")
66 66 Wend Wend
67 67 EndFunction EndFunction
68 68
Hints:
Before first commit, do not forget to setup your git environment:
git config --global user.name "your_name_here"
git config --global user.email "your@email_here"

Clone this repository using HTTP(S):
git clone https://rocketgit.com/user/iam-git/IvoRSS

Clone this repository using ssh (do not forget to upload a key first):
git clone ssh://rocketgit@ssh.rocketgit.com/user/iam-git/IvoRSS

Clone this repository using git:
git clone git://git.rocketgit.com/user/iam-git/IvoRSS

You are allowed to anonymously push to this repository.
This means that your pushed commits will automatically be transformed into a merge request:
... clone the repository ...
... make some changes and some commits ...
git push origin main