(use-modules (sortsmill))

(set!
 glyph-view-tools
 [list
  (action-entry #:text "anchor points"
                #:foreground-color #x000000
                #:background-color #xff0000
                #:action [lambda (gv) (pretty-print (glyph-view-anchor-points gv))])
  ])