src/view/admin/new-post.lisp

(defpackage murja.view.admin.new-post
  (:use :cl :binding-arrows :spinneret :murja.model.post :murja.view.admin.components.editor)
  ;; (:import-from :murja.model.post :article :post-title)
  (:import-from :murja.view.components.tabs :deftab))

(in-package :murja.view.admin.new-post)

(defun head-script ()
  (with-html
    (:script
     :src "https://cdnjs.cloudflare.com/ajax/libs/ace/1.43.3/ace.min.js"
     :integrity "sha512-BHJlu9vUXVrcxhRwbBdNv3uTsbscp8pp3LJ5z/sw9nBJUegkNlkcZnvODRgynJWhXMCsVUGZlFuzTrr5I2X3sQ=="
     :crossorigin "anonymous"
     ;; :referrerpolicy "no-referrer"
     )))

(deftab blog/new-post (:url "/blog/new-post"
		       :subtab murja.view.admin.post-list:blog/postadmin
		       :require-login t
		       :needed-abilities ("create-post" "delete-post" "edit-post")
		       :inject-to-head (#'head-script))
  (let ((new-post (make-instance 'post :content "kissa" :title "titteli")))
    (editor new-post)))

(deftab blog/post/editor (:url "/blog/post/editor/:id"
			  :subtab murja.view.admin.post-list:blog/postadmin
			  :require-login t
			  :needed-abilities ("create-post" "delete-post" "edit-post")
			  :inject-to-head (#'head-script)
			  :captured-url-params (id))
  (let ((old-post (get-post id :allow-hidden? t)))
    (editor old-post)))