~brettgilio/org-webring

bf78be20c1e30ea3b6c399956034ce09dd89820f — Brett Gilio 4 years ago 285b242
Correct more planet HTML validation
1 files changed, 17 insertions(+), 17 deletions(-)

M org-webring.el
M org-webring.el => org-webring.el +17 -17
@@ 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