Commit 73990a5f authored by Daniel Kochmański's avatar Daniel Kochmański

cosemtic fixes

parent 29dbf420
......@@ -10,6 +10,7 @@
(defun display-description (frame pane)
(alexandria:when-let ((active (active-template frame)))
(write-string (description active) pane)
(write-string (format nil "~%~%~A" (parameters active)) pane)
(fresh-line pane)))
(defun select-template (pane item
......@@ -25,7 +26,8 @@
:end-of-line-action :allow)))
(write-string (file-body content) pane)
(make-instance 'clim-tab-layout:tab-page
:title (file-name content) :pane pane)))
:title (file-name content)
:pane pane)))
(template-contents template)))
(clim:redisplay-frame-panes frame))
......@@ -50,7 +52,7 @@
(2/3 (clim:vertically ()
(2/3 (clim:spacing () output))
;; it would be nice to have optional screnshot here
(1/3 (clim:spacing () description))))))))
(1/3 (clim:spacing (:thickness 10) description))))))))
(define-ade-listener.project-template-command (dummy :menu t) ())
......
......@@ -15,7 +15,8 @@
:initform (error "Template description is obligatory.")
:reader description)
(parameters :initarg :parameters
:initform nil)
:initform nil
:reader parameters)
(contents :initarg :contents
:initform (error "Template content is obligatory.")
:reader template-contents)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment