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)
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
fix code formatting for remove requesters 535d4b6515a4744e0b6af6090daadbb85f38b8cf Alex 2022-07-12 23:04:43
implement adding of single feed e938d0a6d769c7caf876dfdba9f43ce668eb4690 Alex 2022-07-12 22:05:10
implement group adding d347e25e93e94f711c4098fecc9775af22eb7309 Alex 2022-07-12 20:12:00
make parser to work somehow bb968a00680246434eb1f9795ebde4babea3fb05 Alex 2022-07-12 05:19:43
some preparations for parsing 0259ef32db69fdb45bc9e67d88c74aca4ae69ce6 Alex 2022-07-12 03:59:45
prepare png icon b7dc494acb640d92c5b7b49bc2ee93fd5a0d521c Alex 2022-07-11 07:17:47
fetching is ready 0d01c38238a2ea7e39bc671de1997294231d8549 Alex 2022-07-11 06:37:06
read feeds from feeds.json U¾ivatel asi bude chtit mít své fidy u sebe de14a1e9f5a99f79e44985073df04e89bae2c116 Alex 2022-07-11 01:26:52
prepare default feeds d2b45f0007c30da84662b8b2a1f2118d03e30e1f Alex 2022-07-11 01:25:58
prepare Lock&Unlock f76041ef4fa2b6d5301afb34bda5de13f8ff2701 Alex 2022-07-10 00:37:38
prepare downloading routines f12d337da75c3cefe4ef0ccb3f08472e7701b058 Alex 2022-07-09 23:52:36
move default feeds to feeds.hws 6efc0f7c1767a2feba618938c8f83eab43f93b0e Alex 2022-07-09 14:16:44
set up EmptyNodes attribute 41e19a0974fbf63f959fe7e3135d2efb9cb48ce6 Alex 2022-07-09 11:44:03
disable icon menu 540099f84a9d1a567dd079ca8ba5ac667ec8945f Alex 2022-07-08 23:37:47
implement tree manipulation commands dfa3a877079a75d7c5a724bb9c6e84a6db1d4677 Alex 2022-07-08 21:07:10
implement coping to clipboard 380b60dad4bd182a92199db5cde4339baaa84521 Alex 2022-07-08 20:35:05
Commit 76b6472a8ad28564a55c6bd39f55ba050dd3599f - prepare code for Explore
Author: Alex
Author date (UTC): 2022-07-13 19:05
Committer name: Alex
Committer date (UTC): 2022-07-13 19:05
Parent(s): 8f7ae012ede287fc6e20fd5727fd215293c75b25
Signer:
Signing key:
Signing status: N
Tree: 8dcf198b5379343cdf8a915c00a8e163f9252356
File Lines added Lines deleted
IvoRSS.hws 21 1
lurk.hws 51 0
File IvoRSS.hws changed (mode: 100755) (index 17efb1b..cccab73)
21 21 ;@INCLUDE "feeds.hws" ;@INCLUDE "feeds.hws"
22 22
23 23 @INCLUDE "feedtree.hws" @INCLUDE "feedtree.hws"
24 @INCLUDE "lurk.hws"
24 25 @INCLUDE "IvoR.hws" @INCLUDE "IvoR.hws"
25 26
26 27 @BRUSH 1, "128px-Feed-icon.png", {LoadAlpha=True, ScaleHeight=32, ScaleWidth=32} @BRUSH 1, "128px-Feed-icon.png", {LoadAlpha=True, ScaleHeight=32, ScaleWidth=32}
 
... ... Function p_MUIEvent(msg)
187 188 Case "stopbtn": Case "stopbtn":
188 189 p_Unlock() p_Unlock()
189 190
191 Case "herewegobtn":
192 p_StartLurk()
193 Case "stoplurkbtn":
194 lurk.PleaseStop = True
195
196
197
190 198 EndSwitch EndSwitch
191 199 EndSwitch EndSwitch
192 200 EndFunction EndFunction
 
... ... Function p_Unlock()
323 331 EndFunction EndFunction
324 332
325 333
334 Function p_StartLurk()
335 mui.Set("herewegobtn", "Disabled", True)
336 mui.Set("stoplurkbtn", "Disabled", False)
337 lurk.PleaseStop = False
338
339 lurk:Explore(mui.Get("websource", "Contents"))
340
341 mui.Set("stoplurkbtn", "Disabled", True)
342 mui.Set("herewegobtn", "Disabled", False)
343 EndFunction
344
345
346
326 347
327 348
328 349 mui.CreateGUI(ReadString(1)) mui.CreateGUI(ReadString(1))
 
... ... InstallEventHandler({MUIRoyale = p_MUIEvent})
331 352 p_StartUpLoading() p_StartUpLoading()
332 353
333 354
334
335 355 Repeat Repeat
336 356 WaitEvent WaitEvent
337 357 Forever Forever
File lurk.hws added (mode: 100755) (index 0000000..f1ecf17)
1
2
3
4 lurk = {PleaseStop=True}
5 ;č jako v celé té appce i zde se pevně zavážeme
6 ;č na struktury grafického rozhraní a jejich metody,
7 ;č na MUI Royale.
8 ;č předělávání nás tedy bude bolet...
9
10
11 Function lurk:set_status(s$)
12 mui.Set("lurkstatus", "Contents", s$)
13 EndFunction
14
15 Function lurk:Replay(err_code, msg$)
16 self:set_status(
17 IIf(err_code = #ERR_NONE, msg$, "\27b" .. GetErrorName(err_code)))
18 EndFunction
19
20 ;č tohle nejde udělat jako method -
21 ;č volající kód by asi musel ho i správně volat
22 Function lurk_callback(t)
23 If t.Action = #DOWNLOADFILE_STATUS
24 lurk:set_status(t.Count .. "/" .. t.Total .. " read from " .. t.UserData)
25 CheckEvents() ; keep MUI responsive
26 Return(lurk.PleaseStop)
27 EndIf
28 EndFunction
29
30
31 ;č stáhnout soubor
32 Function lurk:Explore(url$)
33 self.PleaseStop = False
34 ;č zjednodušená kontrola, pokud řetězec obsahuje procenta,
35 ;č považujeme ho za "eskejpnutý".
36 ;č Na případ, kdy uživatel strčí do URLu osamělý znak procenta vysereme
37 ;FindStr(s$, "%") <> -1
38 Local err_code, html$, count = ?DownloadFile(url$,
39 {Adapter="hurl", Fail404=True, Encoded=FindStr(url$, "%") <> -1},
40 lurk_callback, url$)
41 If self.PleaseStop
42 self:set_status("interrupted")
43 Return()
44 EndIf
45 If err_code = #ERR_NONE
46 self:set_status(count .. "bytes from " .. url$ .. " transmitted")
47
48 Else
49 self:set_status("\27b" .. GetErrorName(err_code))
50 EndIf
51 EndFunction
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