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

Fix tabulation

Browse Source
This commit is contained in:
Andrzej Preibisz 2022-05-05 21:24:26 +02:00
parent 7b1bbb03c2
commit be9828e447
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/zadanie.hs
View File

@ -12,7 +12,7 @@ import Text.Printf
extractNestedRecords = extractLinksWithText "//a[@class='archiveVolume' and not(contains(@href, '.PDF')) and not(contains(@href, '.pdf'))]" -- pary adres-tytuł extractNestedRecords = extractLinksWithText "//a[@class='archiveVolume' and not(contains(@href, '.PDF')) and not(contains(@href, '.pdf'))]" -- pary adres-tytuł
>>> second (arr $ replace "\r\n\t\t\t\t" "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków >>> second (arr $ replace "%09" "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków
>>> first (extractLinksWithText "//a[contains(@href,'.pdf')]") -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego >>> first (extractLinksWithText "//a[contains(@href,'.pdf')]") -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego
-- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika) -- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika)
@ -28,7 +28,7 @@ toShadowItem ((url, articleTitle), yearlyTitle) =
format = Just "pdf", format = Just "pdf",
finalUrl = url finalUrl = url
} }
where title = "Zagadnienia ekonomiki rolnej " ++ yearlyTitle ++ " " ++ (replace "\r\n" "" (replace "\r\n " "" articleTitle)) where title = "Zagadnienia ekonomiki rolnej " ++ (replace "\t" "" (replace "\r\n" "" yearlyTitle)) ++ " " ++ (replace "\t" "" (replace "\r\n" "" (replace " " "" articleTitle)))
date = getDate yearlyTitle date = getDate yearlyTitle
toShadowItemTop :: (String, String) -> ShadowItem toShadowItemTop :: (String, String) -> ShadowItem
@ -39,7 +39,7 @@ toShadowItemTop (url, articleTitle) =
format = Just "pdf", format = Just "pdf",
finalUrl = url finalUrl = url
} }
where title = "Zagadnienia ekonomiki rolnej " ++ " " ++ (replace "\r\n" "" (replace "\r\n " "" articleTitle)) where title = "Zagadnienia ekonomiki rolnej " ++ " " ++ (replace "\t" "" (replace "\r\n " "" articleTitle))
date = getDateTop url date = getDateTop url