3 files changed, 18 insertions(+), 10 deletions(-)

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

@@ 90,7 90,9 @@ The source URLs which are scraped for feeds.
 
 The maximum number of characters displayed in the summary field.
 
--   Type: `Integer`
+When `NIL`, no summary will be displayed.
+
+-   Type: `Sexp`
 -   Default Value: `512`
 
 

@@ 71,7 71,9 @@ The source URLs which are scraped for feeds.
 
 *** *Variable*: org-webring-summary-max-length
 The maximum number of characters displayed in the summary field.
-- Type: =Integer=
+
+When ~NIL~, no summary will be displayed.
+- Type: =Sexp=
 - Default Value: ~512~
 
 *** *Variable*: org-webring-timestamp-feed-format

@@ 130,9 130,11 @@ set for the header."
   :type '(repeat string))
 
 (defcustom org-webring-summary-max-length 512
-  "The maximum number of characters displayed in the summary field."
+  "The maximum number of characters displayed in the summary field.
+
+When NIL, no summary will be displayed."
   :group 'org-webring
-  :type 'integer)
+  :type 'sexp)
 
 (defcustom org-webring-timestamp-feed-format "%a, %d %b %Y"
   "The string format used for the publication dates of feed items.


@@ 438,12 440,14 @@ The POST will be skipped
 		 :target "_blank"
                  ,(org-webring--feed-text-prop item 'title)))
 	  (p :class "org-webring-article-summary"
-	     ,(org-webring--string-truncate
-	       org-webring-summary-max-length
-	       (if (zerop (length desc-sanitized))
-		   `(i ,(print org-webring-empty-summary))
-		 desc-sanitized)
-	       "…"))
+	     ,(if (eq org-webring-summary-max-length 'nil)
+                  nil
+                (org-webring--string-truncate
+	         org-webring-summary-max-length
+	         (if (zerop (length desc-sanitized))
+		     `(i ,(print org-webring-empty-summary))
+		   desc-sanitized)
+	         "…")))
 	  (small :class "org-webring-article-source"
 		 (a :href
 		    ,(org-webring--feed-text-prop item 'sourceLink)