* Intro CCL and LispWorks and other implementations have their own bridges to the objective-c runtime. This project is an attempt to create a bridge that only uses CFFI so that arbitrary lisp implementations can produce native mac GUIs. In the long run, I hope to use this as the basis for a new mac-native backend for McClim: but we'll see if that ever happens. For the time being, though, this only works on CCL and (sort-of) on LispWorks: it works like 95% on SBCL, but there's some weird issue that's preventing the window from showing. I hae not tested the code on any other implementations, but doing so will require changing a couple places in objc-runtime.lisp to inform the code about the new lisp's ffi types. * Installing 1. clone fwoar.lisputils from https://github.com/fiddlerwoaroof/fwoar.lisputils and put it somewhere quicklisp can find it (e.g. ~/quicklisp/local-projects) 2. Install rsvg-convert: #+BEGIN_SRC sh brew install librsvg #+END_SRC 3. build + run the demo: #+BEGIN_SRC sh make mkapp CCL=/path/to/ccl open demo.app #+END_SRC * Show me the code! From demo-app.lisp: #+BEGIN_SRC lisp (defun main () (trivial-main-thread:with-body-in-main-thread (:blocking t) [#@NSAutoReleasePool @(new)] [#@NSApplication @(sharedApplication)] [objc-runtime::ns-app @(setActivationPolicy:) :int 0] (let ((app-delegate (objc-runtime::objc-allocate-class-pair #@NSObject "AppDelegate" 0))) (objc-runtime::add-pointer-ivar app-delegate "window") (objc-runtime::add-pointer-ivar app-delegate "delegate")) (let* ((bundle [#@NSBundle @(mainBundle)]) (nib [[#@NSNib @(alloc)] @(initWithNibNamed:bundle:) :pointer @"MainMenu" :pointer bundle])) (cffi:with-foreign-object (p :pointer) [nib @(instantiateWithOwner:topLevelObjects:) :pointer objc-runtime::ns-app :pointer p])) [objc-runtime::ns-app @(activateIgnoringOtherApps:) :boolean t] [objc-runtime::ns-app @(run)])) #+END_SRC