aliens/tekuti
1
0
Fork 0
Code Activity

Unroll a few locations that were receiving nodelists

Browse source 
* tekuti/page-helpers.scm (post-editing-form):
* tekuti/page.scm (page-index, page-show-post): show-post returns a
  nodelist; deal with it.
This commit is contained in:
Andy Wingo 2019-05-31 15:42:30 +02:00
parent b16c08a385
commit 83fd0a044e
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tekuti/page-helpers.scm
View file

@ -360,7 +360,7 @@ present."
`((h2 "comments")
(ol (@ (class "commentlist")) ,@l))))
(h2 "preview")
,(show-post post #f))
,@(show-post post #f))
'())))
(define (sidebar-ul body)

12
tekuti/page.scm
View file

@ -1,5 +1,5 @@
;; Tekuti
;; Copyright (C) 2008, 2010, 2011, 2012 Andy Wingo <wingo at pobox dot com>
;; Copyright (C) 2008, 2010, 2011, 2012, 2019 Andy Wingo <wingo at pobox dot com>
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@ -35,7 +35,7 @@
#:use-module (web request)
#:use-module (tekuti request)
#:use-module (tekuti page-helpers)
#:use-module ((srfi srfi-1) #:select (fold))
#:use-module ((srfi srfi-1) #:select (fold append-map))
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-19)
#:export (page-admin
@ -187,9 +187,9 @@
(define (page-index request body index)
(respond `(,(main-sidebar request index)
,@(map (lambda (post)
(show-post post #f))
(latest-posts index #:limit 10)))
. ,(append-map (lambda (post)
(show-post post #f))
(latest-posts index #:limit 10)))
#:etag (assq-ref index 'master)))
(define (page-show-post request body index year month day post)
@ -198,7 +198,7 @@
#:allow-draft? #t)
=> (lambda (post)
(respond `(,(post-sidebar post index)
,(show-post post #t))
,@(show-post post #t))
#:title (string-append (post-title post) " -- " *title*)
#:etag (assq-ref index 'master))))
(else