src/view/admin/components/editor.lisp

(defpackage murja.view.admin.components.editor
  (:use :cl :binding-arrows :spinneret)
  (:export :editor)
  (:import-from :murja.model.post :article :post-title :post-hidden? :post-unlisted?))

(in-package :murja.view.admin.components.editor)

(defun header (post)
  (with-html
    (:label "Title: "
	    (:input :id "title" :name "title" :value (post-title post) :type "text"))
    (:label "Hidden: "
	    (:input :id "hidden" :name "hidden" :checked (post-hidden? post) :type "checkbox"))
    (:label "Unlisted: "
	    (:input :id "unlisted" :name "unlisted" :checked (post-unlisted? post) :type "checkbox"))))

(defun editor (post)
  (with-html
    ;; TODO: throw this into parenscript?
    (:script (:raw
	      (format nil "
document.addEventListener('DOMContentLoaded', _ => {
    var editor = ace.edit('editor-post-content',
{theme: 'ace/theme/monokai',
 mode: 'ace/mode/html'});

    editor.setKeyboardHandler('ace/keyboard/emacs');

    editor.setValue(~s);
});" (article post))))

    (header post)
    (:div 
     (:div :id "editor-post-content"))))