3 files changed, 21 insertions(+), 1 deletions(-)

M README.md
M docs/README.org
M org-webring.el

@@ 210,6 210,14 @@ Text of the planet description.
 -   Default Value: `"Default planet description."`
 
 
+### **Variable**: org-webring-planet-syndicate-length
+
+The maximum length of all syndicate titles.
+
+-   Type: `String`
+-   Default Value: `25`
+
+
 ### **Function**: org-webring-generate-webring
 
 Generate the entire webring and return it as HTML.

@@ 154,6 154,11 @@ Text of the planet description.
 - Type: =String=
 - Default Value: ~"Default planet description."~
 
+*** *Variable*: org-webring-planet-syndicate-length
+The maximum length of all syndicate titles.
+- Type: =String=
+- Default Value: ~25~
+
 *** *Function*: org-webring-generate-webring
 Generate the entire webring and return it as HTML.
 

@@ 214,6 214,11 @@ set for the planet description."
   :group 'org-webring
   :type 'string)
 
+(defcustom org-webring-planet-syndicate-length 25
+  "The maximium length of all syndicate titles."
+  :group 'org-webring
+  :type 'integer)
+
 ;;
 ;;; Extraction
 


@@ 456,7 461,9 @@ The POST will be skipped
     `(small (li (a :href
                    ,(org-webring--feed-text-prop item 'sourceLink)
                    :target "_blank"
-                   ,(org-webring--feed-text-prop item 'sourceTitle))
+                   ,(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)