Let's write β

プログラミング中にできたことか、思ったこととか

Lispでテケトーにhtmlのレイアウトシステムなど(2)

ちょっと修正しました、これで関数を指定できるので実行時に親のレイアウトを決定できるとおもいます。

(defclass layout ()
  ((parent-layout :initform nil
		  :initarg :parent
		  :accessor parent)
   (layout-func   :initform (error "You must specitic layout function")
		  :initarg  :layout
		  :accessor layout)))

(defmacro render (contents)
  `(markup:raw ,contents))
(defmacro deflayout (name parent place-holders &body body)
  `(setf ,name
	 (make-instance 'layout
			:parent ,parent
			:layout (lambda ,place-holders
				  ,(if (null parent)
				       `(markup:markup ,@body)
				       `(with-layout ,parent
					  (markup:markup ,@body)))))))
(defmacro with-layout (layout-name &rest args)
  `(if (null ,layout-name)
       (error "With-layout: get nil")
       (if (functionp ,layout-name)
	   (let ((result (funcall ,layout-name)))
	     (if (null result)
		 (error "With-layout: get nil")
		 (funcall (layout result) ,@args)))
	   (funcall   (layout ,layout-name) ,@args))))
      
(deflayout app-main nil (main-contents)
  (:html
   (:header
    (:title "App-main"))
   (:body
    (render main-contents)
    (:hr)
    "Footer")))

(deflayout in-header app-main (str)
  (:h1 (render str)))

(defvar *parent* "fuge")

(setf *parent* "fuga")

(deflayout in-hader2 (lambda () (if (equal *parent* "fuga") app-main in-header)) (str)
  (:h2 str))

僕が働いているAzit.incでは一緒に働けるエンジニアを募集しています!
採用情報 — 株式会社アジット|Azit Inc.