src/views/components/root.lisp

(defpackage murja.views.components.root
  (:use :cl :murja.newui)
  (:import-from :murja.middleware.db :*settings*)
  (:export :root-component))

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

(defun root-component (inner-component)
  "Returns the root html element of murja with `inner-component` embedded inside it"
  (c :html ()
       (c :head ()
	  (c :link (:href "/resources/murja.css" :rel "stylesheet" :type "text/css"))
	  (c :script (:src "https://unpkg.com/ace-custom-element@latest/dist/index.min.js" :type "module"))
	  (c :script (:src "/resources/newui.js"))
	  (c :meta (:charset "UTF-8")))
       (c :body ()
	  (c :header ()
	     (c :a (:href "/") (gethash "blog-title" *settings* )))
	  inner-component)))