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

.

Browse Source
This commit is contained in:
s434695 2021-04-19 23:58:35 +02:00
parent cc670f1f7c
commit c77fe1a502
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/pbsociety.hs
View File

@ -13,18 +13,19 @@ import Text.Printf
extractRecords = extractLinksWithText "//a[@class='image-link']" -- pary adres-tytuł extractRecords = extractLinksWithText "//a[@class='image-link']" -- pary adres-tytuł
>>> first (extractLinksWithText "//div/a[contains(@href,'.pdf') and not(@class)]") >>> first (extractLinksWithText "//div/a[contains(@href,'.pdf') and not(@class)]")
-- ... a tutaj te trójki przerabiamy do docelowej struktury ShadowItem -- ... a tutaj te trójki przerabiamy do docelowej struktury ShadowItem
toShadowItem :: ((String, String),String) -> ShadowItem toShadowItem :: ((String, String),String) -> ShadowItem
toShadowItem ((url, articleTitle), yearlyTitle) = toShadowItem ((url, articleTitle), yearlyTitle) =
(defaultShadowItem url title) { (defaultShadowItem url title) {
--originalDate = Just date,
itype = "periodical", itype = "periodical",
format = Just "pdf", format = Just "pdf",
finalUrl = url finalUrl = url
} }
where title = "Pbsociety " where title = "Pbsociety " ++ yearlyTitle ++ " " ++ articleTitle
--date = getDate url
getDate url = getDate url =
case url =~~ "/(19[0-9][0-9]|20[0-9][0-9])/" :: Maybe [[String]] of case url =~~ "/(19[0-9][0-9]|20[0-9][0-9])/" :: Maybe [[String]] of
Just [[_, year]] -> year Just [[_, year]] -> year