Adding some more nice blogs to the roll and fixing styles

unorsk · unorsk · commit dfa9bddb92fe · 2025-07-03T15:17:49.000+02:00
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for blogroll
 
+## 1.0.2 -- 2025-07-03
+
+* Better css styling
+
 ## 1.0.1 -- 2025-07-02
 
 * Updated project naming from "feed-reader" to "blogroll" throughout
diff --git a/app/Main.hs b/app/Main.hs
@@ -94,10 +94,10 @@ renderHtml entries =
 }
 body {
   font-family: 'IBM Plex Sans', -apple-system, BlinkMacSystemFont, sans-serif;
-  line-height: 1.6;
   max-width: 800px;
   margin: 0 auto;
-  padding: 20px;
+  padding-left: 20px;
+  padding-right: 20px;
   color: #333;
 }
 h1 {
@@ -110,8 +110,8 @@ ul {
   padding: 0;
 }
 li {
-  margin: 12px 0;
-  padding: 8px;
+  padding-left: 8px;
+  padding-bottom: 8px;
   border-left: 3px solid #3498db;
   background: #f8f9fa;
 }
@@ -125,11 +125,12 @@ a:hover {
 }
 .date {
   color: #7f8c8d;
-  font-size: 0.9em;
+  font-size: 0.6em;
 }
 .source {
   color: #95a5a6;
   font-size: 0.8em;
+  padding-left: 0.5em;
 }
 </style>
 </head><body>
@@ -141,12 +142,16 @@ a:hover {
 """
   where
     renderEntry entry = T.concat
-      [ "<li><a href=\"", entryLink entry, "\">"
-      , entryTitle entry, "</a><br>"
-      , "<span class=\"date\">", T.pack $ formatTime defaultTimeLocale "%Y-%m-%d" (entryDate entry), "</span> "
-      , "<span class=\"source\">(", entrySiteUrl entry, ")</span></li>"
+      [ "<li><div><a href=\"", entryLink entry, "\">"
+      , entryTitle entry, "</a><span class=\"source\">(", extractDomain (entrySiteUrl entry), ")</span></div>"
+      , "<div class=\"date\">", T.pack $ formatTime defaultTimeLocale "%Y-%m-%d" (entryDate entry), "</div></li>"
       ]
 
+extractDomain :: Text -> Text
+extractDomain url =
+  let withoutProtocol = T.drop (T.length "https://") url
+  in T.takeWhile (/= '/') withoutProtocol
+
 main :: IO ()
 main = do
   urls <- readBlogroll "blogroll.txt"
diff --git a/blogroll.cabal b/blogroll.cabal
@@ -20,7 +20,7 @@ name:               blogroll
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            1.0.1
+version:            1.0.2
 
 -- A short (one-line) description of the package.
 -- synopsis:
diff --git a/blogroll.txt b/blogroll.txt
@@ -1,5 +1,6 @@
 https://andrewkelley.me/rss.xml
 https://mitchellh.com/feed.xml
+https://jezenthomas.com/feed.xml
 https://notes.eatonphil.com/rss.xml
 https://www.jeremykun.com/index.xml
 https://www.dbreunig.com/feed.xml
diff --git a/index.html b/index.html
