Restructure project

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")))

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.

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))