Implement menu with cairo

[malcolmstill]

[naryl]

I'm going use cairo-surface to implement a statusbar, decorations, and a menu. I just need your idea of the API. Here's my first take:

(define-menu root-menu
  ("Applications"
    ("Terminal" (run-program "weston-terminal"))
    ("Firefox" (run-program "firefox")))
  ("Lock Screen" (lock-screen)) ;; E.g.
  ("Quit" (uiop:quit)))

;; That's exactly your commented-out code
(defmousebinding (:pressed 1) (mode) (desktop-mode)
  (show-menu 'root-menu))

Intended to be called from ~/.ulubis.lisp