Update icons and fix cover

resources/themes/light/index.html

@@ -44,7 +44,7 @@
                                 {% if article.cover %}
                                 <img loading="lazy" src="{{ article.cover }}" alt="{{ article.title }}">
                                 {% else %}
-                                <canvas class="article__random-background"></canvas>
+                                <img loading="lazy" src="static/img/newsreader-not-cover.png" alt="Not cover">
                                 {% endif %}
                             </a>
                         </p>

resources/themes/light/static/css/main.css

@@ -85,8 +85,8 @@ pre {
 
 .article__header-img > a > img {
     height: var(--height-img);
-    object-position: center;
-    object-fit: contain;
+    object-position: top;
+    object-fit: cover;
 }
 .article__random-background {
     height: 100%;

resources/themes/light/static/css/mobile.css

@@ -4,4 +4,10 @@
 
 .subtitle {
     font-size: 1rem;
+}
+
+.article__header-img > a > img {
+    height: initial;
+    object-position: initial;
+    object-fit: initial;
 }

src/rsspaper/feeds.clj

@@ -40,10 +40,13 @@
   ;; Add cover to article search first image in description
   ;; Iterate every blog
   (map (fn [article]
-         (let [url-article (get-in article [:feed :link])
+         ; User feedback
+         (prn (str  "Looking for cover image for article > " (:link article)))
+         ; Search cover image
+         (let [url-article (:link article)
                html (:body (client/get url-article {:insecure? true}))
                url-og-image (second (re-find #"<meta[^>].*?property=\"og:image(?::url)?\".*?content=\"(.*?)\".*?>|<meta[^>].*?content=\"(.*?)\".*?property=\"og:image(?::url)?\".*?>" html))
-               url-first-image (second (re-find #"<main.*>[\s\S]*<img[^>]+src=\"([^\"\'|>]+)\"|id=[\'\"] ?main ?[\'\"]>[\s\S]*<img[^>]+src=\"([^\"\'|>]+)\"|class=[\'\"] ?main ?[\'\"]>[\s\S]*<img[^>]+src=\"([^\"\'|>]+)\"" html))
+               url-first-image (second (re-find #"<main.*>[\s\S]+<img[^>]+src=\"([^\">]+)\"|id=['\"] ?main ?['\"]>[\s\S]+<img[^>]+src=\"([^\">]+)\"|class=['\"] ?main ?[\'\"]>[\s\S]+<img[^>]+src=\"([^\">]+)\"" html))
                images [url-og-image url-first-image]
                url-final-image (first (filter (fn [item] (not (nil? item))) images))]
            (assoc article :cover url-final-image))) articles))
@@ -61,6 +64,8 @@
     (fn [feeds feed-url]
        ; Read feed
       (let [feed (parse-url feed-url {:insecure? true :throw-exceptions false})]
+        ; User feedback
+        (prn (str  "Reading RSS > " feed-url))
          ; Check is not null
         (if-not (nil? feed)
            ; Add feed