src/views/components/page.lisp

DOWNLOAD
(defpackage murja.views.components.page
  (:use :cl :murja.newui :cl-hash-util :binding-arrows )
  (:export :page))

(in-package :murja.views.components.page)

(defun page (list-of-posts)
  (let ((posts (map 'list (lambda (post)
			    (murja.views.components.post:post post))
		    list-of-posts)))
    (component :div (:class "page")
	       (or posts
		   (c :div () "No posts found?")))))