Create functional hello world example.

README.org

@@ -3,7 +3,8 @@ A simple interface to the easy to use terminal library [[http://foo.wyrd.name/en
 ** Install
 *** Install [[https://www.quicklisp.org/beta/][quicklisp]]
 *** Clone git repo into ~/quicklisp/local-projects/
-*** (ql:quickload :cl-bearlibterminal)
+*** Install [[http://foo.wyrd.name/en:bearlibterminal][BearLibTerminal]]. (make sure to run ldconfig!)
+*** (ql:quickload :bearlibterminal)
 ** Use
 *** This is a very very thin wrapper over the [[http://foo.wyrd.name/en:bearlibterminal][BearLibTerminal]] c bindings.
 *** See: [[http://foo.wyrd.name/en:bearlibterminal:design][BearLibTerminal Design]] and [[http://foo.wyrd.name/en:bearlibterminal:reference][BearLibTerminal Reference]]

bearlibterminal.asd

@@ -5,11 +5,21 @@
   :author "Lily Carpenter <lily-license@azrazalea.net>"
   :license "BSD 3-clause"
   :serial t
-  :depends-on ("cl-autowrap")
+  :depends-on ("cl-autowrap" "cl-plus-c")
   :components ((:module :autowrap-spec
                 :pathname "spec"
                 :components
                 ((:static-file "BearLibTerminal.h")))
                (:file "package")
                (:file "library")
+               (:file "autowrap")
                (:file "bearlibterminal")))
+
+(asdf:defsystem #:bearlibeterminal/examples
+  :description "simple examples to demonstrate common usage of bearlibterminal."
+  :author "Lily Carpenter <lily-license@azrazalea.net>"
+  :license "BSD 3-clause"
+  :depends-on (:bearlibterminal)
+  :pathname "examples"
+  :serial t
+  :components ((:file "hello-world")))

bearlibterminal.lisp

@@ -3,3 +3,6 @@
 (in-package #:bearlibterminal)
 
 ;;; "bearlibterminal" goes here. Hacks and glory await!
+
+(defun terminal-print (x y string)
+  (terminal-print8 x y string))

examples/hello-world.lisp

@@ -0,0 +1,11 @@
+(in-package :bearlibterminal-examples)
+
+(require :bearlibterminal)
+
+(defun hello-world ()
+  "Simple hello world terminal example"
+  (terminal-open)
+  (terminal-print 1 1 "Hello, world!")
+  (terminal-refresh)
+  (loop while (not (equal (terminal-read) bearlibterminal-ffi:+tk-close+)))
+  (terminal-close))

library.lisp

@@ -2,3 +2,5 @@
 
 (cffi:define-foreign-library bearlibterminal
   (t (:default "libBearLibTerminal")))
+
+(cffi:use-foreign-library bearLibTerminal)

package.lisp

@@ -5,4 +5,18 @@
 (defpackage #:bearlibterminal-ffi.functions)
 
 (defpackage #:bearlibterminal
-  (:use #:cl))
+  (:use #:cl
+        #:autowrap.minimal
+        #:plus-c
+        #:bearlibterminal-ffi.functions
+        #:bearlibterminal-ffi.accessors)
+  (:export
+   #:terminal-open
+   #:terminal-read
+   #:terminal-print
+   #:terminal-close
+   #:terminal-refresh))
+
+(defpackage #:bearlibterminal-examples
+  (:use :cl :bearlibterminal)
+  (:export #:hello-world))