* 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