s434742/twilight-library
1
0
Fork 0
forked from filipg/twilight-library
Code Issues Pull Requests Releases Wiki Activity

doesnt work properly

Browse Source
This commit is contained in:
patrycjalazna 2021-04-13 11:02:33 +02:00
parent 4873d78172
commit 931fcdbdb6
1 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
app/geojournals.hs
View File

@ -13,8 +13,21 @@ import Text.Printf
extractRecords = extractLinksWithText "//p//a[contains(@href,'gov.pl'), text()='View Journal']"
-- extractRecords = extractLinks "//a[@class='action' and text() = 'View Journal']"
-- >>> arr ((++"/issue/archive") . init)
-- >>> extractLinksWithText "//div/h4[contains(@class, 'Vol')]/a"
extractRecords = extractLinksWithText "//a[@class='action' and text() = 'View Journal']" -- pary adres-tytuł
>>> second (arr $ replace "\r\n " " ") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków
>>> first (arr ((++"/issue/archive") . init)) -- modyfikujemy pierwszy element pary, czyli adres URL
>>> first (extractLinksWithText "//div/h4[contains(@class, 'Vol')]/a")
-- >>> first (extractLinksWithText "//div[@class='tocTitle']/a")
-- >>> first (arr ((++"/pdf") . init))
-- >>> second (arr $ replace "2020")
-- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika)
toShadowItem :: ((String, String), String) -> ShadowItem
toShadowItem ((url, articleTitle), yearlyTitle) =
@ -24,19 +37,23 @@ toShadowItem ((url, articleTitle), yearlyTitle) =
format = Just "pdf",
finalUrl = url
}
where title = "Geo Journal " ++ yearlyTitle ++ " " ++ (replace "\r\n" "" (replace "\r\n " "" articleTitle))
date = getDate url
where title = "Geo Journal OOO" ++ yearlyTitle ++ " AAAAA" ++ (replace "\r\n" "" (replace "\r\n " "" articleTitle))
date = "202020"
getDate url =
case url =~~ "/(19[0-9][0-9]|20[0-9][0-9])/" :: Maybe [[String]] of
Just [[_, year]] -> year
otherwise -> error $ "unexpected url: " ++ url
-- getDate url =
-- case url =~~ "/(19[0-9][0-9]|20[0-9][0-9])/" :: Maybe [[String]] of
-- Just [[_, year]] -> year
-- otherwise -> error $ "unexpected url: " ++ url
main = do
let start = "https://geojournals.pgi.gov.pl"
let shadowLibrary = ShadowLibrary {logoUrl=Nothing,
lname="Polish Geological Journals",,
lname="Polish Geological Journals",
abbrev="geojour",
lLevel=0,
webpage=start}