diff --git a/clog.asd b/clog.asd
index 82fe5c7..44f015f 100644
--- a/clog.asd
+++ b/clog.asd
@@ -7,6 +7,7 @@
   :license  "BSD"
   :version "0.9.0"
   :serial t
+  :pathname "source/"
   :depends-on (#:clack #:websocket-driver #:alexandria #:hunchentoot #:cl-ppcre
 	       #:bordeaux-threads #:trivial-open-browser #:cl-dbi #:parse-float
 		       #:lack-middleware-static #:mgl-pax #:quri)
@@ -28,3 +29,8 @@
 	       (:file "clog-body")
 	       (:file "clog-gui")
 	       (:file "clog-helpers")))
+
+(asdf:defsystem #:clog/tools
+  :depends-on (#:clog)
+  :pathname "tools/"
+  :components ((:file "clog-db-admin")))
diff --git a/native-glues/README.md b/native-glues/README.md
new file mode 100644
index 0000000..33ec78c
--- /dev/null
+++ b/native-glues/README.md
@@ -0,0 +1,22 @@
+# CLOG - The Common Lisp Omnificent GUI
+
+## Native Glues
+
+These are some sample source and "snips" that will help should you
+wish to create a "native app".
+
+For creating native apps though consider using the _Ceramic_ project
+in quicklisp as it will build native apps for Linux, Mac and Windows
+using electron.
+
+Other simple ways to make native apps
+
+MacGap   - Mac    - https://macgapproject.github.io/
+PhoneGap - Mobile - https://phonegap.com/
+
+### Glues
+
+Linux:
+
+- GTK - A C file using gtk that launches a webkit webview that can
+        be used as basis for a native app.
diff --git a/clog-base.lisp b/source/clog-base.lisp
similarity index 100%
rename from clog-base.lisp
rename to source/clog-base.lisp
diff --git a/clog-body.lisp b/source/clog-body.lisp
similarity index 100%
rename from clog-body.lisp
rename to source/clog-body.lisp
diff --git a/clog-canvas.lisp b/source/clog-canvas.lisp
similarity index 100%
rename from clog-canvas.lisp
rename to source/clog-canvas.lisp
diff --git a/clog-connection.lisp b/source/clog-connection.lisp
similarity index 100%
rename from clog-connection.lisp
rename to source/clog-connection.lisp
diff --git a/clog-docs.lisp b/source/clog-docs.lisp
similarity index 100%
rename from clog-docs.lisp
rename to source/clog-docs.lisp
diff --git a/clog-document.lisp b/source/clog-document.lisp
similarity index 100%
rename from clog-document.lisp
rename to source/clog-document.lisp
diff --git a/clog-element-common.lisp b/source/clog-element-common.lisp
similarity index 100%
rename from clog-element-common.lisp
rename to source/clog-element-common.lisp
diff --git a/clog-element.lisp b/source/clog-element.lisp
similarity index 100%
rename from clog-element.lisp
rename to source/clog-element.lisp
diff --git a/clog-form.lisp b/source/clog-form.lisp
similarity index 100%
rename from clog-form.lisp
rename to source/clog-form.lisp
diff --git a/clog-gui.lisp b/source/clog-gui.lisp
similarity index 100%
rename from clog-gui.lisp
rename to source/clog-gui.lisp
diff --git a/clog-helpers.lisp b/source/clog-helpers.lisp
similarity index 100%
rename from clog-helpers.lisp
rename to source/clog-helpers.lisp
diff --git a/clog-location.lisp b/source/clog-location.lisp
similarity index 100%
rename from clog-location.lisp
rename to source/clog-location.lisp
diff --git a/clog-multimedia.lisp b/source/clog-multimedia.lisp
similarity index 100%
rename from clog-multimedia.lisp
rename to source/clog-multimedia.lisp
diff --git a/clog-navigator.lisp b/source/clog-navigator.lisp
similarity index 100%
rename from clog-navigator.lisp
rename to source/clog-navigator.lisp
diff --git a/clog-system.lisp b/source/clog-system.lisp
similarity index 100%
rename from clog-system.lisp
rename to source/clog-system.lisp
diff --git a/clog-utilities.lisp b/source/clog-utilities.lisp
similarity index 100%
rename from clog-utilities.lisp
rename to source/clog-utilities.lisp
diff --git a/clog-window.lisp b/source/clog-window.lisp
similarity index 100%
rename from clog-window.lisp
rename to source/clog-window.lisp
diff --git a/clog.lisp b/source/clog.lisp
similarity index 100%
rename from clog.lisp
rename to source/clog.lisp
diff --git a/tools/clog-db-admin.lisp b/tools/clog-db-admin.lisp
new file mode 100644
index 0000000..d04d961
--- /dev/null
+++ b/tools/clog-db-admin.lisp
@@ -0,0 +1,18 @@
+(defpackage #:clog-tools
+  (:use #:cl #:clog)
+  (:export clog-db-admin))
+
+(in-package :clog-tools)
+
+(defclass app-data () ())
+
+(defun on-new-window (body)
+  (let ((app (make-instance 'app-data)))
+    (setf (connection-data-item body "app-data") app))
+  (create-div body :content "Hello")
+  (run body))
+
+(defun clog-db-admin ()
+  "Start clog-db-admin."
+  (initialize #'on-new-window)
+  (open-browser))