From e367bcaa6147b9d95026cd86dcd4459b2b7d0a95 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 5 May 2017 16:12:48 +0200
Subject: [PATCH] asd: add silica system definition

---
 franz-clim2.asd | 43 +++++++++++++++++++++++++++++++++++++++----
 1 file changed, 39 insertions(+), 4 deletions(-)

diff --git a/franz-clim2.asd b/franz-clim2.asd
index 61b9243c..cd068256 100644
--- a/franz-clim2.asd
+++ b/franz-clim2.asd
@@ -9,11 +9,10 @@
 ;;; based on `clim-standalone' in sys/sysdcl.lisp
 (defsystem #:franz-clim2/core
   :description "Core functionality (doesn't contain backends)."
-  :components ((:file "utils/packages")
-               (:file "utils/defun-utilities")
-               (:module "clim"
+  :depends-on (#:franz-clim2/silica)
+  :components ((:module "clim"
                         :components
-                        (#+(or) "Basic tools"
+                        (;#+(or) "Basic tools"
                          (:file "gestures")
                          (:file "defprotocol")
                          (:file "stream-defprotocols")
@@ -98,6 +97,42 @@
                          #+(or) "Bootstrap everything"
                          (:file "stream-trampolines")))))
 
+(defsystem #:franz-clim2/utils
+  :components
+  ((:file "utils/packages")
+   (:file "utils/defun-utilities")))
+
+(defsystem #:franz-clim2/silica
+  :depends-on (#:franz-clim2/utils)
+  :components
+  ((:module "silica"
+            :components
+            (;#+(or) "Silica"
+             (:file "macros")
+             (:file "classes")
+             (:file "text-style")
+             (:file "sheet")
+             (:file "mirror")
+             (:file "event")
+             (:file "port")
+             (:file "medium")
+             (:file "framem")
+             (:file "graphics")
+             (:file "pixmaps")
+             (:file "std-sheet")
+
+             ;; "Windshield", aka "DashBoard"
+             #+(or) "Layout gadgets"
+             (:file "layout")
+             (:file "db-layout")
+             (:file "db-box")
+             (:file "db-table")
+
+             #+(or) "'Physical' gadgets"
+             (:file "gadgets")
+             (:file "db-border")
+             (:file "db-scroll")))))
+
 (defsystem #:franz-clim2/postscript
   :description "Draw-only backend as defined in the specification.")
 
-- 
GitLab