Skip to content

Instantly share code, notes, and snippets.

@jmercouris
Created January 4, 2018 04:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jmercouris/f44d31f5b2195018cd23319eaa4d4675 to your computer and use it in GitHub Desktop.
Save jmercouris/f44d31f5b2195018cd23319eaa4d4675 to your computer and use it in GitHub Desktop.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cffi:defcallback callybacky :void ()
(print "called!"))
(defun web-view-execute (view script)
(let ((np (cffi:null-pointer)))
(webkit2:webkit-web-view-run-javascript view script np callybacky np)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Compilation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; caught WARNING:
; undefined variable: CALLYBACKY
;
; compilation unit finished
; Undefined variable:
; CALLYBACKY
; caught 1 WARNING condition
WARNING: redefining INTERFACE:WEB-VIEW-EXECUTE in DEFUN
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment