1 files changed, 17 insertions(+), 17 deletions(-)

M org-webring.el

@@ 462,22 462,21 @@ The POST will be skipped
 (defun org-webring--construct-syndicate (item)
   "Generate the structure of a feed article from a given ITEM."
   (let ((org-webring-items-per-source 1))
-    `(small
-      (ul (li (a :href
-                 ,(org-webring--feed-text-prop item 'sourceLink)
-                 :target "_blank"
-                 ,(org-webring--string-truncate
-                   org-webring-planet-syndicate-length
-                   (org-webring--feed-text-prop item 'sourceTitle) "…"))
-              ,(print " - [")
-              (a :href
-                 ,(org-webring--feed-text-prop item 'sourceFeed)
-                 :target "_blank"
-                 :class "org-webring-feed-url"
-                 ,(symbol-name
-                   (org-webring--feed-text-prop item 'sourceType)))
-              ,(print "]"))))))
-
+    `(ul :class "org-webring-syndicate"
+         (li (a :href
+                ,(org-webring--feed-text-prop item 'sourceLink)
+                :target "_blank"
+                ,(org-webring--string-truncate
+                  org-webring-planet-syndicate-length
+                  (org-webring--feed-text-prop item 'sourceTitle) "…"))
+             ,(print " - [")
+             (a :href
+                ,(org-webring--feed-text-prop item 'sourceFeed)
+                :target "_blank"
+                :class "org-webring-feed-url"
+                ,(symbol-name
+                  (org-webring--feed-text-prop item 'sourceType)))
+             ,(print "]")))))
 ;;
 ;;; Executing
 


@@ 547,7 546,8 @@ The POST will be skipped
     (xmlgen
      `(section :class "org-webring-planet"
 	       ,@(when org-webring-planet-display-description
-		   `((h4 (center ,(print org-webring-planet-description)))))
+		   `((h4 :class "org-webring-description"
+                      ,(print org-webring-planet-description))))
                (p :class "org-webring-attribution"
 		  ,@(when org-webring-display-generation-time
 		      (list