From bf78be20c1e30ea3b6c399956034ce09dd89820f Mon Sep 17 00:00:00 2001 From: Brett Gilio Date: Sat, 24 Oct 2020 14:56:55 -0500 Subject: [PATCH] Correct more planet HTML validation --- org-webring.el | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/org-webring.el b/org-webring.el index 37c1842..96fd0a7 100644 --- a/org-webring.el +++ b/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 -- 2.45.2