From b19f78d926fa84bd5d7aff5aa2c8e2b6c42eac16 Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 17 Feb 2021 13:46:47 -0500 Subject: [PATCH] Restructure project --- clog.asd | 6 +++++ native-glues/README.md | 22 +++++++++++++++++++ clog-base.lisp => source/clog-base.lisp | 0 clog-body.lisp => source/clog-body.lisp | 0 clog-canvas.lisp => source/clog-canvas.lisp | 0 .../clog-connection.lisp | 0 clog-docs.lisp => source/clog-docs.lisp | 0 .../clog-document.lisp | 0 .../clog-element-common.lisp | 0 clog-element.lisp => source/clog-element.lisp | 0 clog-form.lisp => source/clog-form.lisp | 0 clog-gui.lisp => source/clog-gui.lisp | 0 clog-helpers.lisp => source/clog-helpers.lisp | 0 .../clog-location.lisp | 0 .../clog-multimedia.lisp | 0 .../clog-navigator.lisp | 0 clog-system.lisp => source/clog-system.lisp | 0 .../clog-utilities.lisp | 0 clog-window.lisp => source/clog-window.lisp | 0 clog.lisp => source/clog.lisp | 0 tools/clog-db-admin.lisp | 18 +++++++++++++++ 21 files changed, 46 insertions(+) create mode 100644 native-glues/README.md rename clog-base.lisp => source/clog-base.lisp (100%) rename clog-body.lisp => source/clog-body.lisp (100%) rename clog-canvas.lisp => source/clog-canvas.lisp (100%) rename clog-connection.lisp => source/clog-connection.lisp (100%) rename clog-docs.lisp => source/clog-docs.lisp (100%) rename clog-document.lisp => source/clog-document.lisp (100%) rename clog-element-common.lisp => source/clog-element-common.lisp (100%) rename clog-element.lisp => source/clog-element.lisp (100%) rename clog-form.lisp => source/clog-form.lisp (100%) rename clog-gui.lisp => source/clog-gui.lisp (100%) rename clog-helpers.lisp => source/clog-helpers.lisp (100%) rename clog-location.lisp => source/clog-location.lisp (100%) rename clog-multimedia.lisp => source/clog-multimedia.lisp (100%) rename clog-navigator.lisp => source/clog-navigator.lisp (100%) rename clog-system.lisp => source/clog-system.lisp (100%) rename clog-utilities.lisp => source/clog-utilities.lisp (100%) rename clog-window.lisp => source/clog-window.lisp (100%) rename clog.lisp => source/clog.lisp (100%) create mode 100644 tools/clog-db-admin.lisp 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))