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)
bold unread articles (It wasn't planned before) 35a66771b2285811a5c5f8adefafdda4d2bf4e38 Alex 2022-07-19 00:11:29
dodat i zmìny z IvoRSS 78d71c13bd806cf849eb16d1a672aea5551b6b2c Alex 2022-07-18 02:14:12
totálnì hustej HTML parsing je implementován eeba45d9811c83e9199d3a5929102c192e54b216 Alex 2022-07-18 02:11:49
add show source feature 8c963667a609e9c91f5a94963786ca2e4a7f88a4 Alex 2022-07-17 03:46:17
IvoR: if parser falls, try to convert to utf-8 from system encoding ea17d81bc65b6a5e79d202d5a6b36fcae854cc1b Alex 2022-07-17 02:33:02
feedtree: add Copy URL option to context menu a9170b64e6b1bca22cb807a7afa0fe35b6611cbe Alex 2022-07-16 23:00:07
feedtree: keep track of the latest guid fa1cf2508ade717fc3aa3bf8224a51b685e1636b Alex 2022-07-16 22:42:30
lurk: track parsed position, show meaningful status to user 80ce4ada68e657b196b4e173747a873a54f33c36 Alex 2022-07-16 13:34:54
small fix, polo¾ky pøebarvíme v¾dycky 6b408d667cb85f06e21767c6bbd77c2bfd9a2ac7 Alex 2022-07-16 04:05:04
tree part is ready 67d1bde2bcee775f23f8fc03cc474fd6b06c390b Alex 2022-07-16 03:28:08
finish feeds tree deea8b12636ba4a19ee256629a9a2a9874baf9c1 Alex 2022-07-15 17:10:11
Explore window is ready... 959e6dbf4fc77e315ac12847a481e25f50785ed4 Alex 2022-07-14 22:13:38
fixes in lurk code d741423d070a4d51b76d270fac70e0b0c3d04035 Alex 2022-07-14 15:29:42
Clear explored list by inbuild function 9ec9232bf28d0d83461e89fa89e8105983d5e3ba Alex 2022-07-14 14:09:54
implement URL constructing (complement URLs) f4798ed246e9c6d4b1a611b48ed5a7eb28c8938d Alex 2022-07-14 01:16:31
parser part of Explore is ready 87b01db3296eab71b2a510c4d0924127efac1a7f Alex 2022-07-13 22:36:39
prepare code for Explore 76b6472a8ad28564a55c6bd39f55ba050dd3599f Alex 2022-07-13 19:05:02
advance Explore window by statusbar and Stop button 8f7ae012ede287fc6e20fd5727fd215293c75b25 Alex 2022-07-13 17:24:24
prepare Explore window 9da7bcfcc06c986dd4ece8813096a9086ad690fc Alex 2022-07-13 01:59:32
comment out Edit option: není na to podpora v MUI Royale. Posunout polo¾ky menu, aby kursor nedopadal poøad na Remove 46c2f3cbbc2912eefb9504c7632f65ed57bc47e5 Alex 2022-07-12 23:14:48
Commit 35a66771b2285811a5c5f8adefafdda4d2bf4e38 - bold unread articles (It wasn't planned before)
Author: Alex
Author date (UTC): 2022-07-19 00:11
Committer name: Alex
Committer date (UTC): 2022-07-19 00:11
Parent(s): 78d71c13bd806cf849eb16d1a672aea5551b6b2c
Signer:
Signing key:
Signing status: N
Tree: 009bcc533f17d13b4536b3d93c7dae031e6674b0
File Lines added Lines deleted
IvoR.hws 62 18
IvoRSS.hws 1 5
File IvoR.hws changed (mode: 100755) (index d380be7..3cf6263)
... ... IvoR.parsers = CreateList()
8 8
9 9
10 10 Function IvoR:Load(feedid$) Function IvoR:Load(feedid$)
11 ;DebugPrint(p_GetXMLname(feedid$))
12 11 Local err_code, xml$, _len = ?FileToString(p_GetXMLname(feedid$)) Local err_code, xml$, _len = ?FileToString(p_GetXMLname(feedid$))
13 12 ; když máme chybu, tak rovnou končíme ; když máme chybu, tak rovnou končíme
14 13 If err_code <> #ERR_NONE If err_code <> #ERR_NONE
 
... ... Function IvoR:Load(feedid$)
16 15 Return() Return()
17 16 EndIf EndIf
18 17
18 ;č dále je třeba pozastavit případný parser "z minula"
19 local lastP = GetItem(IvoR.parsers, -1)
20 If Not isNil(lastP) Then lastP:Stop()
19 21
22 ;č teprve teď uklízíme
20 23 Ivor:Clear() Ivor:Clear()
21 24
22 25 ; TODO: load icon ; TODO: load icon
23 26
24 local lastP = GetItem(IvoR.parsers, -1)
25 If Not isNil(lastP) Then lastP:Stop()
26 27
27
28 ;č a vytahujeme seznam přečteného
29 Local t = fd_Get(feedid$, "guids")
30 If GetType(t) = #TABLE
31 self.oldguids = t
32 Else
33 self.oldguids = {}
34 EndIf
35
36 ;č na konci tohle nahradí už "staré" guids
37 ;č Je to aby se staré, nejspíš i nedostupné zápisy nehromadily.
38 ;č Funkce "pravé" strany budou rovnou psát do IvoR.guids
39 self.guids = {}
40
28 41
29 42
30 43 Local p = XMLParser.New({StartElement = StartElement, EndElement=EndElement, CharacterData = CharacterData}) Local p = XMLParser.New({StartElement = StartElement, EndElement=EndElement, CharacterData = CharacterData})
 
... ... Function IvoR:Load(feedid$)
47 60 ;č moc se mně neptejte, ale zdá se, ;č moc se mně neptejte, ale zdá se,
48 61 ;č že se vracejí odlišné chyby se stejným kódem ;č že se vracejí odlišné chyby se stejným kódem
49 62 If errorname = "Error closing parser: unknown encoding!" If errorname = "Error closing parser: unknown encoding!"
50 DebugPrint("Eště jeden pokus...")
51 63
52 64 Ivor:Clear() Ivor:Clear()
53 65
 
... ... Function IvoR:Load(feedid$)
78 90 DebugPrint("Parser closed", ListItems(Ivor.parsers)) DebugPrint("Parser closed", ListItems(Ivor.parsers))
79 91 RemoveItem(Ivor.parsers) RemoveItem(Ivor.parsers)
80 92 EndIf EndIf
93
94 fd_Set(feedid$, "guids", self.guids)
95
81 96 EndFunction EndFunction
82 97
83 98
99 Function IvoR:ShowArticle(pos)
100 If pos >= 0
101 Local chosen_item = self.items_list[pos]
102 mui.Set("item_title", "Contents", tf_Label(chosen_item.title))
103 mui.Set("textfield", "Text", tf_TextField(chosen_item.description))
104
105 If Not HaveItem(self.guids, chosen_item.guid)
106 mui.DoMethod("articles", "Rename", pos,
107 chosen_item.title,
108 chosen_item.pubdate,
109 chosen_item.category)
110 self.guids[chosen_item.guid] = 1
111 EndIf
112 EndIf
113 EndFunction
114
84 115 Function IvoR:Clear() Function IvoR:Clear()
85 116 mui.Set("channel_title", "Contents", "") mui.Set("channel_title", "Contents", "")
86 117 ;mui.Set("channel_title", "ContextMenu", "(none)") ;mui.Set("channel_title", "ContextMenu", "(none)")
 
... ... Function IvoR:Clear()
99 130
100 131
101 132
102 items_list = CreateList() ;č ten necháme globálním
133 self.items_list = CreateList()
103 134 channel_level = True channel_level = True
104 135 current_element$ = Nil current_element$ = Nil
105 136
106 current_item = {title="", pubdate="", category="", description=""}
137 current_item = {title="", pubdate="", category="", description="", guid=""}
107 138 EndFunction EndFunction
108 139
109 140
 
... ... Function EndElement(p, name$)
125 156 ;DebugPrint("ends ", name$) ;DebugPrint("ends ", name$)
126 157 current_element$ = nil current_element$ = nil
127 158 If name$ = "item" If name$ = "item"
159 Local preparse = ""
160 If HaveItem(IvoR.oldguids, current_item.guid)
161 IvoR.guids[current_item.guid] = 1
162 preparse = ""
163 Else
164 preparse = "\27b"
165 EndIf
128 166 mui.DoMethod("articles", "Insert", "Bottom", mui.DoMethod("articles", "Insert", "Bottom",
129 current_item.title,
130 current_item.pubdate,
131 current_item.category)
132 InsertItem(items_list, current_item)
167 preparse .. current_item.title,
168 preparse .. current_item.pubdate,
169 preparse .. current_item.category)
170 InsertItem(IvoR.items_list, current_item)
133 171 CheckEvents() CheckEvents()
134 current_item = {title="", pubdate="", category="", description=""}
172 current_item = {title="", pubdate="", category="", description="", guid=""}
135 173 EndIf EndIf
136 174 EndFunction EndFunction
137 175
 
... ... Function CharacterData(p, str$)
143 181 If current_element$ = "title" Then mui.Set("channel_title", "Contents", tf_Label(str$)) If current_element$ = "title" Then mui.Set("channel_title", "Contents", tf_Label(str$))
144 182 If current_element$ = "description" Then mui.Set("channel_description", "Contents", tf_Label(str$)) If current_element$ = "description" Then mui.Set("channel_description", "Contents", tf_Label(str$))
145 183
146 else
147 If current_element$ = "title" Then current_item.title = tf_Label(str$)
148 If current_element$ = "pubDate" Then current_item.pubdate = tf_Label(str$)
149 If current_element$ = "description" Then current_item.description = current_item.description ..str$
150 If current_element$ = "category"
184 Else
185 Switch current_element$
186 Case "title": current_item.title = tf_Label(str$)
187
188 ;č číselné hodnoty se nějak špatně načítají.
189 ;č fakt je nějaký problém v tom serializatoru
190 Case "guid": current_item.guid = "guid:" .. str$
191 Case "pubDate": current_item.pubdate = tf_Label(str$)
192 Case "description":
193 current_item.description = current_item.description ..str$
194 Case "category":
151 195 If current_item.category = "" If current_item.category = ""
152 196 current_item.category = tf_Label(str$) current_item.category = tf_Label(str$)
153 197 Else Else
154 198 current_item.category = current_item.category .. ", " .. tf_Label(str$) current_item.category = current_item.category .. ", " .. tf_Label(str$)
155 199 EndIf EndIf
156 Endif
200 EndSwitch
157 201 EndIf EndIf
158 202 EndFunction EndFunction
159 203
File IvoRSS.hws changed (mode: 100755) (index 5bee205..1b61d76)
... ... Function p_MUIEvent(msg)
176 176 Case "Listview": Case "Listview":
177 177 Switch msg.ID Switch msg.ID
178 178 Case "articles": Case "articles":
179 If msg.TriggerValue >= 0
180 Local chosen_item = items_list[msg.TriggerValue]
181 mui.Set("item_title", "Contents", tf_Label(chosen_item.title))
182 mui.Set("textfield", "Text", tf_TextField(chosen_item.description))
183 EndIf
179 IvoR:ShowArticle(msg.TriggerValue)
184 180 Case "foundfeeds": Case "foundfeeds":
185 181 lurk:AddFromlist("Active") lurk:AddFromlist("Active")
186 182 EndSwitch EndSwitch
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