diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2023-08-05 20:19:57 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2023-08-05 20:22:36 -0400 |
| commit | f2839a2cbb9b5ea47a75b4e0f2fcb094273644e5 (patch) | |
| tree | 021e7ad7e3b392f6f3efb1ba6d954cd95b413d99 /haunt/jakob/builder/atom.scm | |
| parent | 8f7311f7843b5ece8105409604e3817b4e7f1c7d (diff) | |
Drastically shrink Atom feed by not including full text in-line
Diffstat (limited to 'haunt/jakob/builder/atom.scm')
| -rw-r--r-- | haunt/jakob/builder/atom.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/haunt/jakob/builder/atom.scm b/haunt/jakob/builder/atom.scm index e210041..8852372 100644 --- a/haunt/jakob/builder/atom.scm +++ b/haunt/jakob/builder/atom.scm @@ -1,4 +1,4 @@ -;;; Copyright © 2019 - 2020 Jakob L. Kreuze <zerodaysfordays@sdf.org> +;;; Copyright © 2019 - 2023 Jakob L. Kreuze <zerodaysfordays@sdf.org> ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -22,6 +22,7 @@ #:use-module (haunt utils) #:use-module (ice-9 match) #:use-module (jakob builder blog) + #:use-module (jakob utils) #:use-module (jakob utils sxml) #:use-module (srfi srfi-19) #:use-module (srfi srfi-26) @@ -43,7 +44,7 @@ (link (@ (href ,uri) (rel "alternate"))) (summary (@ (type "html")) ,(sxml->html-string - (append (post-sxml post) + (append (first-paragraph post) (if (post-ref post 'crosspost) `((p "...") (p "This is a crosspost. Click " |